Kod:
If NewRecord = True Then 'burda diyoruz ki eğer yeni eklenecek bir kayıt ise
If MsgBox("Kayıt eklensin mi?", vbYesNo + vbInformation, "Kaydet") = vbNo Then
DoCmd.RunCommand acCmdUndo 'burda diyoruzki eğer ben hayır dersem işlemi geri al
DoCmd.Close 'kapat
Else
DoCmd.Close
End If
End If