スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
レコードがカレントレコードになるとき、または、フォームの再表示や再クエリが実行されたときに発生します。イベントプロシージャは、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