hocam öncelikle cevabınız için çok tşk ederim,
boş bir form açtım bütün kodları ekledim çalıştırdığımda aşağıdaki kod satırında hatayı verdi neden acaba?
TmpAdres = TblAdi.Connect
Private Sub Komut0_Click()
Dim TblAdi As TableDef
Dim BglVtAdr, DzBglVtAdr As String
Dim BglVt As Object
DzBglVtAdr = ""
'Veritabanındaki Tüm Bağlı tabloların Adresini alır ve mtin olarak kaydeder
For Each TblAdi In CurrentDb.TableDefs
TmpAdres = TblAdi.Connect
X = InStr(1, TmpAdres, ";DATABASE=")
TmpAdres = MID(TmpAdres, 11)
If X = 1 And Len(TmpAdres & "") > 0 And InStr(1, DzBglVtAdr, TmpAdres) = 0 Then DzBglVtAdr = DzBglVtAdr & ";" & TmpAdres
#13
