[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته

جرب التالي (لاحظ اني عطلت فتح قاعدة البيانات في Form_Load لأنه مو معقول حينفذ وقاعدة البيانات مفتوحة بأمر آخر)

كود :

Private Sub Form_Load()
'    Set T1 = D1.OpenRecordset("biofthedrinks", dbOpenTable)
'    Set T2 = D1.OpenRecordset("biofthedrinks", dbOpenTable)
'    Call ShowData
End Sub

Private Sub Command1_Click()
    
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    
    Set dbs = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\data1.mdb", False, False)
    
    Set tdf = dbs.TableDefs("biofthedrinks")
    tdf.Fields.Append tdf.CreateField("FirstName", dbText, 20)
    tdf.Fields.Append tdf.CreateField("LastName", dbText, 20)
    
    Set tdf = Nothing
    Set dbs = Nothing
    
End Sub
& "#"

السلام عليكم ورحمة الله وبركاته