Forumda Forumu Silince Boş Form Geliyor

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"

Üstad teşekkür Ederim. Şimdi oldu.

I can help nothing, but it is assured, that you will find the correct decision.

Also what from this follows?

Not in it business.