回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -13,8 +13,8 @@
|
|
|
13
13
|
Private Sub 製品型番_AfterUpdate()
|
|
14
14
|
Dim strWhere As String
|
|
15
15
|
strWhere = "製品大分類='" & Me.製品大分類 & "'" & _
|
|
16
|
-
" AND 製品名='" &Me.製品名 & "'" & _
|
|
16
|
+
" AND 製品名='" & Me.製品名 & "'" & _
|
|
17
|
-
" AND 製品型番='" &Me.製品型番 & "'"
|
|
17
|
+
" AND 製品型番='" & Me.製品型番 & "'"
|
|
18
18
|
|
|
19
19
|
Me!製品コード = DLookup("製品コード", "製品マスタ", strFilter)
|
|
20
20
|
|