他のファイルからリンクしてるテーブルリンクのパスを

質問

アクセスです。

Sub Sample()
Debug.Print CurrentDb.TableDefs("T_TEST").Connect
End Sub

このコードでアクセスの他のファイルからリンクしてるテーブルリンクのパスを取得できますが
VBAでパスを変更するにはどうすれば良いでしょうか？

例えば
;DATABASE=C:\Users\\TEST1.accdb
を
;DATABASE=C:\Users\\TEST2.accdb
に変更するコードが知りたいです。

回答No.1

m3_maki · ベストアンサー

こんな感じで。

Sample()
　Dim dbs As DAO.Database
　Dim tdf As DAO.TableDef
　Set dbs = CurrentDb
　Set tdf = dbs.TableDefs("T_TEST")
　With tdf
　　.Connect = ";DATABASE=C:\Users\\TEST2.accdb"
　　.RefreshLink
　End With
End Sub

Replace 関数を使っても良いですね。

お礼

ご回答ありがとうございました。