回答編集履歴
1
バグ修正
answer
CHANGED
|
@@ -3,16 +3,13 @@
|
|
|
3
3
|
SQL文で構文エラーになっていると推測します。
|
|
4
4
|
確か、日付なのに文字で指定しないと動かない記憶です。
|
|
5
5
|
|
|
6
|
-
シングルコーテーション（'）で、ダメなら、シャープ ( #) で試してください。
|
|
7
6
|
|
|
8
|
-
|
|
9
|
-
|
|
10
7
|
```VBA
|
|
11
8
|
If src実施日from <> "" Then
|
|
12
9
|
If strWhere <> "WHERE " Then
|
|
13
|
-
strWhere = strWhere & "AND 実施日1 >=
|
|
10
|
+
strWhere = strWhere & "AND 実施日1 >= #" & Format(src実施日, "yyyy/mm/dd") & "# "
|
|
14
11
|
Else
|
|
15
|
-
strWhere = strWhere & " 実施日1 >=
|
|
12
|
+
strWhere = strWhere & " 実施日1 >= #" & Format(src実施日, "yyyy/mm/dd") & "# "
|
|
16
13
|
End If
|
|
17
14
|
End If
|
|
18
15
|
```
|