önce kaydet butonundaki makryu sil ve daha sonra aşağıdaki kodu
olay yordamı olarak kaydet yeterli

Dim X, A, b

On Error GoTo Err_Komut28_Click

If IsNull(Me.Ad) Then MsgBox "Lütfen Kişi adını yazınız", 48, "Kayıt İşlemi": Me.Ad.SetFocus: Exit Sub

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

Exit_Komut28_Click:

 Exit Sub

Err_Komut28_Click:

 MsgBox "Kaydetme işlemi yapılamadı", 0, "Kayıt İşlemi"

 Resume Exit_Komut28_Click