Accessでコントロールの色を変える2つの方法

Accessでコントロールの色を変更する方法は、フォームのデザインビューでプロパティから変更する方法、そしてVBAでコードを記述する方法の２つです。

コントロールとは、フォームのヘッダー、詳細、フッターやコンボボックス、テキストボックスなどの入力系コントロール、コマンドボタンなどです。

Access2010で検証しています。古いバージョンのAccessの場合、コマンドボタンの背景色などは変更できません。

フォームのデザインビューでコントロールの色を変える

各コントロールのプロパティから以下の色を変更できます。

背景色	コントロールの背景の色
境界線色	コントロールの枠（縁取り）の色
前景色	コントロールのテキストの色

プロパティの画面は以下の通りです。

色の指定方法は2パターンあります。

あらかじめ定義されている色から選択する方法と、独自の色を指定する方法です。

「背景色を変えても反映されない⁉」と思ったら、背景スタイルが「透明」になっていないか確認しましょう。

背景スタイルが透明だとどんなに色を変えても透明です（笑）

予め定義されている色から選択する方法

上記のようにコンボボックスを開くと選択肢が表示されます。

これらの定数を使用することでWindowsのシステムカラーに合わせることができますのでwindowsのバージョン変更などの際に違和感なく溶け込むことができます。

独自の色を指定する方法

とはいえ、わざわざ変更するからにはコントロールを目立たせたい場合や会社のイメージカラーを使いたい場合など、特定の色を指定したいケースの方が多いかと思います。

その場合は、カラーチャートを使って選択するか、特定の色を指定することになります。

テーマの色や標準の色に指定したい色がなければ、「その他の色」からRGBを指定して色を作成することも可能です。

デザインビューではこのように直接カラーを指定します。

VBAでコントロールの色を変える

次にVBAから指定する方法です。

この方法は状況に応じて色を動的に変更する場合に使うことが多いかと思います。

例えば、以下のように計算結果が正数の時は前景色が黒、負数の時は赤で表示させたい場合などです。

収支サンプル
サンプルプログラムは以下の通りです。

    '収入-支出を計算して収支コントロールにセット
    Me.txt収支 = Me.txt収入 - Me.txt支出
    
    '収支がマイナスなら前景色は赤
    If Me.txt収支 < 0 Then
        Me.txt収支.ForeColor = vbRed
    '収支がプラスなら前景色は黒
    Else
        Me.txt収支.ForeColor = vbBlack
    End If

このサンプルプログラムでは、色の指定にVBの定数を使用していますが、色の指定方法も3種類あります。