●概要●
構文 expression.Name 取得のみ
設定項目 内容
expression TableDefオブジェクトを指定［省略不可］
TableDefオブジェクトのNameプロパティを使用してデータベース内のテーブル名の一覧を取得します。TableDefsコレクションには、データベースに格納されているTableDefオブジェクトが含まれます。TableDefsコレクションはTableDefオブジェクトのTableDefsプロパティで参照できます。
ここでは、DatabaseオブジェクトにAccess ウィンドウで現在開かれているデータベースを指定しています。そして、For Each...NextステートメントでTableDefsコレクション内のTableDefオブジェクトのNameプロパティの値を表示します。
●設定●
動作確認をするためには、Visual Basic Editorのメニューから［ツール］→［参照設定］コマンドを選択し、［参照設定］ダイアログボックスで「Microsoft DAO 3.6 Object Library」にチェックを入れてください。
●サンプル●
Sub GetTableNameSample()
Dim myDB As Database
Dim myTD As TableDef
'カレントデータベースを変数に代入する
Set myDB = CurrentDb
'データベース内のテーブル名前を表示する
For Each myTD In myDB.TableDefs
'テーブル名を表示する
Debug.Print myTD.Name
Next
End Sub
