#237
サブフォームとして表示したデータシートの「フォント色」を、メインフォーム上に配置したオリジナルのトグルボタンによって切り替える方法です。
メインフォームにオプショングループと複数のトグルボタンを配置し、オプショングループの"AfterUpdate/更新後処理"イベントプロシージャに次のようなコードを記述します。ポイントとしては、サブフォームの「DatasheetForeColor」プロパティの値をVBAで設定することです。
ここでは、データシート形式のサブフォームの名前を"frm売上_sub."、オプショングループの名前を"fraフォント色設定"としています。また、青・赤・緑・黒のトグルボタンの「オプション値」プロパティは、Choose関数を使う都合上、それぞれ１、２、３、４である必要があります。
Private Sub fraフォント色設定_AfterUpdate()
Me!frm売上_sub.Form.DatasheetForeColor = _
Choose(Me!fraフォント色設定, 16737843, 255, 6723891, 0)
End Sub
Me!frm売上_sub.Form.DatasheetForeColor = _
Choose(Me!fraフォント色設定, 16737843, 255, 6723891, 0)
End Sub
実行前の状態
フォント色切り替え後のそれぞれの画面
※上記プログラムでは、「16737843」が赤、「255」が青、「6723891」が緑、「0」が黒を表しています。これらの値を微妙に変えることによって、中間色も表示することが可能です。それぞれの色がどんな数値になるかは、実際にツールバーなどから色を変更してみて、そのときのプロパティシートの値を確認してみるとよいでしょう。
