اخوي الكود هذا ما يصلح لمثل عملك
في الرئيسي لديك 46 حقل يجب ان تكتب كلها تحت الجزئية التالية :
With Me.RecordsetClone
.AddNew
!CustomerID = Me.CustomerID
!EmployeeID = Me.EmployeeID
!OrderDate = Date
'etc for other fields.
.Update
شوف السطر قبل الاخير ايش يقول
اظن اننا بحاجة الى امر نسخ شامل