Kaydı Kaydet isimli düğmenin kodunu

Private Sub Komut33_Click()

On Error GoTo Err_Komut33_Click

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    Me.Liste39.Requery

Exit_Komut33_Click:

    Exit Sub

Err_Komut33_Click:

    MsgBox Err.Description

    Resume Exit_Komut33_Click

End Sub

ile değiştirip deneyin.