وعليكم السلام ورحمة الله وبركاته،،
أخي الكريم
جرب هذه الطريقة
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "حصل تغيير في البيانات"
strMsg = strMsg & "هل تريد الحفظ ؟"
strMsg = strMsg & "نعم للحفظ ، لا للتراجع ."
If MsgBox(strMsg, vbQuestion + vbYesNo, "حفظ السجل") = vbYes Then
Else
DoCmd.RunCommand acCmdUndo
End If
End Sub