اخي تختار قبل التحديث في النموذج وتكتب الكود التالي
If MsgBox("هل انت متأكد من حفظ هذه البيانات", vbYesNo, "رسالة تنبيه") = vbYes Then
MsgBox " تم الحفظ بنجاخ", vbInformation, "انتهاء من الحفظ"
Else
DoCmd.RunCommand acCmdUndo
MsgBox " تم الغاء حفظ البيانات", vbInformation, "الغاء حفظ"
End If