Sayın subco;
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

İyi çalışmalar.