回答編集履歴
1
余分なスペースを削除
test
CHANGED
@@ -13,7 +13,7 @@
|
|
13
13
|
End If
|
14
14
|
|
15
15
|
If Nz(Me![メーカー名から検索].Value) <> "" Then
|
16
|
-
filter_txt = filter_txt &
|
16
|
+
filter_txt = filter_txt & " and [メーカー名] like '*" & Replace(Me![メーカー名から検索].Value, "'", "''", , , vbBinaryCompare) & "*'"
|
17
17
|
End If
|
18
18
|
|
19
19
|
filter_txt = Mid(filter_txt, 6)
|