AccessTr.neT

Bul · 12/12/2019, 16:48

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...

Visual Basic Code

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

Giris_Cikis.zip (Dosya Boyutu: 2,83 MB | İndirme Sayısı: 1)

Bul · 12/12/2019, 16:56

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

Bul · 12/12/2019, 17:20

(12/12/2019 16:56)berduş Adlı Kullanıcıdan Alıntı: 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...

Bul · 12/12/2019, 17:34

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

Bul · 12/12/2019, 17:42

(12/12/2019 17:34)berduş Adlı Kullanıcıdan Alıntı: 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ı...

Bul · 12/12/2019, 17:58

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.

AccessTr.neT

Run_Time Error '3420' Hatası (Acil Yardım Lütfen)

Run_Time Error '3420' Hatası (Acil Yardım Lütfen)

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri