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

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