HOME > 即効テクニック > AccessVBA > コントロール > セクション名とコントロール数を確認する

即効テクニック

コントロール

セクション名とコントロール数を確認する

(Access 2000/2002/2003)
●概要●
構文  expression.Section(Index) 取得のみ

設定項目        内容
expression      Formオブジェクト[省略可能]
Index           セクション番号かセクション名を指定[省略不可]

フォームのセクションを参照します。
は、フォームモジュールで使用する場合のみ省略可能です。省略した
場合、自身のFormオブジェクトを指定したことになります。
Sectionプロパティの設定値は、Formオブジェクトに含まれるセクションの配列で
す。には、セクション番号の代わりに次の定数を使用することができます。

設定値     定数              説明
0          acDetail          詳細セクション
1          acHeader          フォームヘッダーセクション
2          acFooter          フォームフッターセクション
3          acPageHeader      ページヘッダーセクション
4          acPageFooter      ページフッターセクション

次のコードは、「商品一覧フォーム」のセクションの名称と各セクションに含まれるコントロール数をメッセージダイアログに表示するものです。セクションの名称はNameプロパティで、コントロール数はControlsコレクションのCountプロパティで取得します。
●サンプル●
'セクション名とコントロール数を確認する
'[商品一覧フォーム]を開いた状態で実行してください

Sub SectionSample()
    'フォーム参照用
    Dim myForm As Form
    Set myForm = Forms!商品一覧フォーム
    For i = 0 To 2
        MsgBox myForm.Section(i).Name & " セクションのコントロール数は " & _
               myForm.Section(i).Controls.Count & " です"
    Next
End Sub
●実行結果●
設定値が0から2に設定されているので、メッセージボックスには詳細セクション、フォームヘッダーセクション、フォームフッターセクションの各コントロール数が表示されます。