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

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

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

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

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

行動規範の内容に同意します

回答1件

ベストアンサー

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

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

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

投稿2020/12/05 05:01

編集2020/12/05 05:54

sazi

総合スコア25327

d_neko

2020/12/05 05:21

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