AccessTr.neT
Bağlı Tablo Verisi İçeren Listbox Hatası - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bağlı Tablo Verisi İçeren Listbox Hatası (/konu-bagli-tablo-verisi-iceren-listbox-hatasi.html)

Sayfalar: 1 2 3


Bağlı Tablo Verisi İçeren Listbox Hatası - sipuasfaf - 12/12/2020

Merhaba Arkadaşlar;

Ağda ortak bir bölünmüş veritabanı üzerinden linklediğim bir tablo var. Bağlı bilgisayar kapalı olduğunda bu tablo verilenin bulunduğu listbox 'u içeren formu açarken access, bağlı tablo yolunu bulamadığı için bir hata alıyorum. Bu hatayı msgbox olarak ifade etmek istiyorum. Denediğim yol ise tablonun ağdaki accdb dosya yolununu kontrol ederek, eğer mevcut değilse ekler kısmında eklediğim hata yerine msgbox ile kendi hatamı yazdırıyorum. Fakat bu sefer hem ekler kısmındaki hata hem de benim eklediğim ileti kutusu görünüyor. Bu sisteme ait hatayı gösterme olayını nasıl iptal ederim?
Saygılar.

[Resim: do.php?img=10621]


RE: Bağlı Tablo Verisi İçeren Listbox Hatası - berduş - 12/12/2020

Eğer yol mevcut degilse liste kutusunun satır  kaynağını boşaltmayı deneyebilirsiniz


RE: Bağlı Tablo Verisi İçeren Listbox Hatası - sipuasfaf - 14/12/2020

(12/12/2020, 18:20)berduş yazdı: Eğer yol mevcut degilse liste kutusunun satır  kaynağını boşaltmayı deneyebilirsiniz

Onu da şu şekilde denedim. Fakat çözüm olmadı. Satır kaynağını boşaltmıyor. Ayrıca bunu silersem, yol ulaşılabilir olduğunda bu liste kutusunun satır kaynağı eskisi gibi olmalı. Aşağıda yazdığım kod ile çalıştıramadım.


Private Sub Form_Error(DataErr As Integer, Response As Integer)
   
Dim strSQL As String

strSQL = "SELECT Tbl_Sp.ID, Tbl_Sp.TRH" & _
"FROM Tbl_Sp"

    If Not dosyavarmi("********.accdb") = True Then
        MsgBox "Veritabanına bağlanılamadı", vbCritical, "Hata"
        Me.Liste.RowSource = ""
        Me.Liste.Requery
    Else
    Me.Liste.RowSource = strSQL
    Me.Liste.Requery
    End If

End Sub



RE: Bağlı Tablo Verisi İçeren Listbox Hatası - berduş - 14/12/2020

Fonksiyonunuza
DataErr =0
Yada
Response=0
Satirlarindan birini ekl3meyi dener misiniz?
Eger hata kodunu biliyorsanız
If Err.num=hatakodu then err=0 benzeri bir kod vardi tam olarak hatırlayamadım o da dener misiniz?


RE: Bağlı Tablo Verisi İçeren Listbox Hatası - sipuasfaf - 14/12/2020

(14/12/2020, 09:00)berduş yazdı: Fonksiyonunuza
DataErr =0
Yada
Response=0
Satirlarindan birini ekl3meyi dener misiniz?
Eger hata kodunu biliyorsanız
If Err.num=hatakodu then err=0 benzeri bir kod vardi tam olarak hatırlayamadım  o da dener misiniz?

Üstad Response=0 ile sorun çözüldü sayılır. Fakat bu bağlı tabloya ait aynı form içinde 3 adet listbox var ve yazdığımız
MsgBox "Veritabanına bağlanılamadı", vbCritical, "Hata"
hata kısmını 3 kez veriyor. Bunu nasıl önleyebiliriz?


RE: Bağlı Tablo Verisi İçeren Listbox Hatası - berduş - 14/12/2020

Ilgili formun olduğu çalışmanızı ekleyin inceleyelim?
Kodun tamamını görmeden bir şey söylemem zor. 3. mesajınızda tek liste için kontrol var, bu haliyle diğerleri için uyarı vermemesi gerek. Herbir liste icin ayri ayri yazdıysanız birlestirip tek kontrol dongusune sokmaniz yeterli olabilir