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

bu konuya atıfta bulunarak yeni konu açıp örnek dosyalarınızı ekleyin (yaptığınız değişikliklerle hata veren dosyalarınızı) inceleyip yardımcı olmaya çalışalım

---

(25/05/2023, 16:17)ates2014 yazdı: TmpAdres = TblAdi.Connect

bu satırda hata verdiyse sebebi adreste ilgili dosyanın olmaması yada boş olması olabilir
TmpAdres = TblAdi.Connect satırından önce
debug.print TmpAdres yazarak ilgili adresi Vba penceresine yazdırıp verinin ne olduğunu kontrol eder misiniz