フォーム＆コントロールプロパティ活用辞典-124 Section

Private Sub fraProperty_AfterUpdate()
'[プロパティの設定]オプショングループの更新後処理

  With Me
    Select Case Me!fraProperty
      Case 1
        '詳細セクションの高さを２倍に変更
        .Section(acDetail).Height = .Section(acDetail).Height * 2
      Case 2
        With .Section(acHeader)
          'フォームヘッダーセクションの高さを1500twipに
          .Height = 1500
          'フォームヘッダーセクションの背景を白に
          .BackColor = vbWhite
        End With
      Case 3
        'フォームフッターセクションを非表示に
        .Section(acFooter).Visible = False
    End Select
  End With

End Sub


#124		Section
Section プロパティフォームやレポートのデザインにおいて、各コントロールが配置されているセクションを取得したり、フォームやレポートの各セクションの情報を取得・設定したりすることができます。このプロパティでは、次のような定数値を使って、コントロールの属するセクションを取得したり、特定のセクションのプロパティなどにアクセスすることができます。 acDetail→詳細セクション acHeader→フォーム（レポート）ヘッダー acFooter→フォーム（レポート）フッター acPageHeader→ページヘッダー acPageFooter→ページフッター（以下はレポートのみ） acGroupLevel1Header→グループレベル1のヘッダー acGroupLevel1Footer→グループレベル1のフッター acGroupLevel2Header→グループレベル2のヘッダー acGroupLevel2Footer→グループレベル2のフッターラベル、テキストボックス、コマンドボタン、コンボボックス、リストボックス、オプショングループ、トグルボタン、オプションボタン、チェックボックス、イメージ、サブフォーム、四角形、線 Private Sub fraProperty_AfterUpdate() '[プロパティの設定]オプショングループの更新後処理 With Me Select Case Me!fraProperty Case 1 '詳細セクションの高さを２倍に変更 .Section(acDetail).Height = .Section(acDetail).Height * 2 Case 2 With .Section(acHeader) 'フォームヘッダーセクションの高さを1500twipに .Height = 1500 'フォームヘッダーセクションの背景を白に .BackColor = vbWhite End With Case 3 'フォームフッターセクションを非表示に .Section(acFooter).Visible = False End Select End With End Sub 元のフォーム詳細セクションの高さを２倍にしたときフォームヘッダーセクションの高さと背景色を変えたときフォームフッターセクションを非表示にしたとき
\| Index \| Prev \| Next \|