كل الانشطه

استاذي العزيز لم تضبط معي ولو غلبتك ارجو التعديل على ملف ( مواعيد الأستحقاق ) مع التقدير

الدالة تعمل بشكل سليم . وقد تمت تجربتها مراراً على أكثر من مدرسة باخلاف الدوام ( يوم السبت ) وبتواريخ مختلفة . لذا قد أكود عكست التسمية ليس إلا . اجعل التسمية لا تعمل يوم السبت ، وتنتهي مشكلتك

السلام عليكم اساتذتي طلب أخير ان شاء الله أحتاج نقل نموذج ( SearchMain ) من الملف المرفق باسم ( DDMhamed) إلى ملف المرفق باسم ( باركود) مع حل المشكلة الموجوده بالصوره ضروري بارك الله فيكم وفي ميزان حسناتكم ان شاء الله DDMhamed(2).rar باركود-1.rar

المشكلة لدينا لا تتعلق برأس التقرير فقط التقرير بعد اضافة البيانات الكثيرة اصبح بطيئا عند الفتح وهذا يرجع لأمور من اسبابها : 1- التنسيق الشرطي للألوان في الحقول .. يأخذ وقتا 2- الدوال الخاصة بالتقييم والحالة .. تأخذ وقتا 3- مصدر التفاصيل استعلام بينما مصدر التنسيقات والدوال استعلام وجداول اخرى يوجد عندي حل جذري لتخطي جميع هذه العقبات من غير اخلال بالمخرج الأخير سأحاول انجازه ان شاء الله .. فامنحوني وقتا

تمام أنا قلت يمكن تغير فى الدالة طيب لو حبيت أغير فى الدالة مش فى المسمى أعملها ازاى لأنه اللى بيعمل السبت عدد قليل وشكرا جزيلا على جهدكم وسرعة ردكم زادكم الله من علمه وبارك لكم فى رزقكم وعافيتكم وذريتكم

الله يوفقك استاذي هذا هو المطلوب ربي يسلمك ويحفظك من كل شر

دي مش محتاجة سؤال ؛ غيرها بما يتناسب مع مشروعك يا صديقي ، ما دام الأمر يسري بالشكل الصحيح !!

والملف المرفق السابق التنسيق في عمود الحالة كما في طلبك الجديد العمود B وان اردت التعديل فحدد اي عمود يكون به التنسيق تحياتي

حضرتك مسمى الحقل دوام السبت وده معناه اللى عليه صح يعمل يوم السبت والعكس صحيح وده خلانى اتلخبط لما جربت لأنه بالنسبة لى كانت النتيجة بتطلع العكس انظر الصورة التالية الصورة الأولى لموظف مدرسته تعمل السبت ( الزوايدة الابتدائية المشتركة ) بما إن دوام السبت = صواب وده معناه أنه لو تاريخ نهاية التدريب الخميس يبقى تاريخ مباشرة العمل يبقى السبت , لكن النتيجة طالعة تاريخ المباشرة الاحد الصورة الثانية العكس فايه رأيك أغير مسمى الحقل لـ ( إجازة السبت )

عفوا التعديل اصبح على الطلب القديم ارجو التعديل على الجديد مع فائق التقدير والأحترام

وعليكم السلام ورحمة الله وبركاته يبدو اثناء تجهيز الملف تغير الطلب تم التعديل حسب الطلب الجديد حسب فهمى ات H2 موعد السداد تاريخ الأستحقاق.xlsb

أعتقد أنه تم الإجابة عن هذا السؤال في موضوعك السابق ، والذي لم تقم بالرد عليه ومتابعته 🙂 . الجواب في هذه المشاركة هنا

السلام عليكم ورحمة الله وبركاته باستخدام الكود التالى يمكن حذف أى سجل داخل قاعدة بيانات ما عدا عند حذف السجل الأخير فى نفس القاعدة تظهر هذه الرسالة كيف يمكن معالجة خطأ هذه الرسالة ؟؟ إذ أن المفترض بعد هذا الحذف ظهور صفحة فارغة من كل الحقول لإدخال سجل جديد الكود Private Sub Cmdel_Click() On Error GoTo Err_Cmdel_Click If MsgBox(":ستقوم الآن بحذف السجل المسجل بملف رقم" & vbCrLf _ & vbCrLf _ & [Nr] & " " & vbCrLf _ & [Name_T] & vbCrLf _ & " " & vbCrLf _ & "هل أنت متأكد ؟" & vbCrLf _ & "أضغط ( نعم ) للإستمرار ، أو ( لا ) لإلغاء الأمر", vbQuestion + vbYesNo _ + vbMsgBoxRight, "تحذيـــر") = vbYes Then Me.Recordset.Delete Me.Recordset.MoveNext End If Exit_Cmdel_Click: Exit Sub Err_Cmdel_Click: MsgBox Err.Description Resume Exit_Cmdel_Click End Sub

اسف في البداية تم تحميل ملف اخر الآن الملف المطلوب تم تحميلة ( التسنيق يكون في عامود ( الحالة ) اعتذر للجميع

لا طبعا اخي @kkhalifa1960 علمك وفهمك لا يمكن الاكتفاء منه والله بس بحاول افهم وادرس اللي حضرتك كاتبه بالكود بالاضافة ان في اني بحاول اخلي ترتيب الاسئلة وقت وضع الاجابة بنفس ترتيب الاسئلة في الطباعة بس بتعمل خطا لكن اللي انا متاكد منه ان عملك الرائع هينفع كتير مننا وبتمنا حضرتك تنشر البرنامج علشان نستفيد منه كلنا وكمان للتطوير تحياتي يك ولمجهودك الرائع

بارك الله فيكم على هذا ألأبداع وحفظكم الله

وعليكم السلام ورحمة الله وبركانه اولا : بعد اذنك تصحيح لرابط الموضوع السابق https://www.officena.net/ib/topic/137756-ترحيل-بيانات-موظف-محال-للمعاش-إلى-شيت-آخر-وحذفه-من-قاعدة-البيانات/#comment-769413 ثانيا اليك الملف وبه التعديل ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 5.xlsb وان اردت اي تعديل في الملف فايشر لك كل الود والاحترام

شكرا جزيلا

السلام عليكم اعضاء المنتدى الكرام من اجل ان تعم الفائدة فهذه للجميع وهذا كله من انجازات هذا الصرح العلمي العظيم اتقدم اليكم بهذا الملف والذي نحتاج به التنسيق الشرطي للأستحقاق حسب الفترة الزمنية الماضية والمستقبلية حيث ان ( اذا مرة على موعد السداد اكثر من يوم يكون لون الخلية احمر , واذا باقي اقبل من اسبوع يكون للون الخلية اصفر واذا كان الأستحقاق اليوم يكون اللون اخضر ) وكما موضح في الملف المرفق مع وافر التقدير وألأحترام مواعيد ألأستحقاق.rar

طيب يا صديقي ، قبل خروجي من العمل ، جرب هذا التعديل حيث تم ما يلي :- 1. في الجدول Tb_School تم اضافة الحقل WSat من نوع = Yes/No ، حيث :- إذا كانت المدرسة تعطل يوم السبت ( WSat=True ) ، وبالتالي يتم تجاهل الجمعة والسبت . إذا كانت المدرسة تعمل يوم السبت ( WSat=False ) وبالتالي يتم تجاهل يوم الجمعة ولا يتم احتسابه في الأيام . 2. تعديل الدوال في المديول : Public Function WorkDaysBetween(StartDate As Date, EndDate As Date, schoolID As Long) As Long Dim i As Long Dim d As Date Dim count As Long Dim SaturdayOff As Boolean If EndDate < StartDate Then WorkDaysBetween = 0 Exit Function End If SaturdayOff = Nz(DLookup("WSat", "Tb_School", "School_ID = " & schoolID), True) For i = 0 To DateDiff("d", StartDate, EndDate) d = DateAdd("d", i, StartDate) If Weekday(d, vbSaturday) = 7 Then ElseIf SaturdayOff And Weekday(d, vbSaturday) = 1 Then Else count = count + 1 End If Next i WorkDaysBetween = count End Function Public Function NextWorkingDay(d As Date, schoolID As Long) As Date Dim SaturdayOff As Boolean SaturdayOff = Nz(DLookup("WSat", "Tb_School", "School_ID = " & schoolID), True) Do While Weekday(d, vbSaturday) = 7 Or (SaturdayOff And Weekday(d, vbSaturday) = 1) d = d + 1 Loop NextWorkingDay = d End Function 3. دالة الاحتساب في النموذج الفرعي تم تعديلها كالآتي بإضافة الشرط الخاص برقم المدرسة للتمييز بين طريقتي الإحتساب :- Private Sub UpdateModa() Dim daysCount As Long Dim schoolID As Long If Not IsNull(Me.Parent!Gha_Aml) Then schoolID = Nz(Me.Parent!Gha_Aml, 0) Else schoolID = 0 End If If Not IsNull(tr_bda_tdbreeb) And Not IsNull(tr_nhay_tdree) Then daysCount = WorkDaysBetween(tr_bda_tdbreeb, tr_nhay_tdree, schoolID) tr_moshrt_aml = NextWorkingDay(tr_nhay_tdree + 1, schoolID) moda = daysCount Else moda = Null tr_moshrt_aml = Null End If End Sub جربه وأخبرني .. Personnel_affairs.zip

تفضل استاذ @ahmadhurira المرفق بعد التعديل بطلبك حسب ما فهمت . ووافني بالرد . Database4-1.rar

عمل جميل من الاخ محمد هشام ... جزاك الله كل خير لجهودك في مساعده الاخوة في هذا المنتدى الكبير .. كيف يكون الكود بدل ان يكون التحديد بدوائر ان يكون التحديد ب cheekbox لكل من التفاصيل في المصنف ..وفقنا الله واياكم لكل خير فورمةv3.xlsb

بعد اذن استاذي @Foksh تفضل استاذ @محمد119900 طلبك حسب مافهمت . اليك الشرح والمرفق بعد التعديل . باركود-1.rar

هذا ما كنت سأقوله

طيب تمام يا صديقي ، الآن سأقوم بتفقد الجدول وإضافة حقل من نوع Yes/No دلالة على أن المدرسة هذه لها مباشرة دوام يوم السبت أم لا ,, وبناءً عليه سنقوم بتعديل الدالة للتمييز بين المدارس ، ما رأيك ؟