kayıtta değişiklik olup olmadığını kontrol için

kayıtta değişiklik olup olmadığını kontrol için
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim response As Integer

response = MsgBox("Değişiklikleri kaydetmek istermisiniz?", vbYesNo + vbCritical, "Kaydetme")

If response = vbNo Then
Me.Undo
Cancel = True

End If

form un dirty olayı da var tabi..

Sayın hocaları
yazdığınız kod ve dirty özelliği hakkında biraz bilgi verebilirmisiniz?

hazırladığım forma sihibaz yardımı ile formu kapatma butonu ekledim
ancak bir iki kullanımdan sonra
formun dirty özelliğine uygun hareket edilmediği yolunda mesaj verdi ve düğme artık çalışmadı.
Bende kod dan

If Me.Dirty Then Me.Dirty = False

satırını sildim çalıştı.
Ancak bir süre sonra o da hata verdi ve çalışmadı.
bu konuda biraz açıklama yapabilir misiniz?