السلام عليكم استاذي Foksh شكرا لردك و علي وقتك 
 
	اقوم بتنفيذ فكره للاشعارات في برنامجي 
 
	واريد تعبئة نموذج فرعي ببيانات من جداول مختلفة و هذه هي الغاية 
 
	 
 
 
	اما النموذج الرئيسي فهو غير منضم ايضا
 
	و حاولت وبحثت و سألت شات جي بي تي 
 
	و كان الرد الكود التالي 
 
	 
 
Private Sub Form_Load()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    ' Open the database
    Set db = CurrentDb
    
    ' Open a recordset for the desired table
    Set rs = db.OpenRecordset("YourTableName")
    
    ' Move to the first record
    rs.MoveFirst
    
    ' Loop through each record
    Do Until rs.EOF
        ' Set the field values of the form to the values in the recordset
        Me.FieldName1 = rs("FieldName1")
        Me.FieldName2 = rs("FieldName2")
        ' Add more lines as needed for each field
        
        ' Move to the next record
        rs.MoveNext
    Loop
    
    ' Close the recordset
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub
	و لكن عند التنفيذ تتم تعبئة اخر سطر فقط في الجدول