Q&A
１）の
>エリアをマスターのテーブル化する。
とは・・・
２）については理解いたしました。
>エリアのテーブルを元にループする。
>ループ内ではコンボボックスの値を変更。
>※現状はコンボボックスを利用しているという事なので、コンボボックスのイベント処理が特に無けれ
>ば一番影響が無い。
>イベント処理があるようなら、非表示のダミーのコンボボックスを追加して、クエリーを合わせる。
イベント処理はありません。
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"
回答2件
0
ベストアンサー
具体的なところはコードを提示していただかないと的確なアドバイスができませんが、実現方法としては以下のような流れになるのではないかと思います。
'リストボックス内の項目数分ループ処理 For idx = 0 to Listbox1.Count -1 '①初期化処理（連続処理するにあたり前回の処理結果を引きずらないよう、必要に応じて変数やテーブルのクリアを行う) '②リストボックスを選択する Listbox1.index = idx '③データ抽出（実行ボタンの処理を行う。または必要な処理のみ流用する） Button1.Click '③PDF出力(抽出したデータをもとに帳票をPDFとして出力する) DoCmd.OutputTo acOutputReport, "レポート名", acFormatPDF, "PDFファイル名.pdf" '④次の処理を行うための準備(作成データのクリアなど。閉じるボタンで行っている処理を参考に、連続処理に必要なものを行う。) Next
このような処理をフォーム上に新たに追加した「連続実行」ボタンなどの処理として作成すれば、とりあえず目的の動作となるのではないでしょうか。
かなりアバウトなアドバイスなうえ、机上で作成したコードなのでそのままでは動かない部分もあると思います。
適宜手直ししてください。
具体的なテーブル構成などがわかればより効果的なアドバイスができるかもしれませんが、現時点では実現方法ひとつとして、参考になれば幸いです。
投稿2019/02/28 04:48
編集2019/02/28 08:06
総合スコア3020
0
１）フォームのコンボボックス（リスト）から「○○エリア」を選択→実行
エリアをマスターのテーブル化する。※コンボボックスのレコードソースはそのテーブルにしておく。
２）エリアで抽出されたクエリ、レポート表示
自動で出力ならプレビューは不要なので処理は削除
３）レポートのボタンでPDFに出力し指定フォルダーに保存。
エリアのテーブルを元にループする。
ループ内ではコンボボックスの値を変更。
※現状はコンボボックスを利用しているという事なので、コンボボックスのイベント処理が特に無ければ
一番影響が無い。イベント処理があるようなら、非表示のダミーのコンボボックスを追加して、クエリーを合わせる。
上記により４）は不要になりますね。
追記
VBA
1 'リストボックス内の項目数分ループ処理 2 For idx = 0 To cmbエリア.ListCount - 1 3 '②リストボックスを選択する 4 cmbエリア = cmbエリア.ItemData(idx) 5 '④PDF出力(抽出したデータをもとに帳票をPDFとして出力する) 6 DoCmd.OutputTo acOutputReport, "オーダー抽出作成", acFormatPDF, "要求書出力" & cmbエリア & Format(Date, "yyyymmdd") & ".pdf" 7 Next
投稿2019/02/28 04:42
編集2019/03/05 06:58
総合スコア25430
Q;
書き方は値集合ソースみたいに書いてしまってますがエリアは「T_エリア」であります。
イベントが無くテーブルの内容という事なら、jawaさんの書かれているようにコンボボックスの選択状態を変更するやり方の方が、手間いらずだと思います。
jawaさんのところのコメントのコードに対しての添削を追記しました。
ListIndexは参照しかできません。
追記ありがとうございました。
For idx = 0 To cmbエリア1.ListCount - 1
cmbエリア.SetFocus
cmbエリア.ListIndex = idx
MsgBox cmbエリア1.SelText
Next
順次エリアのMsgboxでOKを押し出力画面が出ましたが出力されたPDFはフォルダー外に1番目のファイルのみとなってしまいました。
すべてのファイルが保存できませんでした。
何故私が追記したものとは違うコードなんですか？
ああ、jawaさんの方で新たにやっている部分ですか。
私の提示したコードは試されました？
saziさん、補足ありがとうございます。
なるほど、そうすればフォーカスを当てなくても選択を変えられるのですね。
ちなみに同名の選択候補があっても大丈夫なんですかね？
コンボボックスの性質上、同名の候補が複数あること自体避けるべきなので、あまり考える必要もないことかもしれませんが(^-^;
@jawaさん
プロパティ変更について、コントロールをactiveにすれば設定できるものがあるパターンを失念していました。
同名があっても、何れかが選択されたと思います。
今回は、コンボボックスの内容をファイル名の一部にするようなので同名は無いと思いますけど。
試しましたが下記がエラーになりました
cmbエリア = cmbエリア.ItemData(idx)
cmbエリアの表示内容と連結列が異なっているんでしょう。
では、jawaさんの回答での対応ですね。
@saziさん
結論から申し上げますが無事、作動致しました。
繰り返し処理をするのがFor～Next。
「どこに何を記述すればいいのか？ 」を理解出来ていなかったようです。
出力実行コードの後に「Next」を入れ、繰り返し処理が出来ました。
又、日付フォルダーに入らなかった件も指定フォルダの後の「"\"」も抜けていました。
情報も少ない中ご丁寧に何度ものお付き合い、面倒でしたでしょうが感謝しております。
おかげさまで自分でも調べながら確認し、少しはコードも理解出来るようになりました。
まだまだこの件で細かい修正点・機能追加希望はありますのでがんばりたいと思います。
前回の質問と合わせ、本当にありがとうございました。
あなたの回答
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