回答編集履歴
5
推敲
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
' WhereString = WhereString & [分からない部分]
|
|
10
10
|
|
|
11
|
-
WhereString = WhereString & " and 日付 >= #" & Me.txt日付 & "#" & " and
|
|
11
|
+
WhereString = WhereString & " and 日付 >= #" & Me.txt日付 & "#" & " and 日付 < #" & Me.txt日付 & "# + 1"
|
|
12
12
|
|
|
13
13
|
End If
|
|
14
14
|
|
4
追記
test
CHANGED
|
@@ -4,16 +4,24 @@
|
|
|
4
4
|
|
|
5
5
|
```VBA
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
If Me.txt日付 <> "" Then
|
|
8
8
|
|
|
9
|
-
'
|
|
9
|
+
' WhereString = WhereString & [分からない部分]
|
|
10
10
|
|
|
11
|
-
|
|
11
|
+
WhereString = WhereString & " and 日付 >= #" & Me.txt日付 & "#" & " and and 日付 < #" & Me.txt日付 & "# + 1"
|
|
12
12
|
|
|
13
|
-
|
|
14
|
-
|
|
15
|
-
|
|
13
|
+
End If
|
|
16
|
-
|
|
17
|
-
|
|
18
14
|
|
|
19
15
|
```
|
|
16
|
+
|
|
17
|
+
若干性能は落ちると思いますが、文字型で揃えると以下になります。
|
|
18
|
+
|
|
19
|
+
```VBA
|
|
20
|
+
|
|
21
|
+
If Me.txt日付 <> "" Then
|
|
22
|
+
|
|
23
|
+
WhereString = WhereString & " and Format(日付,'yyyy/mm/dd') = '" & Me.txt日付 & "'"
|
|
24
|
+
|
|
25
|
+
End If
|
|
26
|
+
|
|
27
|
+
```
|
3
推敲
test
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
|
-
Me.txt日付の値は文字列ですから、日付型項目に対しての条件とする場合には、日付型に変換する必要があります。
|
|
1
|
+
Me.txt日付の値は文字列ですから、日付型/時刻項目に対しての条件とする場合には、日付型に変換する必要があります。
|
|
2
2
|
|
|
3
|
-
`#`で括ると日付型として認識されます。
|
|
3
|
+
`#`で括ると日付/時刻型として認識されます。
|
|
4
4
|
|
|
5
5
|
```VBA
|
|
6
6
|
|
2
訂正
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
' WhereString = WhereString & [分からない部分]
|
|
10
10
|
|
|
11
|
-
WhereString = WhereString & " and 日付 = #" & Me.txt日付 & "#"
|
|
11
|
+
WhereString = WhereString & " and 日付 >= #" & Me.txt日付 & "#" & " and and 日付 < #" & Me.txt日付 & "# + 1"
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|
1
推敲
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
Me.txt日付の値は文字列ですから、日付型項目に
|
|
1
|
+
Me.txt日付の値は文字列ですから、日付型項目に対しての条件とする場合には、日付型に変換する必要があります。
|
|
2
2
|
|
|
3
3
|
`#`で括ると日付型として認識されます。
|
|
4
4
|
|