Buton kodlarını aşağıdaki ile değiştir.

Private Sub Komut46_Click()

On Error GoTo Err_Komut46_Click





If MsgBox("Kapatmadan önce kaydedilsin mi?", vbYesNo, "Kaydediliyor...") = vbYes Then

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    DoCmd.Quit

Else

    Me.Undo

    DoCmd.Quit

End If

 

Exit_Komut46_Click:

    Exit Sub



Err_Komut46_Click:

    MsgBox Err.Description

    Resume Exit_Komut46_Click

    

End Sub