HOME > 即効テクニック > AccessVBA > データ操作 > レコードごとに書式を変える

即効テクニック

データ操作

レコードごとに書式を変える

(Access 2000/2002/2003)
●概要●
レコードがカレントレコードになるとき、または、フォームの再表示や再クエリが実行されたときに発生します。イベントプロシージャは、OnCurrent/レコード移動時プロパティに設定します。
Currentイベントを利用すると、コントロールに入力されている値によって書式を変更することができます。次のコードは、[販売中止]チェックボックスがTrueのときはフォーム上のテキストボックスの文字色を赤に、Falseのときは青に設定するものです。なお、この処理は単票フォームにおいてのみ有効です。

●サンプル●
'レコードごとに書式を変える
Private Sub Form_Current()
    Dim myColor As Long
     '販売中止のとき
    If 販売中止.Value Then
         '赤を設定
        myColor = RGB(255, 0, 0)
    '販売中のとき
    Else
         '青を設定
        myColor = RGB(0, 0, 255) 
    End If
    商品NO.ForeColor = myColor
    商品名.ForeColor = myColor
    商品単価.ForeColor = myColor
End Sub