Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1946 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【4504】フォームヘッダー等の色の変更 布袋様 05/2/28(月) 20:52 質問[未読]
【4505】Re:フォームヘッダー等の色の変更 クロ 05/3/1(火) 8:28 回答[未読]
【4510】Re:フォームヘッダー等の色の変更 布袋様 05/3/1(火) 20:37 お礼[未読]
【4504】フォームヘッダー等の色の変更
質問  布袋様  - 05/2/28(月) 20:52 -
引用なし
パスワード
   フォーム上にCheck1というチェックボックスを貼り付け、それにチェックを付けたとき、フォームの詳細の色を変えるという操作を作りました（以下のとおり）。

Private Sub Form_Current()
　　If Me!Check1 Then
　　　　Me.Section(acDetail).BackColor = RGB(255, 0, 0)
　　Else
　　　　Me.Section(acDetail).BackColor = RGB(0, 0, 255)
　　End If
End Sub

この場合は詳細の色が変わりますが、フォームヘッダー、ページヘッダー、フォームフッダー、ページフッダーの色をそれぞれ変えるときは、acDetailのところをどのように変えればいいのでしょう？
【4505】Re:フォームヘッダー等の色の変更
回答  クロ  - 05/3/1(火) 8:28 -
引用なし
パスワード
   Me.詳細.BackColor = RGB(255, 0, 0)
Me.フォームヘッダー.BackColor = RGB(255, 0, 0)
Me.フォームヘッダー.BackColor = RGB(255, 0, 0)

こうでいいのでは？
【4510】Re:フォームヘッダー等の色の変更
お礼  布袋様  - 05/3/1(火) 20:37 -
引用なし
パスワード
   うまくいきました。簡単だったんですね。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1946 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078263
(SS)C-BOARD v3.8 is Free