Access2010を使用中です
毎日、システムから取込んだCSVをツールにインポートしその日分の抽出データをフォームでエリアごとに選択し
[エリア]+[日付].PDFで指定フォルダに保存しています。
現状の流れ
1)フォームのコンボボックス(リスト)から「○○エリア」を選択→実行
2)エリアで抽出されたクエリ、レポート表示
3)レポートのボタンでPDFに出力し指定フォルダーに保存。
4)閉じるボタンでクエリ、レポートを閉じさせフォームに戻り、各エリア(12)ごとに同作業を繰り返す。
リストの例:
中央1;中央2;東1;東2;南1;南2;北1;北2;西1;西2;西3;西4
望むべき姿
1)コンボボックスに作ってある12エリアを実行ボタンひとつで同じように指定フォルダに保存。
※繰り返しの作業を1クリックですべてのエリアを出力し時短化をしたい。
以上となります。
よろしくお願い致します。
追記
Accessオブジェクト
※作動関連の一部
T_基礎データ
F_エリア選択
Q_抽出作成
<抽出条件>
DMax("受付日","データ","エリア='" & [エリア] & "'")
[Forms]![エリア選択]![cmbエリア]
実行ボタン(出力)
Private Sub 実行_Click()
'レポートをデータベースウィンドウから選択します
DoCmd.SelectObject acReport, "Q_抽出作成", acViewPreview
'[PDF]メニューを実行します
DoCmd.OutputTo acOutputReport, "Q_抽出作成", acFormatPDF, "○○" & [エリア] & Format(Date, "yyyymmdd") & ".pdf"
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/02/28 06:16
2019/02/28 08:30
2019/02/28 09:23
2019/02/28 09:34
2019/02/28 11:56
2019/03/01 05:31
2019/03/01 07:05
2019/03/01 12:33
2019/03/05 03:58
2019/03/05 04:19 編集
2019/03/05 05:41
2019/03/05 06:23
2019/03/05 07:21
2019/03/05 07:25
2019/03/06 01:05
2019/03/06 02:15
2019/03/06 02:50 編集
2019/03/06 08:00
2019/03/06 08:12