formdaki kapat düğmesini pasifleştirip
yeni bir kapat düğmesi ekleyin

Alıntı:

Kod:

Private Sub Kapat_Click()

Dim vt As Database
   Dim frm As Form
   Set vt = CurrentDb
   Set frm = Forms!Form1
   Dim int_iptal As Integer

int_iptal = MsgBox("Form Kapatılsın mı? ", vbYesNo + vbQuestion, "Güncelleştirmeleri geri al!")

If int_iptal = vbYes Then
  DoCmd.Close acForm, "Form1", acSaveNo ' form kapatılrken kayıt yapsın istiyorsanı acSaveYes yapacaksınız
 
ElseIf int_iptal = vbNo Then
End If

   
End Sub