10
カレントデータベース内にあるすべてのテーブルを探索し、”リンクテーブル”であるものについて、そのリンク先のデータベースファイルのパスを収集します。
- まず「Database」オブジェクトの変数である「dbs」に”カレントデータベース”をセットします。
- そのデータベース内にあるすべてのテーブルのコレクションである「TableDefs」の中から、For Each〜Nextステートメントでひとつずつテーブル情報を取り出し、「TableDef」オブジェクトの変数「tdf」にセットしていきます。
- 「tdf」オブジェクト変数に取得したひとつのテーブルについて、その属性情報を「Attributes」プロパティから取得し、それがリンクテーブルであるかどうかを組み込み定数「dbAttachedTable」と比較することで判定します。
- リンクテーブルであった場合には、その接続情報を「Connect」プロパティから取得します。
- 「Connect」プロパティには、リンク先データベースファイルのパスだけでなく、その情報の識別子として「;DATABASE=」という文字列なども含まれていますので、Mid$関数／InStr関数／Len関数を使ってリンク先のパス部分だけを切り出します。
【例】
;DATABASE=D:\Study\解析収集サンプル_be.accdb
↓↓↓
D:\Study\解析収集サンプル_be.accdb
- そのテーブル名（「Name」プロパティの値）とリンク先データベースファイルのフルパス（変数strConnectの値）をイミディエイトウィンドウに出力します。
Sub Sample_1_11()
'リンクテーブルのリンク先を収集する
Dim dbs As Database
Dim tdf As TableDef
Dim strConnect As String
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
With tdf
If .Attributes And dbAttachedTable Then
strConnect = .Connect
strConnect = Mid$(strConnect, InStr(strConnect, ";DATABASE=") + Len(";DATABASE="))
Debug.Print .Name,
Debug.Print strConnect
End If
End With
Next tdf
End Sub
実行例：
