アクセスでテーブル名を所得したいけど。。。 (ID:111792)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 一応、コードはこんな感じですが・・・ Dim AdX As AdoX.Catalog Dim AdxTable As AdoX.Table Set AdX = New AdoX.Catalog AdX.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;" For Each AdxTable In AdX.Tables If AdxTable.Type = "TABLE" Then Debug.Print AdxTable.Name End If Next Set AdX = Nothing ※ 参照設定で、Microsoft ADO Ext V2.x for DDL and Security を選択して下さい。 一応、Access2000 以上です。 指定が無かったので・・・ 以上。