aşağıdaki kodu dener misiniz?

Private Sub Form_BeforeUpdate(Cancel As Integer)

   Dim strMsj As String

   Dim intOnay As Integer

 

   strMsj = "Değişiklikler kaydedilsin m??" & Chr(10)

   strMsj = strMsj & "Kaydetmek için EVET'e iptal etmek için HAYIR'a basınız."

 

   intOnay = MsgBox(strMsj, vbQuestion + vbYesNo, "Kaydedilsin mi?")

    

   If intOnay = vbNo Then

    

      DoCmd.RunCommand acCmdUndo

      Cancel = True

   End If

End Sub