AccessではこのVBA自体がMDBファイルになりますが、別のMDBファイルを参照したい場合もあります。
別のMDBファイルを開くには、OpenDatabaseメソッドを使用します。
ここではテーブル名の一覧を取得します。
|
|
|
Option Compare Database
Option Explicit
Private Sub コマンド0_Click()
Dim DB As Database
Dim tdf As TableDef
'別のMDBファイルを開く
Set DB = OpenDatabase("C:\test.mdb")
For Each tdf In DB.TableDefs
'テーブル名を取得
Debug.Print tdf.Name
Next
'データベースを閉じる
DB.Close
Set DB = Nothing
End Sub
|
|
|
|
|
|