Tablo böl ile tablolar bölündüğünde dosyanın dizinini Access saklıyor ve başka bir pc ye dosyayı kopyaladığımızda açılışta hata veriyor. Bu sorunu nasıl düzeltebilirim?

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

Çok teşekkür ederim hocam,

rica ederim
iyi çalışmalar