Sub BaglıTablo()
Dim TblAdi As TableDef

'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
'                        xAdrs = InStrRev(TmpAdres, "\")
'                        y = y + 1
'                        Debug.Print y, TblAdi.Name, TmpAdres, CurrentProject.Path & Mid(TmpAdres, xAdrs)
'                        TblAdi.Connect = ";DATABASE=" & CurrentProject.Path & Mid(TmpAdres, xAdrs)
'                        TblAdi.RefreshLink
'                    End If
'                    Next TblAdi
    For Each tdf In CurrentDb.TableDefs
        If tdf.Connect <> "" Then
        TmpAdres = tdf.Connect
        xAdrs = InStrRev(TmpAdres, "\")
            tdf.Connect = ";DATABASE=" & CurrentProject.Path & Mid(TmpAdres, xAdrs)
            tdf.RefreshLink
        End If
    Next tdf

MsgBox "bağlı tablolar güncellendi"
End Sub