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
aşağıdaki kodu dener misiniz?