Kaydet butonunun tıklandığında olayına
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.RunCommand acCmdSaveRecord
Kapat butonunun tıklandığında olayına
If Me.Dirty = True Then
If MsgBox("Değişiklikler kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.RunCommand acCmdSaveRecord
Else
Me.Undo
End If
End If
kodu ekleyerek deneyiniz.