كل الانشطه

السلام عليكم ورحمة الله وبركاته باستخدام الكود التالى يمكن حذف أى سجل داخل قاعدة بيانات ما عدا عند حذف السجل الأخير فى نفس القاعدة تظهر هذه الرسالة كيف يمكن معالجة خطأ هذه الرسالة ؟؟ إذ أن المفترض بعد هذا الحذف ظهور صفحة فارغة من كل الحقول لإدخال سجل جديد الكود 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 دلالة على أن المدرسة هذه لها مباشرة دوام يوم السبت أم لا ,, وبناءً عليه سنقوم بتعديل الدالة للتمييز بين المدارس ، ما رأيك ؟

وإياكم يا صديقي ، و والله انه ليسعدني أنها قد تحققت على أكمل وجه بفضل الله أولاً ، ثم بفضل ملاحظاتكم وسأعمل على إضافة أفكاري هذه الى المكتبة إثراءً لي

الصراحة ما فهمت !!! لكن هناك حقل للمدرسة فى بيانات الموظف وفيه جدول بالفعل للمدارس أنا كنت عامله

السادة الكرام مسئولي ومشرفي وخبراء وأعضاء وزوار منتدي أوفيسنا (إكسيل) طبتم وطابت جميع أوقاتكم بالخير واليمن والبركات أينما كنتم وأينما حللتم وتحيتكم: السلام عليكم ورحمة الله وبركاته بخصوص موضوع سابق لنا هذا رابطه (https://cutt.us/qbmdy) المطلوب: فقط عندما يتم في أي مرة مسح (أو إزالة) المحتويات في شيت (معاشات) أن يكون العدد (0) صفر في كل من خلية: (معاش C3؛ ذكر E3؛ أنثى H3؛ المجموع J3) حيث أنه تم ملاحظة أن العدد يظل كما هو في الخلايا المذكورة بعد مسح المحتويات أو إزالتها كما موضح بالصورة المرفقة و أرجو منكم جميعا أن تلتمسوا لنا العذر حيث أن هذه أول أمرة أتعرض فيها لمثل ذلك الأمر. ملحوظة: للسادة المشرفين الكرام تعديل اسم الموضوع بما يناسب قوانين المنتدى إن لم يكن الاسم مناسبا ودمتم جميعا بخير وصحة وعافية

شكرا جزيلا بحجم السماء مهندسنا العزيز @Foksh 😊👏 كفيت ووفيت .. تحفة راااائعة وإضافة قيمة جدا للمكتبة العربية .. جزاك الله عنا كل خير .. وغفر الله لك ولوالديك ولمن تحب 🌹🌷

أستاذي الفاضل المحترم ابن الأصول الأستاذ / عبد الله بشير عبد الله صبحكم الله بكل خير وطبتم وطابت جميع أوقاتكم بالخير واليمن والبركات أينما كنتم وأينما حللتم وتحيتكم: السلام عليكم ورحمة الله وبركاته حسنا سأفعل؛ وهذه اول أمرة أتعرض فيها لمثل ذلك؛ فأرجو أن يلتمس لنا الجميع العذر في ذلك؛ ودمتم جميعا بكل خير؛ ودعاء لكم جميعا من القلب أن يديم الله عليكم الصحة وموفور العافية؛ ودمتم في حفظ الله ورعايته.

يا صديقي ، الفكرة ليست في الجدول فقط ، فعلى سبيل المثال ، سنضطر الى تمييز ان الموظف الفلاني موظف للمدرسة الفلانية .. انت فاهم قصدي ؟؟

ممكن أعمل لحضرتك جدول للمدارس بس ايه الحقول اللى حضرتك محتاجها

الأمور تمام ، ولكن ما الذي سيميز المدارس التي يبدأ دوامها السبت من تلك التي تبدأ الأحد ؟؟؟؟؟؟ للتأكيد كل يوجد جدول للمدارس ؟؟؟

حضرتك أنا بتكلم على التدريبات ( ملناش دعوة بالإجازات اللى بياخدها الموظف لنفسه فقط ) فلو موظف كان ميعاد تدريبه يوم الاثنين 2025/4/21 وتاريخ انتهاء التدريب يوم الخميس 2025/4/24 يبقى تاريخ مباشرة العمل له فى المدرسة يوم الأحد 2025/4/27 وده لو مدرسته إجازة من العمل يومى الجمعة والسبت #وده اللى حضرتك عملته فى الدالة لكن لو مدرسته بتاخد الجمعة فقط إجازة من العمل يبقى تاريخ مباشرة العمل السبت 2025/4/26 وده اللى أقصده ونفذها ازاى حضرتك تمام ولا لسة الأمور مختلطة

اول شيء وين الاجازات في الموضوع ؟؟؟؟؟؟ ولا انت تقصد الدورات أو التدريبات هي نفسها الاجازات ؟؟؟؟؟ مش فاهم ، ثاني شيء انك تدخل في التشعبات الفرعية دون الانتهاء من التأسيس لبقية البرنامج اعتقد رح تتوهك وتدخلنا في متاهة

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

اشرحها لي اكثر لأنا ما فهمتها