(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