AccessTr.neT

Herkese merhaba;
Tümünü sil isimli oluşturduğum bir buton kodunda hata yaşıyorum ve bu hata formdaki tüm Me.Requery kodlarımı etkiliyor. Programın verdiği hata Run-Time error '3420' Nesne geçersiz veya artık ayarlı değil. Bu hatayı verip aşağıdaki eklemiş olduğum kodlardaki Me.Requery'i işaret ediyor ve hatayı durdur yaptıktan sonraki formda yer alan tüm Me.Requery kodlarımı engelliyor. Acaba kod sayfasında eklemeyi unuttuğum bir referans bu durumu tetikliyor olabilir mi?

Not: Aynı kod bloğu benzer bir formumda gayet güzel çalışıyor...

Private Sub btnTumunuSil_Click()

Dim mesaj1

    mesaj1 = MsgBox("Bu Belgede kay?tl? olan t?m kayd? silmek ?zerisiniz" & Chr(13) & "Belgede kay?tl? olan t?m kayd? silmek istedi?inizden eminmisiniz!" & Chr(13) & "Silme i?lemini onaylarsan?z kay?tlar geri d?nd?r?lemeyecek ?ekilde silinecektir", vbYesNo, "Kay?t Silme Uyar?s?")

If mesaj1 = vbYes Then

    Dim Sql As String

    Me.Undo

    DoCmd.SetWarnings (False)

    Sql = "DELETE tbl_Cikis.*, tbl_Cikis.CikisKayitNo FROM tbl_Cikis WHERE (((tbl_Cikis.CikisKayitNo)=[Forms]![frm_Cikis]![txtCikisKayitNo]));"

    DoCmd.RunSQL sql

    DoCmd.SetWarnings (True)

    Recalc

    TumDenetimPasif

    Me.txtCikisKayitNo = ""

    Me.txtCikisKayitKlmNo = ""

    Me.Requery

    MsgBox "Belge silme i?leminiz tamamlanm??t?r", vbInformation + vbOKOnly, "Bilgi"

ElseIf mesaj1 = vbNo Then

       MsgBox "Silme ??lemi ?ptal Edildi", vbInformation + vbOKOnly, "Silme ?ptal Edildi"

       'TumDenetimPasif

End If

       

End Sub

[attachment=30974]

isterseniz çalışmanızı ekleyin inceleyelim
hangi form ve hangi buton olduğunu belirtin yalnız

(12/12/2019, 16:56)berduş yazdı: [ -> ]isterseniz çalışmanızı ekleyin inceleyelim
hangi form ve hangi buton olduğunu belirtin yalnız

Sayın berduş;

Açmış olduğum konu mesajının altına dosyamı ekledim. Hata aldığım form frm_Cikis formu olup formda yer alan çöp kutusu iconlu btnTumunuSil adlı butonun tıklandığında komutunda debug hatası alıyorum ve yukarıda da belirttiğim üzere hata me.requery koduma odaklanıyor. Ancak aynı kod yapısı programımdaki frm_Giris adlı formumda da kullanıyorum ve hata almıyorum...

ben de 2sinde de hata verdi "PasifOlsun" fonksiyonunda case acComandButton satırında hata veriyor

(12/12/2019, 17:34)berduş yazdı: [ -> ]ben de 2sinde de hata verdi "PasifOlsun" fonksiyonunda case acComandButton satırında hata veriyor

Bu hatayı ne yaparken aldınız acaba?  Formda yeni kayıt butonuna bastıktan sonra kayıt işleminden vazgeçmek için çöp kutusuna bastığınızda hata almanız lazımdı...

VTnizle ilgili acwzmain.accde referansı eksikmiş
sistem yöneticisi olarak giriş yapıp
öyle denediğimde 2 formda da silme butonu hiç bir eylem gerçekleştirmedi.
mesaj ekledim onu bile göstermedi.