هذا هو الكود الخاص بالحصتان المتتاليتان
 
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