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

●概要●
構文  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に設定されているので、メッセージボックスには詳細セクション、フォームヘッダーセクション、フォームフッターセクションの各コントロール数が表示されます。