アクセス2007 ＶＢＡ フィールドのフォントの色

質問

アクセス2007　ＶＢＡ　フィールドのフォントの色

フィールドＡ・・・品名　　　（テキスト）
フィールドＢ・・・色ナンバー（数字）

フィールドＢにあるカラーコードでフィールドＡのフォントの色を設定する方法はどのようにするのでしょうか？

回答No.1

seastar3 · ベストアンサー

ちょっと試してみました。
　以下の色指定テーブルを用意して、色指定テーブル表示フォームを作りました。
(品名)　(色ナンバー)
イチゴ　　#CC3333
バナナ　　#FFFF66
みかん　　#FF9900
リンゴ　　#993333
葡萄　　　#660099

　そして、このフォームのForm_Current()イベントに色ナンバーの文字列を分解して品名フィールドの前景色プロパティに代入しました。

Private Sub Form_Current()
Dim iroban As String
Dim r, g, b As Integer
iroban = [色ナンバー]
r = Val("&H" & Mid(iroban, 2, 2))
g = Val("&H" & Mid(iroban, 4, 2))
b = Val("&H" & Mid(iroban, 6, 2))
品名.ForeColor = RGB(r, g, b)
End Sub

　エラーチェックを組み込んでいませんが、文字の色が変わることを確かめました。

お礼

試して頂きありがとうございます。
ご回答のとうり、色が変わりました。

ただ帳票フォームでの使用だったので、すべてのレコードが一色になってしまいました。
単票フォームだと使えます。

ご回答、ありがとうございました。