اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

علي البحيري

عضو جديد 01
  • Posts

    16
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو علي البحيري

  1. Set rs = CurrentDb.OpenRecordset("SELECT * FROM tb1 Where [id]=" & [ud1])
  2. حاولت تحديد حصة احتياطي لكل موظف ولكن اذا كان عدد الغياب اكثر فلن تتم العملية بنجاح لذلك يتم النظر الى المتفرغون في نفس حصة الغياب ويتم التوزيع عليهم او على بعضهم حصص الاحتياطي التعديل الجديد تمام التمام وفقك الله واصلج حالك الباقي الان التوزيع العادل لكل موظف بحيث يكون لكل موظف نصاب مساوي او يزيد قليلا عن الباقي معلم له حصص 15 حصة ومعلم اخر له 17 حصة ومعلم له 21 حصة يتم التوزيع على الاقل ثم الذي يليه ثم يتم اعتبار هذا الحساب في اليوم التالي فيبدأ بالاقل ثم الذي يليه حصص اساسية + حصص احتياطي = مجموع الحصص لكل معلم ويبدأ بالاقل وفقك الله واصلح الله حالك
  3. سلمت يداك استاذ @SEMO.Pa3x لاحظ الصورة المرفقة 1 : اسم المعلم ( مكرر ) 2 : قيمة الجزاء المستحق 3 : عدد دقائق التأخر الحقيقية لكل موظف بما انا عدد دقائق التأخر الحقيقية = 96 فيكون الجزاء بين 60 : 120 Emp.rar
  4. شكرا لك اخى لم اقصد شىء لاحظ معلم 12 يوجد لديه الحصة الاولى ومع ذلك تم توزيعه كذلك معلم 10 يوجد لديه الحصة السابعة ومع ذلك تم توزيعه وهكذا لو لاحظت انه يتم توزيع بعض المعلمين مع وجود حصص لديهم كما انك لمحت الى وجود مشكلة فهل تتكرم بطريقة توزيع عادلة لكل معلم Emp.rar
  5. السلام عليكم Emp.rar 1: يوجد جدول TBL_Employees لبيانات الموظفين وبه حقل غريب Id_Group وحقل delay_Val وبه قيمة التاخرات بالدقيقة وحقل IdDeduction 2: يوجد جدول TBL_Groups_Details لتسجيل تفاصيل الجزاءات وفق كل مجموعة وكل مجموعة في الجدول لها تفاصيل جزاءات محتلفة 3: المطلوب تحديد الجزاء لكل موظف وفق مجموعته وتحديث حقل IdDeduction في جدول TBL_Employees وفق الجزاء المناسب من جدول TBL_Groups_Details
  6. للاسف استاذنا الفاضل النتائج غير صحيحة شكرا لك وساحاول مرة اخرى ايجاد حل بامر الله
  7. استاذ @kanory جربت على المرفق الذي وضعت به بيانات حقيقية فحدث اشكال في دخول بعض المعلمين المشغولين بحصص في حصص المعلمين الغياب ويدخل معلمين في حصص فارغة غير مطلوبة للمعلم الغياب لو تسمح بمراجعة المرفق الذي به بيانات
  8. بارك الله فيك جاري التجربة
  9. بانتظارك استاذ @kanory
  10. وهذه جدول حقيق للمساعدة في الوصول للمطلوب برنامج الاحتياطي 2022.rar
  11. الحمد لله اولا وجزاك الله خير الجزاء على ردك يجب اولا حساب الحصص الاساسية ثم حساب الحصص الاحتياطي ويتم التوزيع للملعم الاقصل نصاب بانتظارك استاذ @kanory
  12. السلام عليكم يوجد جدول TBL_Employees لبيانات الموظفين يوجد جدول TBL_Rserve لتسجيل حصص المعلمين المطلوب حصر غياب المعلمين المتغيبين وتوزيع حصص اليوم على المعلمين الفارغين في هذه الحصة في جدول TBL_Rserve3 مع عدم تكرار المعلم مرة اخرى وشكرا برنامج الاحتياطي 2022.rar
  13. هذا هو الخطأ المفروض يكون الناتج 1 كرتون + 0 درزينة + 75 قطعة
  14. بالله عليكم ساعدوني في حل المشكلة وجدت مثال للتجويل بين الوحدات ومعرفة الرصيد كرتونة ودرزينة وقطعة 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) تظهر مشكلة في الصنف الاخر
×
×
  • اضف...

Important Information