Changeイベントで文字の色を変えたい

質問

Microsoft Access97　を使っています。
超初心者です。

フォームにて、テーブルからデータを引っ張ってきています。
フォームにてテーブル内容を変更した箇所の、文字色を変えたいのですが、エラーが出てしまいます。

指示は以下の通りです。
***********************************
Private Sub 商品価格_Change()
Dim Target As Variant

Target.Font.ColorIndex = 3

End Sub

***********************************
『実行時エラー '424':
オブジェクトが必要です。』

***********************************
どうかよろしくお願いいたします！！！

回答No.1

fumufumu_2006

Access97はないので、Access2000ではですが・・・

とりあえず、
Set Target = 商品価格
とかしないと「オブジェクトが必要です」とエラーが出ると思います。
それと、宣言でVariantとしてますが、テキストボックスなら、TextBoxで宣言する方がいいと思います。
Dim Target As TextBox
Set Target = 商品価格

それと、Access2000ではフォームのテキストボックスにFontプロパティが無いのですが、Access97ではありましたっけ・・・

とりあえず、入力があったらフォントの色を赤にするなら
Private Sub 商品価格_Change()
Dim Target As TextBox
Set Target = 商品価格
Target.ForeColor = RGB(255, 0, 0)
End Sub
か、
Private Sub 商品価格_Change()
商品価格.ForeColor = RGB(255, 0, 0)
End Sub
ではどうでしょうか？