30/05/2019, 11:49
Merhaba, silme kodunu aşağıdaki ile değiştirerek deneyiniz
' MsgBox "Bu Tuşu Aktif Yapmak isterseniz Tasarımcı ile irtibata geçiniz.", vbInformation, "Tasarım"
If MsgBox("Kayıtı silmek istediginize eminmisiniz.", vbCritical + vbOKCancel) = vbOK Then
CurrentDb.Execute "INSERT INTO Tbl_Silinen_Firmalar_data SELECT * FROM Tbl_Firmalar_data where FirmaID=" & Me.FirmaID
CurrentDb.Execute "Delete Tbl_Firmalar_data.FirmaID FROM Tbl_Firmalar_data WHERE Tbl_Firmalar_data.FirmaID=" & Me.FirmaID
'DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 'Kaydı Seç
'DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 'Kaydı sil
DoCmd.Close acForm, "FirmaSİLME"
Forms![Frm_Firma_ismiBUL]![lstMusteriListesi].Requery
Else
Me.Undo
MsgBox "Kayıt silme işlemi iptal edildi."
End If
DoCmd.Close acForm, "Frm_Firma_Bilgileri"