●概要●
構文 expression.Fields.Count 取得のみ
設定項目 内容
expression TableDefオブジェクトを指定［省略不可］
FieldsコレクションのCountプロパティを使用して、指定したテーブル内のフィールドの数を取得します。FieldsコレクションはTableDefオブジェクトのFieldsプロパティで参照します。
ここでは、TableDefオブジェクトに「社員テーブル」を指定し、FieldsコレクションのCountプロパティの値をメッセージダイアログに表示します。
●設定●
動作確認をするためには、Visual Basic Editorのメニューから［ツール］→［参照設定］コマンドを選択し、［参照設定］ダイアログボックスで「Microsoft DAO 3.6 Object Library」にチェックを入れてください。
●サンプル●
Public Sub GetFieldNumSample()
Dim myDB As Database
Dim myTD As TableDef
Dim myFild As Field
'カレントデータベースを変数に代入する
Set myDB = CurrentDb
'フィールドを表示するテーブルを変数に代入する
Set myTD = myDB.TableDefs!社員テーブル
'テーブル内のフィールド数をCountプロパティから取得
MsgBox "社員テーブルのフィールド数は " & myTD.Fields.Count & " 個です"
End Sub
