Accessで商品コードがない場合にバックの色を変えたい

Question

Accessで商品コードを入力して、該当の商品コードがない場合、
入力した商品コードのバックカラーを赤色に変更したいです。

そこで、次のようにしてみました。

Private Sub txt商品コード_AfterUpdate()
    If "" = Nz(DLookup("[商品名]", "[商品]", "[商品コード]=Form![txt商品コード]"), "") Then    
       [txt商品コード].BackColor = vbRed      
    End If
End Sub

でもできませんでした。
どうすればバックカラーを変更できるのでしょうか。
お願いします。

Answer 1

比較する内容が文字列として埋め込まれて、値になっていないからだと思います。
以下のようにしてみて下さい。

Private Sub txt商品コード_AfterUpdate()
    If "" = Nz(DLookup("[商品名]", "[商品]", "[商品コード]='" & txt商品コード & "'")) Then    
       txt商品コード.BackColor = vbRed      
    End If
End Sub

※商品コードが数値の場合は"'"での括りは不要です。

Comments

[d_neko]

回答ありがとうございます。
試してみましたが、色が変わりません。
「[txt商品コード].BackColor = vbRed 」この部分の処理はあっているでしょうか。
というのは、「txt商品名] = "Error"」を追記するとちゃんと「商品名」に「Error」が表示されます。
また、MsgBoxを入れても表示されるので、if部分は働いているようです。
だから、バックカラーを指定の方法が間違っているのではないかとおもっています。

[sazi]

指定の方法は間違っていないと思います。
他のイベントで何かを行っていないですか？
試しに、新しいテキストボックスを追加して、このイベントでそのテキストボックスの色を変えてみて下さい。
変わるようなら、商品コードのテキストボックスに対して何かを行っているという事になりますから。

[d_neko]

久しぶりにACCESSをさわるので、VBAが曖昧です。
イベントも適当にコピペしたので、もう一度見直してみます。
ありがとうございました。

[sousuke]

横からですがテキストの背景を透明にしているんじゃないですか？それか条件付き書式に何かあるとか、サブフォームのデータシートとか