回答編集履歴
1
追記
answer
CHANGED
|
@@ -11,4 +11,16 @@
|
|
|
11
11
|
※現状はコンボボックスを利用しているという事なので、コンボボックスのイベント処理が特に無ければ
|
|
12
12
|
一番影響が無い。イベント処理があるようなら、非表示のダミーのコンボボックスを追加して、クエリーを合わせる。
|
|
13
13
|
|
|
14
|
-
上記により４）は不要になりますね。
|
|
14
|
+
上記により４）は不要になりますね。
|
|
15
|
+
|
|
16
|
+
追記
|
|
17
|
+
--
|
|
18
|
+
```VBA
|
|
19
|
+
'リストボックス内の項目数分ループ処理
|
|
20
|
+
For idx = 0 To cmbエリア.ListCount - 1
|
|
21
|
+
'②リストボックスを選択する
|
|
22
|
+
cmbエリア = cmbエリア.ItemData(idx)
|
|
23
|
+
'④PDF出力(抽出したデータをもとに帳票をPDFとして出力する)
|
|
24
|
+
DoCmd.OutputTo acOutputReport, "オーダー抽出作成", acFormatPDF, "要求書出力" & cmbエリア & Format(Date, "yyyymmdd") & ".pdf"
|
|
25
|
+
Next
|
|
26
|
+
```
|