便利な使い方

Access のリンクテーブルのパスを一括して変更したい

最終更新日:2008/5/4

Microsoft Access でリンクテーブルを作成していて、リンク元のファイルのパスが変わった場合に、VBA でコードを作成するとリンクテーブルのリンク先を一括して変更することができます。

    Dim strOldPath As String
    Dim strNewPath As String
    
    strOldPath = リンク元のファイルのパス(変更前)
    strNewPath = リンク元のファイルのパス(変更後)
    
    Dim tbl As TableDef
    For Each tbl In CurrentDb.TableDefs
        If (tbl.Connect <> "") Then
            tbl.Connect = Replace(tbl.Connect, strOldPath, strNewPath)
            tbl.RefreshLink
        End If
    Next