回答編集履歴

1

余分なスペースを削除

2023/06/06 07:23

投稿

sk.exe
sk.exe

スコア923

test CHANGED
@@ -13,7 +13,7 @@
13
13
  End If
14
14
 
15
15
  If Nz(Me![メーカー名から検索].Value) <> "" Then
16
- filter_txt = filter_txt & " and [メーカー名] like '*" & Replace(Me![メーカー名から検索].Value, "'", "''", , , vbBinaryCompare) & "*'"
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)