اريد التعديل على دالة IF

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

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

مع العلم شرح الرموز الموجودة بالكود  (b = 4)  يعنى يبداء التوزيع من حق رقم 4 و ( b = b + 16) معناه ان من حقل الاحد1 الى الحق الاحد_مادة8  تساوى 16 حقل لانه بيحسب الفصل والمادة * 8 جصص = 16 وكذلك  ( E = E + 16) ام  ( If E > 81 Then ) معناها ان عدد الحقول الذى يتم التوزيع عليها 80 حقل
ارجو الضغط على زر حذف قبل الضغط على زر التوزيع وزر عدم التعارض ثم الرجوع الى جدول teacher class لمعرفى اذا كان تم التعديل والتوزيع  ام لا

Private Sub hlaltath_Click()
Dim day_ As Integer
Dim b As Integer
Dim e As Integer
Dim tb As Recordset
Dim tbimage As Recordset
Dim i As Integer
Set tb = CurrentDb.OpenRecordset("teacher class", dbOpenDynaset)
b = 4
e = 15
For day_ = 1 To 5
  If day_ <> 1 Then
   b = b + 16
   e = e + 16
  End If
 For i = b To e Step 2
  tb.MoveFirst
  Do While tb.EOF = False
    Set tbimage = CurrentDb.OpenRecordset("teacher class", dbOpenDynaset)
    tbimage.MoveFirst
    Do While tbimage.Fields(i) <> tb.Fields(i) Or tbimage.Fields(i + 1) <> tb.Fields(i + 1)
     If tbimage.Fields(i) = tb.Fields(i) Then
      Call tbdelhss(tb, tbimage, i, b, e)
      Exit Do
     End If
     tbimage.MoveNext
    Loop
    tb.MoveNext
  Loop
 Next i
Next day_
End Sub

جدول الحصص.rar

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