جزاكما الله خيرا مهندس يوسف احمد واخى سعيد صواب لكن فى الحقيقه انا استخدم الكود الاتى لترحيل البيانات
If MsgBox("هل تريد نقل الاجمالى" & vbCrLf & "", vbYesNo, "تحديث") = vbYes Then
Dim Rs As DAO.Recordset
'تعريف الجدول
Set Rs = CurrentDb.OpenRecordset("special")
'البحث عن رقم السجل المعدل
Rs.MoveFirst
Do Until Rs.EOF
'اذا وجد السجل
If Rs!id = id Then
'تحريره
Rs.Edit
'القيمه
Rs!total = p3
Rs!pyd = m1
Rs!pky = m2
'تحديث
Rs.Update
End If
Rs.MoveNext
Loop
MsgBox "تم التحديث "
End If
Set Rs = Nothing
وهذا الكود لايظبط معى فى اى حدث غير عند النقر على زر امر جربت وضعته فى حدث بعد التحديث لمربع نص ولم تفلح وفى هذا المثال وضعته بعد تحديث مربه نص Pyd فى النموذج inv
New Microsoft Access قاعدة بيانات (4).rar