sayın raburabu,

bahsettiğiniz hususa dair tekrar incelediğimde fark ettim ki,

Private Sub Form_BeforeUpdate(Cancel As Integer)

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR



If tamamlama_durumu = True Then Exit Sub

tamamlama_durumu = True

islem_durumu = MsgBox("Kaydetmeden çıkmak istiyor musunuz?", vbQuestion + vbYesNoCancel, "GERİ ALMA UYARISI")



Select Case islem_durumu

Case vbNo:



Case vbYes:

    Me.Undo

Case vbCancel:

    Cancel = True

End Select



End Sub

Me.Undo kod satırını,

Case vbYes:

satırının altında olması gerekiyordu.fakat,

Case vbNo:

satırı altında yazılı kaldığı görülmüştür.yukarıdaki kod şeklinde kullanmayı deneyiniz.farkına varmamı sağladığınız için teşekkür ederim.

10.mesajdaki örnek uygulama düzeltilerek tekrar eklenmiştir.

bilginize...iyi çalışmalar,saygılar.