回答編集履歴
2
推敲
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
If "" = Nz(DLookup("[商品名]", "[商品]", "[商品コード]='" & txt商品コード & "'")) Then
|
|
10
10
|
|
|
11
|
-
|
|
11
|
+
txt商品コード.BackColor = vbRed
|
|
12
12
|
|
|
13
13
|
End If
|
|
14
14
|
|
1
推敲
test
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
Private Sub txt商品コード_AfterUpdate()
|
|
8
8
|
|
|
9
|
-
If "" = Nz(DLookup("[商品名]", "[商品]", "[商品コード]='" & txt商品コード & "'")
|
|
9
|
+
If "" = Nz(DLookup("[商品名]", "[商品]", "[商品コード]='" & txt商品コード & "'")) Then
|
|
10
10
|
|
|
11
11
|
[txt商品コード].BackColor = vbRed
|
|
12
12
|
|