Access 2007 で VBA を使って行単位の項目毎に色設定を行う方法を教えてください

Question

Accessの帳票フォーム作成において、明細を一覧表示し 表示項目単位に　完了・未完了の区分けを行うため

　　例

　　　　no  品名　　数量　　納入予定日

1行目  1    A         10          6/2

2行目 2     B          20          6/1　

この様な場合に、2行目 6/1 をマウスでピックしてBackcolor で赤に設定したいのですが、表示フォームの納入予定日

欄の全てがBackcolrで赤になってしまいます。　　行単位の項目毎に色設定を行う事は出来ないのでしょうか？

もし方法があるのであれば教えて頂きたいのですが？

宜しくお願い致します。

※ モデレーター 注記

質問の内容に合わせてタイトルを変更しました。

投稿時のタイトル 「Access2007 のvbaコーディングの方法を教えて欲しいのですが？」

Answer 1

帳票フォームでレコード単位（行単位）で背景色を変更するには条件付き書式を使います。

また、完了・未完了の情報を各レコード毎に持たせるには、テーブルのフィールドに格納することになります。

よって、テーブルに、Yes/No型のフィールドを追加します。名前は、「完了」として、Trueなら完了とします。

背景色を変更したいテキストボックスの条件付き書式を下記のように設定します。

条件1

式　　　[完了]=True

書式　背景色 赤

フォームの詳細セクション上に、フィールドリストから「完了」フィールドをドロップします。チェックボックスになります。

このチェックボックスにチェックを入れると、条件付き書式を設定したテキストボックスの背景色が赤になります。

テキストボックスのマウスクリックなどで背景色を変更したい場合は、クリック時イベントで

Me.[完了] = Not Me.[完了]

とすればクッリクするたびに背景色が切り替わります。

Answer 2

Access 2007 ですから、背景に使う画像を添付ファイル型フィールドに収めたテーブルを用意して、レコードソースに含めるとかすればコードなしでも実現可能な感じかと。

MukkuMukuさん、こんばんは。

そういえば、Access2003以前でOLEオブジェクト型フィールドに画像ファイルを格納して同様のことを実現したのを思い出しました。

2007以降なら添付ファイル型でもできそうですね。

画層ファイルは容量を節約するために 1ドット×1ドット でもOKですね。「ピクチャーサイズ」プロパティを「ストレッチ」にすればコントロールサイズ一杯に広がりますので。

T_Color

ColorCD　数値型　主キー

ColorPicture　添付ファイル型

1ドット×1ドットの画像ファイルを各色作成して、ColorPictureフィールドに格納。

フォームのソースのテーブルに、ColorCD(数値型)フィールドを追加

このフィールドに表示したいの色のコードを入力

レコードソースのテーブルと T_Colorからクエリを作成して、ColorCDで結合します。これをレコードソースに設定。

フォーム上に「既存のフィールドを追加」で ColorPictureフィールドを配置。

詳細セクションのサイズいっぱいに広げる。

右クリックして「最背面に配置」。

プロパティを下記のように設定

使用可能　いいえ

ピクチャーサイズ　ストレッチ

フォーム上のテキストボックスの背景スタイルは「透明」に設定。

こんな感じかな。

Answer 3

MukkuMukuです。

Access 2007 ですから、背景に使う画像を添付ファイル型フィールドに収めたテーブルを用意して、レコードソースに含めるとかすればコードなしでも実現可能な感じかと。

Answer 4

下記を参考にしてください。

帳票形式フォームで書式を 5 種類以上設定する方法 | YU-TANG's MS-Access Discovery

Answer 5

大変!  役にたちました。　ありがとう御座います。

追加での質問なのですが、条件付き書式設定でいきますと

4色しか出来ないと思うのですが、もっと色指定出来る方法はないのでしょうか?

宜しくお願い致します。