Bu kod işinize yarayacaktır.

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("Değişiklikler kaydedilsin mi?", _

        vbYesNo) = vbNo Then

        Cancel = True

        DoCmd.RunCommand acCmdUndo

        End If

    End If

End Sub