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

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

ما فيه مشكلة، بدلFirstName اكتب Me.Text1.Text كالتلي

كود :

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(Me.Text1.Text, [color=#FF0000]dbText[/color], 20)
    
    Set tdf = Nothing
    Set dbs = Nothing
    
End Sub

لكن لازم تعرف نوع الحقل وأنواعها هي
نص dbText مع تحديد طول الأحرف
رقم dbInteger، dbDecimal، dbDouble، dbSingle
تاريخ dbDate
نعم/لا dbBoolean

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