السلام عليكم ورحمة الله
أخواني
في المرفق كود نقلته من احدى مشاركات الأخ startnet في منتدى المحيط العربي
وهو كالتالي
Dim db As Database
Dim Rs As Recordset
Set db = CurrentDb
Set Rs = db.OpenRecordset("t2")
Rs.AddNew
Rs!n = Me.n.Value
Rs!sname = Me.sname.Value
Rs!dd = Me.dd.Value
Rs.Update
Rs.Close
ولكنه لا يعمل لنقل البيانات من النموذج f1 إلى الجدول t2 عند الضغط على زر نقل
لو ترشدوني إلى الخلل يرحمكم الله
المرفق
قاعدة بيانات1.rar