كل الانشطه

طيب يا صديقي ، قبل خروجي من العمل ، جرب هذا التعديل حيث تم ما يلي :- 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 لكل من التفاصيل في المصنف ..وفقنا الله واياكم لكل خير

بعد اذن استاذي @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 وده اللى أقصده ونفذها ازاى حضرتك تمام ولا لسة الأمور مختلطة

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

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

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

تمام كده أحسنت والملاحظة التانية بتاعة إنه يوم السبت بيكون عمل لبعض المدارس

شكرا لك استاذ وهو كذلك

الخطأ مردود ، اعتذر منك ، المقصود في النموذج الفرعي في الدالة UpdateModa ، أزل 1+ من السطر moda = daysCount + 1 ولكن لنفترض أن تاريخ بدء التدريب = 2025-04-01 وتاريخ الإنتهاء = 2025-04-04 أي الأيام ( 01 ، 02 ، 03 ، 04 ) ستكون 4 ايام وليس 3 ان كان ما فهمته صحيح ,, ولكن انت أعلم بمشروعك في النهاية

طيب يا صديقي ، لنفترض جدلاً أن لديك مربع النص (TxtFullDate) ، والذي يضم القيمة = 042025 على سبيل المثال ، وأن لديك مربعي نص كالآتي :- مربع النص TxMo = لعرض رقم الشهر ، و مربع النص TxYr = لعرض رقم السنة . الآن في مصدر بيانات مربع النص الخاص برقم الشهر اكتب السطر التالي :- =Left([TxtFullDate],2) وفي مربع النص الخاص برقم السنة ، اكتب الجزء التالي فقط :- =Right([TxtFullDate],4) جرب وأخبرني بالنتيجة

لما أزالتها مدة التدريب بتبقى نتيجة واحدة بتعطى رقم (1) أيا كانت التواريخ

نعم استاذ تضم الشهر والسنة

تفضل أخي الفاضل وبارك الله فيك المرفق به الصف الأول والثالث كاملا ( الفصل الدراسي الأول ) Database60.rar