هذا هو الكود الخاص بالحصتان المتتاليتان
Public Function MAKEIT1()
Call TSFERTABLE1
Dim mada As Recordset
Dim MOALEM As Recordset
Dim TABLE As Recordset
On Error Resume Next
'_____________________
Set mada = CurrentDb.OpenRecordset("SELECT * FROM [بيانات المادة] ORDER BY [متتالية] DESC,[الصف]", dbOpenDynaset)
Set TABLE = CurrentDb.OpenRecordset("teacher class1", dbOpenDynaset)
'_____________________
mada.MoveFirst
Do While mada.EOF = False
Set MOALEM = CurrentDb.OpenRecordset("SELECT * FROM [بيانات المعلم] WHERE [الصف] = " & mada![الصف] & " AND [المادة] =" & "'" & mada![المادة] & "'" & " ORDER BY [الفصل]", dbOpenDynaset)
MOALEM.MoveFirst
Do While MOALEM.EOF = False
TABLE.FindFirst "[رقم]=" & MOALEM![رقم]
Call RECORDHSA(MOALEM, mada, TABLE)
MOALEM.MoveNext
Loop
mada.MoveNext
Loop
End Function