Kaydet Butonu olayına şunu dener misin.

On Error GoTo Err_Komut56_Click

    

    DoCmd.RunCommand acCmdRefresh

    If MsgBox("Değişiklikler kaydediliyor!", 36, "Kayıt İşlemi") = 6 Then

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

  

  End If

    

Exit_Komut56_Click:

    Exit Sub



Err_Komut56_Click:

    MsgBox Err.Description

merhaba sn raham hocam kusura bakmayın cevabınızı yeni gördüm hafta sonu bulunduğum yerde internet bulunmuyordu. kodu denedim çok teşekkür ederim sorun çözüldü hocam. ellerinize sağlık