علي البحيري

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tb1 Where [id]=" & [ud1])

حاولت تحديد حصة احتياطي لكل موظف ولكن اذا كان عدد الغياب اكثر فلن تتم العملية بنجاح لذلك يتم النظر الى المتفرغون في نفس حصة الغياب ويتم التوزيع عليهم او على بعضهم حصص الاحتياطي التعديل الجديد تمام التمام وفقك الله واصلج حالك الباقي الان التوزيع العادل لكل موظف بحيث يكون لكل موظف نصاب مساوي او يزيد قليلا عن الباقي معلم له حصص 15 حصة ومعلم اخر له 17 حصة ومعلم له 21 حصة يتم التوزيع على الاقل ثم الذي يليه ثم يتم اعتبار هذا الحساب في اليوم التالي فيبدأ بالاقل ثم الذي يليه حصص اساسية + حصص احتياطي = مجموع الحصص لكل معلم ويبدأ بالاقل وفقك الله واصلح الله حالك

سلمت يداك استاذ @SEMO.Pa3x لاحظ الصورة المرفقة 1 : اسم المعلم ( مكرر ) 2 : قيمة الجزاء المستحق 3 : عدد دقائق التأخر الحقيقية لكل موظف بما انا عدد دقائق التأخر الحقيقية = 96 فيكون الجزاء بين 60 : 120 Emp.rar

شكرا لك اخى لم اقصد شىء لاحظ معلم 12 يوجد لديه الحصة الاولى ومع ذلك تم توزيعه كذلك معلم 10 يوجد لديه الحصة السابعة ومع ذلك تم توزيعه وهكذا لو لاحظت انه يتم توزيع بعض المعلمين مع وجود حصص لديهم كما انك لمحت الى وجود مشكلة فهل تتكرم بطريقة توزيع عادلة لكل معلم Emp.rar

السلام عليكم Emp.rar 1: يوجد جدول TBL_Employees لبيانات الموظفين وبه حقل غريب Id_Group وحقل delay_Val وبه قيمة التاخرات بالدقيقة وحقل IdDeduction 2: يوجد جدول TBL_Groups_Details لتسجيل تفاصيل الجزاءات وفق كل مجموعة وكل مجموعة في الجدول لها تفاصيل جزاءات محتلفة 3: المطلوب تحديد الجزاء لكل موظف وفق مجموعته وتحديث حقل IdDeduction في جدول TBL_Employees وفق الجزاء المناسب من جدول TBL_Groups_Details

للاسف استاذنا الفاضل النتائج غير صحيحة شكرا لك وساحاول مرة اخرى ايجاد حل بامر الله

استاذ @kanory جربت على المرفق الذي وضعت به بيانات حقيقية فحدث اشكال في دخول بعض المعلمين المشغولين بحصص في حصص المعلمين الغياب ويدخل معلمين في حصص فارغة غير مطلوبة للمعلم الغياب لو تسمح بمراجعة المرفق الذي به بيانات

بارك الله فيك جاري التجربة

بانتظارك استاذ @kanory

وهذه جدول حقيق للمساعدة في الوصول للمطلوب برنامج الاحتياطي 2022.rar

الحمد لله اولا وجزاك الله خير الجزاء على ردك يجب اولا حساب الحصص الاساسية ثم حساب الحصص الاحتياطي ويتم التوزيع للملعم الاقصل نصاب بانتظارك استاذ @kanory

يا رب

up

السلام عليكم يوجد جدول TBL_Employees لبيانات الموظفين يوجد جدول TBL_Rserve لتسجيل حصص المعلمين المطلوب حصر غياب المعلمين المتغيبين وتوزيع حصص اليوم على المعلمين الفارغين في هذه الحصة في جدول TBL_Rserve3 مع عدم تكرار المعلم مرة اخرى وشكرا برنامج الاحتياطي 2022.rar

هذا هو الخطأ المفروض يكون الناتج 1 كرتون + 0 درزينة + 75 قطعة

بالله عليكم ساعدوني في حل المشكلة وجدت مثال للتجويل بين الوحدات ومعرفة الرصيد كرتونة ودرزينة وقطعة New Microsoft Office Access Application (2)_2.rar Public Function UnitsDtls(AllUnits As Integer, BoxPockets As Integer, PocketContain As Integer, MyChoice As Byte) ' AllUnits تمثل إجمالي القطع ' BoxPockets عدد الدرزينات في الكرتون الواحد ' PocketContain عدد القطع في كل درزينة أو وحدة فرعية ' MyChoice تحدد أحد الخيارات 1-عدد الكراتين 2-عدد الوحدات الفرعية (الدرزينات) 3-عدد القطع المفردة ' Dim BoxContain As Integer 'محتوى الكرتون من الوحدات Dim BoxCnt As Integer 'عدد الكراتين Dim PocketsCnt As Integer 'عدد الدرزينات Dim UnitsCnt As Integer 'عدد الوحدات المفردة BoxContain = (BoxPockets * PocketContain) BoxCnt = Int(AllUnits / BoxContain) PocketsCnt = ((((AllUnits / BoxContain) - BoxCnt) * BoxContain) / PocketContain) '336 144 2 144 12 UnitsCnt = (((AllUnits / BoxContain) - BoxCnt) * BoxContain) Mod PocketContain Select Case MyChoice Case Is = 1 UnitsDtls = BoxCnt Case Is = 2 UnitsDtls = PocketsCnt Case Is = 3 UnitsDtls = UnitsCnt Case Else UnitsDtls = -1 End Select End Function ويوجد خطأ في التحويل واذا غيرت السطر PocketsCnt = ((((AllUnits / BoxContain) - BoxCnt) * BoxContain) / PocketContain) الى PocketsCnt = Int((((AllUnits / BoxContain) - BoxCnt) * BoxContain) / PocketContain) تظهر مشكلة في الصنف الاخر