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
Buton kodlarını aşağıdaki ile değiştir.