لماذا لا ينقل هذا الكود البيانات من النموذج إلى الجدول

[الصّارم]

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

أخواني

في المرفق كود نقلته من احدى مشاركات الأخ 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

تم تعديل يناير 8, 2013 بواسطه الصّارم

[ابوخليل]

بعد التجربة :

الكود شغال وينقل سجل سجل

السجل الذي تريد نقله اجعل المؤشر داخله

[الصّارم]

تحية طيبة أبو خليل

ولكن أخ أبا خليل لم لا ينقل جميع البيانات دفعة واحدة

بدون أن ينقل السجل الذي عليه المؤشر هل يمكن التعديل عليه

لو تكرمت؟؟؟

تم تعديل يناير 8, 2013 بواسطه الصّارم

[ابوخليل]

تفضل تم التعديل

قاعدة بيانات2.rar

[الصّارم]

بارك الله بك أخ أبو خليل

مشكور ولك أكبر تحية