回答編集履歴
2
誤字修正
answer
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
クエリのSQLをVBAで動的に変更しているということですね。
|
|
2
2
|
その場合は、再クエリでは反映しません。
|
|
3
3
|
|
|
4
|
-
サブフォームコントロールのソースオ
|
|
4
|
+
サブフォームコントロールのソースオブジェクトを再設定してください。
|
|
5
5
|
|
|
6
6
|
```vba
|
|
7
7
|
With Me!F_履歴
|
1
説明の修正
answer
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
クエリのSQLをVBAで動的に変更しているということですね。
|
|
2
2
|
その場合は、再クエリでは反映しません。
|
|
3
3
|
|
|
4
|
-
サブフォームコントロールのソースオプジェクトを再設定
|
|
4
|
+
サブフォームコントロールのソースオプジェクトを再設定してください。
|
|
5
5
|
|
|
6
6
|
```vba
|
|
7
7
|
With Me!F_履歴
|
|
@@ -9,13 +9,14 @@
|
|
|
9
9
|
.SourceObject = "F_履歴"
|
|
10
10
|
End With
|
|
11
11
|
```
|
|
12
|
+
再クエリはデータの再読込で、ソースの再読込ではないということだと思います。
|
|
12
13
|
|
|
13
14
|
クエリで書き換えるのが、抽出条件(Where句)だけなら、サブフォームのFilterプロパティで抽出条件を設定するほうがシンプルかと思います。
|
|
14
15
|
クエリには抽出条件は設定しません。
|
|
15
16
|
|
|
16
17
|
```vba
|
|
17
18
|
With Me!F_履歴.Form
|
|
18
|
-
.Filter = "WHERE句"
|
|
19
|
+
.Filter = "WHERE句の条件式"
|
|
19
20
|
.FilterOn = True
|
|
20
21
|
End With
|
|
21
22
|
```
|