Private Sub Form_BeforeUpdate(Cancel As Integer)

    ' formda yanlışlıkla bir veri üzerinde değişiklik yapmayalım diye

    ' değişiklik durumunda onay alıyoruz.



    If NewRecord = False Then

If MsgBox("Yapılan Değişiklikler kaydedilsin mi?", vbQuestion + vbYesNo, "Onay") = vbNo Then

DoCmd.RunCommand acCmdUndo

End If

End If



'Buda Yeni kayıt yaptığınız da size işlem onayı için soracaktır

If NewRecord = True Then

If MsgBox("Yapılan Değişiklikler kaydedilsin mi?", vbQuestion + vbYesNo, "Onay") = vbNo Then

DoCmd.RunCommand acCmdUndo

End If

End If



End Sub

Hata vermemesi gerekir. Deneyiniz Lütfen.