السلام عليكم
عندي برنامج لدورة حاسب آلي في مركز تدريب
قاعدة البيانات بسيطة عبارة عن ثلاث جداول
الطالب - والمادة - وجدول ثالث بينهما سميته باسم "يدرس"
المطلوب: كيف اضيف سجلات لقاعدة البيانات عن طريق الكود في "زر أمر" داخل نموذج
جزاكم الله خيرا
فتح قاعدة البيانات عن طريق الكود؟
مغلق
اخي العزيز
لا ادري اذا كانت الكودات ادناه هي الذي تعنيه
Private Sub Command11_Click()
Dim dbs As Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("dealers", dbOpenDynaset)
With rst
.AddNew
![DealerName] = Me.Text0
.Update
.Close
End With
End Sub
المعنى هو تعريف قاعدة البيانات الحالية ثم يتم فتح جدول باسم dealer
الخطوات التالية هي اضافة سجل جديد مع اعطاء قيمة لحقل في الجدول يساوي قيمة مربع نص على نموذج معروض ، تحديث الجدول وحفظه ثم اغلاقه
وشكرا
رمضان كريم
شكرا جزيلا أخي الكريم ابو سالار
تقبل الله منا وومنك
هذا الموضوع مغلق.