VBA：Accessのリンクテーブルのリンク先のパス取得方法（DAO）
１．やりたいこと
Accessのリンクテーブルのパスを取得したい。
２．サンプルコード
サンプルコードは以下となります。
実行するとAccessのリンクテーブル「リンクテーブル_test1」の接続情報が取得され、そのパスが表示されます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Option Explicit Private Sub 実行2_Click() Dim dbs As DAO.Database Dim tdf As DAO.TableDef Dim strConnect As String Dim LinkTablePath As String Set dbs = CurrentDb 'リンクテーブル指定' Set tdf = dbs.TableDefs("リンクテーブル_test1") '接続情報を取得' strConnect = tdf.Connect '接続情報からパスを取り出す' LinkTablePath = Mid$(strConnect, InStr(strConnect, ";DATABASE=") + Len(";DATABASE=")) MsgBox LinkTablePath Set dbs = Nothing Set tdf = Nothing End Sub |
◆関連記事
AccessVBA：【DAO】テーブルのインデックス作成・削除（CREATE INDEX・UNIQUE INDEX・DROP INDEX）
【VBA】DAOを使ったテーブルのインデックスの作成と削除の方法について
