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

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

جرب التالي (لاحظ اني عطلت فتح قاعدة البيانات في 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
& "#"

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

[hosney]

انت هنا يا ابو رائد

[hosney]

شكرا جزيلا يا ابو رائد

[hosney]

عاوز اتحكم فيه من الخارج

[hosney]

بدلا من FirstName احطها من خلال التكست بوكس من الخارج

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

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

ما فيه مشكلة، بدل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

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

[hosney]

شكرا جزيلا يا اخى

[اشروفا]

استخدم امر alter table هيريحك كتير وهيخليك تعمل اللى انت عاوزه فى سطر واحد ومن غير ما تقفل داتا ولا اى حاجة من دى
مثال على حذف عمود :
cn.Execute "alter table tab drop column dat"
الشرح : انا هنا استملت امر alter table وقولت له روح لعى الجدول اللى اسمه tab واحذف منه الحقل اللى اسمه dat
مثال على اضافة عمود جديد :
cn.Execute "alter table tab add dat date"
اكيد مش محتاج شرح كل اللى انا عملته شيلت drop column المسؤلة عن حذف الحقل وحطيت مكانها add المسؤلة عن اضافة حقل جديد مع مرعاة كتابة اسم الحقل ونوعه اذا كان نصى ولا رقمى ولا تاريخ .

[hosney]

شكرا جزيلا

[hosney]

واما فى حالة استدعاء هذا العمود كيف يحدث الاستدعاء