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.
Kaydı Kaydet isimli düğmenin kodunu