フォーム：条件によるテキストボックスの背景色の変更

フォーム：条件によるテキストボックスの背景色の変更

対象バージョン : 97
最終更新日 : 1999/08/12 (オリジナル作成日：1997/04/27)

概　要　

　帳票フォームで、条件によってテキストボックスの背景色を変更する方法です。

サンプル MDB のダウンロード

　　 SAMPLE.LZH (26,795 Bytes)

このファイルを解凍すると、次の２つのファイルが作成されます。

※Red.bmp は、動作上必要ありませんが、このように作ったとのサンプルとして添付しています。

サンプルの説明

SAMPLE.MDB を開くと、フォーム "商品一覧" が開きます。

このフォームの "数量" は、1000 未満の場合、背景色が赤くなります。

"数量" を、1000 未満や、1000 以上に変更してお試しください。

解　説

テーブル "T_商品" に "Yes/No型" の "YesNo" というフィールドが設けてあります。
テーブル "T_色" に、 "Yes/No型" の "YesNo" というフィールドと、"Color" という "OLE Object/OLE オブジェクト型" のフィールドが設けてあり、Yes と No の２つのレコードが登録されています。
このうち、フィールド "YesNo" が Yes(True) のレコードには、フィールド "Color" に、Red.bmp を挿入してあります。
クエリー "Q_商品" では、テーブル "T_商品" と、"T_色" とを、フィールド "YesNo" で連結しており、このクエリーは、フォーム "F_商品" の "RecordSource/レコードソース" となっています。
フォーム "F_商品" 上のテキストボックスコントロール "数量" の "BackStyle/背景スタイル" には、"Transparent/透明" が設定してあり、また、このコントロールの背面に、フィールド "Color" の連結オブジェクトフレームを、全く同じ大きさで配置してあります。
フォームの "OnOpen/開く時" でのイベントプロシージャで、フォームの全 Recordset に対して、フィールド "YesNo" の設定をやり直しています。
また、フォームの "BeforeUpdate/更新前処理" でのイベントプロシージャで、該当レコードの "数量" をチェックし、更新があった場合に "YesNo" の設定をやり直しています。

補　足