سؤال في طريقة حفظ السجلات

في حدث قبل التحديث لنموذج ادخال البيانات جرب الكود التالي:

Dim strMsg As String
    strMsg = "لقد وقع تعديل للبيانات."
    strMsg = strMsg & "هل تريد حفظ التعديلات?"
    strMsg = strMsg & "نعم للحفظ , لا للتراجع."
    If MsgBox(strMsg, vbQuestion + vbYesNo, "حفظ السجل؟") = vbYes Then
        'do nothing
    Else
        DoCmd.RunCommand acCmdUndo
        
    End If

شكرا أخي وجزاك الله كل خير

شكرا لك كود جدا جميل