Merhaba, sorunuzdan anladığım kadarıyla;

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.