HOME > 即効テクニック > AccessVBA > データ操作 > テーブル内のフィールド名の一覧を取得する

即効テクニック

データ操作

テーブル内のフィールド名の一覧を取得する

(Access 2000/2002/2003)
●概要●
構文  expression.Name		取得/設定

設定項目        内容
expression	Fieldオブジェクトを指定[省略不可]

Fieldsコレクションにはテーブルを構成するFieldオブジェクトが含まれています。FieldオブジェクトのNameプロパティを使用して、指定したテーブル内のフィールド名の一覧を取得できます。FieldsコレクションはTableDefオブジェクトのFieldsプロパティで参照します。
ここでは、TableDefオブジェクトに「社員テーブル」を指定し、For Each...NextステートメントでFieldsコレクション内のFieldオブジェクトのNameプロパティの値を表示します。

●設定●
動作確認をするためには、Visual Basic Editorのメニューから[ツール]→[参照設定]コマンドを選択し、[参照設定]ダイアログボックスで「Microsoft DAO 3.6 Object Library」にチェックを入れてください。

●サンプル●
Public Sub GetFieldNameSample()
    Dim myDB As Database
    Dim myTD As TableDef
    Dim myFild As Field
    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'フィールドを表示するテーブルを変数に代入する
    Set myTD = myDB.TableDefs!社員テーブル
    '[社員テーブル]のフィールドを表示する
    For Each myField In myTD.Fields
        Debug.Print myField.Name
    Next
End Sub