السلام عليكم
اريد ربط الحقول الاتية / (حقل الصف) - (حقل اليوم) - (حقل حصص اليوم ) من جدول بيانات الصف الى هذا الكود
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