Otomatik kayıt yerine Kaydetme soru uyarısı.

Forma girdiğim bilgilerin otomatik kayıt yerine Kaydedilsinmi soru uyarısını nasıl sağlayabilirim.
Saygılarımla.

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

Hocam elinize sağlık,ancak hayır'ı tkladığımızda kod hatası veriyor.
Saygılarımla.

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.

Sayın puletin hocam kodu nereye kopyalacağım onuda açıkalrsanız memnun olurum.

---

Hocam şimdi tamam tşk ederim
Yaplan değişiklikler kaydedilsinmi diye uyarı yaptı.Emeğinize sağlık.
Sağolun varolun.

Sayın hocam yeni bir konu açtım örnekte ekledim bu sorunumada yardımcı olursanız memnun olurum.