即効テクニック |
●概要●
構文 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
