aşağıdaki kod işinize yarayabilir
bir düğmeye atayabilirsiniz yada uygulama açılır açılmaz çalışması sağlanabilir
Not: bağlı tabloların olduğu dosya ile ana veritabanı aynı dizinde olmalı
istenirse yordam belirli bir alt klasöre göre yeniden düzenlenebilir

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

---

not2: istenirse pasif yapılan kod da kullanılabilir