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