回答編集履歴
1
コード修正
test
CHANGED
@@ -6,13 +6,13 @@
|
|
6
6
|
|
7
7
|
|
8
8
|
|
9
|
-
だとしたら、提示のコードの最後の部分を下記のように書き換えるだけです。
|
9
|
+
だとしたら、~~提示のコードの最後の部分を下記のように書き換えるだけです。~~
|
10
|
+
|
11
|
+
提示のコードの `'フィルター条件の設定` 移行を削除して、下記の1行を追加するだけです。
|
10
12
|
|
11
13
|
|
12
14
|
|
13
15
|
```vba
|
14
|
-
|
15
|
-
|
16
16
|
|
17
17
|
'先頭の" AND "を取り除く
|
18
18
|
|
@@ -20,12 +20,10 @@
|
|
20
20
|
|
21
21
|
|
22
22
|
|
23
|
-
'フ
|
23
|
+
DoCmd.OpenForm "別フォーム名", acFormDS, , strFilter '別フォームをデータシートで開く
|
24
24
|
|
25
|
-
Forms!別フォーム名.Filter = strFilter
|
26
25
|
|
27
|
-
'フィルターの実行(もしくは解除)
|
28
26
|
|
29
|
-
|
27
|
+
End Sub
|
30
28
|
|
31
29
|
```
|