リンク先の変更モジュール

アップロード先のサーバのディレクトリーがLocalと異なっており、参照テーブルがある場合、
Loacalでリンクテーブルの参照先を前もって変更しておく必要があります。
以下モジュールを実行後、サーバにアップします。



Option Compare Database
Option Explicit
Sub リンク先DBの変更()
    Dim strOldPath As String
    Dim strNewPath As String
   
    'strOldPath = リンク元のファイルのパス(変更前)
    'strNewPath = リンク元のファイルのパス(変更後)
   
    strOldPath = "F:\AAAA\BBBB.mdb"
    strNewPath = "D: \AAAA\BBBB.mdb "
   
   
    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

End Sub