masayan_pyonz score 2
2019/02/28 15:12 投稿
| 複数回のコンボボックス選択（エリアごと）→出力を１クリックで |
| Access2010を使用中です |
| 毎日、システムから取込んだCSVをツールにインポートしその日分の抽出データをフォームでエリアごとに選択し |
| [エリア]+[日付].PDFで指定フォルダに保存しています。 |
| **現状の流れ** |
| １）フォームのコンボボックス（リスト）から「○○エリア」を選択→実行 |
| ２）エリアで抽出されたクエリ、レポート表示 |
| ３）レポートのボタンでPDFに出力し指定フォルダーに保存。 |
| ４）閉じるボタンでクエリ、レポートを閉じさせフォームに戻り、各エリア（１２）ごとに同作業を繰り返す。 |
| リストの例： |
| 中央1;中央2;東1;東2;南1;南2;北1;北2;西1;西2;西3;西4 |
| **望むべき姿** |
| １）コンボボックスに作ってある12エリアを実行ボタンひとつで同じように指定フォルダに保存。 |
| ※繰り返しの作業を１クリックですべてのエリアを出力し時短化をしたい。 |
| 以上となります。 |
| よろしくお願い致します。 |
| よろしくお願い致します。 |
| **追記** |
| 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" |
