اريد تعديل على هذا الكود

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

السلام عليكم

اريد ربط الحقول الاتية / (حقل الصف) - (حقل اليوم) - (حقل حصص اليوم ) من جدول بيانات الصف  الى هذا الكود

 

Public Function hlaltath()
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 = 0
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 Function

جدول الحصص.rar