VBA：Accessのリンクテーブルのリンク先のパス取得方法（DAO）

by chasou_tech · 公開済み 2024年2月9日 · 更新済み 2024年2月10日

１．やりたいこと

　Accessのリンクテーブルのパスを取得したい。

２．サンプルコード

サンプルコードは以下となります。
実行するとAccessのリンクテーブル「リンクテーブル_test1」の接続情報が取得され、そのパスが表示されます。

VBA サンプルコード

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

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）

投稿: 2022年6月18日

【VBA】DAOを使ったテーブルのインデックスの作成と削除の方法について

AccessVBA：テーブルの存在チェック

投稿: 2022年6月1日

Accessにテーブルが存在するかどうかのチェック方法についての説明です。

---

• 次の記事 VBA：Accessのリンクテーブルの接続先（リンク元）の変更方法（DAO）
• 前の記事 VBA：Accessのリンクテーブルの作成方法（ADOX）

おすすめ

• 

  VBA：【ADO】ActiveX Data Objectについて

  2022年6月16日

   by chasou_tech · Published 2022年6月16日 · Last modified 2023年2月10日

• 

  VBA：メッセージボックスを最前面に表示させる方法

  2023年2月3日

   by chasou_tech · Published 2023年2月3日 · Last modified 2023年2月10日

• 

  VBA：ファイルのコピー「FileCopyステートメント」

  2022年6月8日

   by chasou_tech · Published 2022年6月8日 · Last modified 2023年2月10日