مساعدة فى تعديل كود

[حمدى الظابط]

السلام عليكم ورحمة الله وبركاته جمعة مباركة على الجميع وارجو الاهتمام بالمساعدة

  الكود الحالى بنموذج1 ينفذ التوزيع فى جدول Teacher Class وبيتم التوزيع ولكن المشكلة انه بيوزع جدول المواد متشابهه يعنى نجد الدراسات والعلوم والعربى على سبيل المثال  نفس ترتيب الحصص فى كل ايام الاسبوع الحصة الاولى الثانية الثالثة الرابعة نفس المواد وهذا يحقق عدم العدالة فى التوزيع بين المدرسين لذلك
اريد المساعدة فى تغير هذا الكود المشار له بالون الاحمر فى هذه المشاركة لتنفيذ وتعديل هذا الشرط للتالى او باى طريقة اخرى
فى جدول بيانات المعلم  يوجد توزيع عدد حصص المادة على ايام الاسبوع وكل ما اريدة يكون التوزيع  طبقا لكل سجل فى جدول بيانات المعلم
توضيح اكثر
مادة الدراسات للاستاذ ياسر اربع حصص فى الاسبوع للصف الاول الابتدائى فصل 1/1ب  وتم توزيع حصصه فى جدول بيانات المعلم لهذا الفصل يوم  الثلاثاء حصتين ويوم الخميس حصتين

ونفس الاستاذ ال هو ياسر مادة دراسات لنفس الصف ولكن لفصل اخر 2/1 ب ايضا 4 حصص  ولكن تم توزيعهم  يوم الاحد والثلاثاء
وهكذا لكل المدرسين
اذا المطلوب هو توزيع المدرس طبقا لسجلات جدول بيانات المعلم
ومرفق الملف + السطر او الجزء الذى سوف يتم التعديل عليه ومشار بالون الاحمر

مع العلم ان M  هى mada او  MOALEM  و    (b = 4) يعنى يبداء التوزيع من حق رقم 4 و ( b = b + 16) معناه ان من حقل الاحد1 الى الحق الاحد_مادة8  تساوى 16 حقل لانه بيحسب الفصل والمادة * 8 جصص = 16 وكذلك  ( E = E + 16) ام  ( If E > 81 Then ) معناها ان عدد الحقول الذى يتم التوزيع عليها 81 حقل

انا حاولت اعمل تعديل ولكن لم يفلح سوف اعرض الملفين الاول الذى اريد تعديلة والثانى الذى حاولت التعديل عليه ولم افلح
اتمنى يكوم فى اهتمام  ولو فى شئ مش واضح او عايز استفسار انا على استعداد لتوضيحة

 

Public Function RECORDHSA(MOALEM As Recordset, mada As Recordset, TABLE As Recordset)
Dim I, M
Dim TSGELHSA
Dim b, E
Dim ADDHSSOK As String
Dim ADDHSSALWM
'___________________________
For M = 1 To mada  ![عدد الحصص]

التغير فى هذا السطر اريد FOR M = الاحد والاثنين والثلاثاء والاربعاء والخميس طبقا لتوزيع كل سجل فى جدول بيانات المعلم 
    TSGELHSA = "NO"
     If M = 1 Or M = 3 Or M = 8 Or M = 17 Or M = 22  Then
      b = 4
      E = 15
    Else
      b = b + 16
      E = E + 16
    End If
If E > 81 Then
      b = 4
      E = 15
    End If

الذى يتم التعديل عليه.rar

الذى تم التعديل عليه.rar

تم تعديل يونيو 29, 2018 بواسطه حمدى الظابط