الربط مابين الفيجوال والاكسس

السلام عليكم

'بداية بسيطة ارجوا ان تستفيد منها
Dim Db As Database
Dim Rec As Recordset

Private Sub Cmd_Add_Click()
'في حال الحقل نوعه نص يجب وضع علامة تنصيص حول القيمة
'كما في Value1
SQL = "Insert Into YouTable(Field1,Field2) Values ('Value1',Value2)"
Db.Execute SQL 'اتنفيذ جملة الاستعلام


End Sub

Private Sub Form_Load()
'yourdatabe.mdb = اكتب مسار واسم القاعدة خاصتك
'YourTable = جدولك الموجود في القاعدة
Set Db = DBEngine.OpenDatabase("c:\yourdatabe.mdb") ' للربط بالقاعدة
Set Rec = Db.OpenRecordset("YourTable") 'للربط بالجدول


End Sub

تحياتي