AccessTr.neT

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.

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

(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

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?

(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?

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