Formunuzun Kapandığında Olayına
Dim response As Integer
response = MsgBox("Değişiklikleri kaydetmek istermisiniz?", vbYesNo + vbCritical, "Kaydetme")
If response = vbNo Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Cancel = True
End If
yazınız + Örnek