Moosak

الحمدلله .. توفيق من الله 🙂 البرنامج الحالي يحدث لك التواريخ تلقائيا ويعطيك التواريخ حسب اليوم بدقة .. جرب الانتقال بين الأسابيع من الأزرار العلوية [الأسبوع السابق]……[الأسبوع التالي] ولاحظ التواريخ بنفسك 🙂👌🏻 ومن مزاياه أنه أول ما يفتح يركز لك على الأسبوع الحالي .. ويلون لك اليوم اللي أحنا فيه بالأصفر مثل الصورة اللي وضعتها سابقا .. 😉 وفي أعلى اليمين ممكن تنتقل لأي يوم تريده من أيام السنة .. وكذلك عندك جدول لأسماء القاعات ممكن من خلاله تزيد قاعات جديدة أو تغير أسمائها.

وعليكم السلام ورحمة الله وبركاته contrac.accdb

الكود موضوع على حدث بعد التحديث للاسم الرابع 🙂 هكذا : Private Sub fourthName_AfterUpdate() fullName = [firstName] & " " & [secondName] & " " & [thirdName] & " " & [fourthName] fullName.Requery End Sub

وعليكم السلام ورحمة الله وبركاته أخي عدنان .. لا تنسى أن ترفق ملفك أخي عدنان لوضع اليد على مكان المشكلة بالضبط 🙂 وقبل ذلك لا يفوتك أن تمر على هذا الموضوع إن شاء الله تجد فيه الحل 😊👌🏼

تفضل أخي لقمان : بالنسبة لمعادلة حساب عدد السجلات التي تقع بين القيمتين فبهذه الطريقة : DCount("*";"[sub]";"[ID] ="& [Forms]![Head]![ID] &" And [No] >"& [Forms]![Head]![txt2] &" And [No] <"& [Forms]![Head]![txt1]) وبمساعدة الكاتب الذكي دوال المجال نحصل عليها هكذا 🙂 : 2.accdb

بارك الله فيك مهندسنا @د.كاف يار 🙂 🌹 كلماتك تبعث الروح في النفس ☺️ العفو مهندسنا العزيز @Eng.Qassim 🙂 سرني مروركم 🌹

هذه فكرة أخرى مشاركة لأخي الحلواني @أبو عبدالله الحلوانى 🙂 إضافة تقرير فرعي وهو عبارة عن صفحة فارغة لذلك ستفصل بين السجلات .. M_L - Copy.rar

وعليكم السلام ورحمة الله وبركاته أخي العزيز .. أتمنى أن يكون هو المطلوب 🙂 2.accdb

انتهيت ولله الحمد 😄 للتحميل من المرفقات ( دعوة للتجربة وإبداء الرأي ) 😊: الروزنامة الأسبوعية.accdb

أخي علي أنهيت 90% تقريبا من العمل ولله الحمد ..🙂 بقي لدي سؤال .. هل ستكون الأيام من السبت الى الجمعة؟.. أم من الأحد إلى الخميس ؟

نقاش رائع أساتذتنا @احمد الفلاحجي @Eng.Qassim ☺️ أخي بلال وضعته لك في مثال 🙂 : تضع الدالة على مصدر صندوق النتيجة هكذا : =DateDiff("yyyy";DateAdd("yyyy";3;[From]);[To]) التواريخ.accdb

في أحد برامجي صممت شيء مشابه لذا الموضوع نوعا ما .. ولكنه يحتاج لشغل محترم للتنفيذ 👌🏼 سأحاول أن أمشي معك خطوة خطوة للتنفيذ ..

أخي بلال ضع مرفقك أو صور لنا كيف طبقتها ..

وعليكم السلام ورحمة الله وبركاته أخي علي ..🙂 نحتاج للمزيد من التفاصيل عن آلية العمل علي الروزنامة والهدف منها؟ هل هي أسبوعية أم شهرية ؟ وعدد الأعمدة والصفوف بالضبط ؟ وما نوع البيانات التي ستكتب ؟

لا تلومني العتب على النظر 😂 لا هذي يبغالها شرح عملي 😏

وعليكم السلام ورحمة الله وبركاته الأخ بلال 🙂 هذه الجزئية غير واضحة ! على الرغم من ذلك جرب هذه المعادلة : DateDiff("yyyy", DateAdd("yyyy", 3, date1), Date2) date1 = تاريخ التعيين Date2 = تاريخ الانتهاء

أكتب الأمر هكذا على زر الطباعة : DoCmd.OpenReport "reprint1", acViewPreview, , "[ID] =" & Me.ID

فيه فكرة في بالي لعمل الفواصل 🙂 وهي انشاء استعلام من عمود واحد ويكون مصدره الجدول .. في هذا العمود يتم جمع جميع أعمدة الجدول والفصل بينهم بالفاصلة هكذا : [Field1] & " ," & [Field2] وبعدها يتم تصدير الاستعلام .. والتجربة خير برهان 👌🏼

معلومة جديدة 😄👌🏼

تفضل أخي السهران 🙂 تم تعريف متغير عام في موديول يحفظ اسم النموذج الأخير ، ومن ثم يستدعيه مجددا عند إغلاق النموذج frm visbelform.accdb

أتفق معك أخي @مبرمج سابق😉👌🏻 وصمتك في هذا الحال هو صمت غير محمود 😏 اصدح بما لديك ودعنا ننهل مما علمك الله .

وأنا أيضا أشتغل معي صوتين فقط ولا أدري لماذا ! 😅 ولكن لاستخدام الكود .. تضعه في موديول مستقل ثم تنادي الصوت المطلوب بهذه الطريقة ( نفس المثال الذي في الكود الأصلي) : BeepType MB_ICONHAND والمثال عليك

شكرا أخي العزيز @أبو عبدالله الحلوانى 🙂 نفعنا الله بك ، وزادك الله من واسع فضله وفتح لك أبواب الخيرات والبركات والأرزاق . 🤲

بعد إذنك أستاذي @عمر ضاحى لدي فكرة تغنيك عن عمل الكثير من الاستعلامات 🙂 هو موديول واحد فيه جملة SQL وتجعل أسماء الجداول عبارة عن متغير كل مرة يتغير حسب الاسم اللي في القائمة المنسدلة . وبعدها يشغل جملة ال SQL حسب المعطيات 🙂 طبعا هذا مع توافق أن جميع أسماء الحقول متشابهة في الجداول الثلاثة ..

وهذه أخرى : 🙂 Function ConversionHeures(Nombre As Integer) As String If Nombre = 0 Or Nombre = 24 Then ConversionHeures = "Minuit " Exit Function ElseIf Nombre = 12 Then ConversionHeures = "Midi " Exit Function End If Const stEspace As String = " " Dim Varnum, VarnumD, VarnumU, Resultat, Varlet Static Chiffre(1 To 19) Chiffre(1) = "une" Chiffre(2) = "deux" Chiffre(3) = "trois" Chiffre(4) = "quatre" Chiffre(5) = "cinq" Chiffre(6) = "six" Chiffre(7) = "sept" Chiffre(8) = "huit" Chiffre(9) = "neuf" Chiffre(10) = "dix" Chiffre(11) = "onze" Chiffre(12) = "douze" Chiffre(13) = "treize" Chiffre(14) = "quatorze" Chiffre(15) = "quinze" Chiffre(16) = "seize" Chiffre(17) = "dix-sept" Chiffre(18) = "dix-huit" Chiffre(19) = "dix-neuf" Static dizaine(1 To 9, 1 To 5) dizaine(1, 1) = "dix" dizaine(2, 1) = "vingt" dizaine(3, 1) = "trente" dizaine(4, 1) = "quarante" dizaine(5, 1) = "cinquante" dizaine(6, 1) = "soixante" dizaine(7, 1) = "soixante" dizaine(8, 1) = "quatre-vingt" dizaine(9, 1) = "quatre-vingt" Resultat = "" Varnum = Int(Nombre) Mod 1000 If Varnum > 0 Then GoSub centaine_dizaine Resultat = Resultat + " " + Varlet End If Resultat = LTrim(Resultat) Varlet = Right$(Resultat, 4) 'traitement du "s" final pour vingt et cent Select Case Varlet Case "cent", "ingt" Resultat = Resultat + "s" End Select FinTraitement: Resultat = Resultat + stEspace 'renvoi du résultat de la fonction et fin de la fonction ConversionHeures = Replace(Resultat, " ", " ") Exit Function 'sous programme centaine_dizaine: Varlet = "" 'traitement des centaines If Varnum >= 100 Then Varlet = Chiffre(Int(Varnum / 100)) Varnum = Varnum Mod 100 If Varlet = "un" Then Varlet = "cent " Else Varlet = Varlet + " cent " End If End If 'traitement des dizaines If Varnum <= 19 Then If Varnum > 0 Then: Varlet = Varlet + Chiffre(Varnum) Else VarnumD = Int(Varnum / 10) VarnumU = Varnum Mod 10 Varlet = Varlet + dizaine(VarnumD, 1) If VarnumU = 1 And VarnumD < 8 Then Varlet = Varlet + " et " Else If VarnumU <> 0 Or VarnumD = 7 Or VarnumD = 9 Then: Varlet = Varlet & " " End If If VarnumD = 7 Or VarnumD = 9 Then: VarnumU = VarnumU + 10 If VarnumU <> 0 Then: Varlet = Varlet + Chiffre(VarnumU) End If Varlet = Trim(Varlet) Return End Function