AccessTr.neT

iyi çalışmalar;
 Formda Kayıtı Sil diye tıkladığımda aşağıdaki formul formudaki kayıtı silip Silinenler kaydına atıyor. buraya kadar güzel çalışıyor. ama kaydı silince Boş Form Geliyor Formu Öyle Kapatıyor.1 Tane boş form kaydetmiş oluyor.  Boş Form Gelmeden Formu Kapatmasını istiyorum. nasıl yapabilirim.


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
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 'Kaydı Seç
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 'Kaydı sil
    DoCmd.Close acForm, "FirmaSİLME"
 Else
    Me.Undo
    MsgBox "Kayıt silme işlemi iptal edildi."
End If
 DoCmd.Close acForm, "Frm_Firma_Bilgileri"

Form_index.Form.Requery
Form_index.ListKilitlenenFirmalar.Requery

Merhaba, bahsi geçen formun bulunduğu örnek uygulamayı eklerseniz inceleme şansımız olur.

Dosya Ektedir Üstad

Merhaba, önceki mesajınızda belirttiğiniz kod "Frm_Firma_Bilgileri" isimli formda var. Ancak kodda herhangi bir sıkıntı yok. Kayıt kaynağı olan Tbl_Firmalar_data isimli tabloya boş kayıt eklenmiyor.

Malesef Her silişte Boş kayıt atıyor. Tbl_Firmalar_data tablosunu açalım aşagıdaki  resimdeki gibi görüntü var. 



Formdaki listeden Deneme12 yi silelim
Tbl_Firmalar_data  kapatıp açalım silmeden sonra boş kayıt atıyor. aşağıdaki resimdeki gibi oluyor.

sayın @haziran4, dün ilk çalıştırdığımda belirttiğiniz hatayı vermişti ama sonradan 2 defa daha indirip denediğimde @ozanakkaya hocamın dediği gibi sildikten sonra boş kayıt eklemedi.