スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文  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