回答編集履歴
2
コード修正
test
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
|
|
19
19
|
wKeyWord = Replace(wKeyWord , """", "[""]")
|
|
20
20
|
|
|
21
|
-
wFilter = wFilter & " And F
|
|
21
|
+
wFilter = wFilter & " And F_CustomerName Like '*" & wKeyWord & "*'"
|
|
22
22
|
|
|
23
23
|
End If
|
|
24
24
|
|
1
コードの間違い修正
test
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
|
|
19
19
|
wKeyWord = Replace(wKeyWord , """", "[""]")
|
|
20
20
|
|
|
21
|
-
wFilter = wFilter & " And F2 Like '*" &
|
|
21
|
+
wFilter = wFilter & " And F2 Like '*" & wKeyWord & "*'"
|
|
22
22
|
|
|
23
23
|
End If
|
|
24
24
|
|