Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
.zip Giris_Cikis.zip (Dosya Boyutu: 2,83 MB | İndirme Sayısı: 1)
Son Düzenleme: 12/12/2019, 17:17, Düzenleyen: Mr.Midnight.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Run_Time Error '3420' Hatası (Acil Yardım Lütfen) - Yazar: Mr.Midnight - 12/12/2019, 16:48
Task