Formunuzun kodlarında Command118 nolu komut tuşunun kodlarını aşağıdaki şekilde yapınız.
Private Sub Command118_Click()
If MsgBox("Değişiklikler kaydedilsin mi?", 36, "K A Y D E T") = 6 Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else
Me.Undo
End If
DoCmd.Close
DoCmd.OpenForm "FRM_MAIN"
Exit_Command118_Click:
Exit Sub
Err_Command118_Click:
'MsgBox Err.Description
Resume Exit_Command118_Click
End Sub