21/12/2012, 22:41
raham
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