Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

601 / 9994

←次へ　｜　前へ→


	【12703】Re:レポートをグループ毎にpdf出力に関するVBAについて

AWW - 15/2/14(土) 15:31 -


	引用なし

	パスワード

hatena様

回答ありがとうございます。

実は、
レポートをグループ毎に分割してPDFファイルとして保存したい - hatena chips
hatenachips.blog34.fc2.com/blog-entry-380.html

は、以前拝見させていただき、まさにこれだと思い、参考に作成してみたのですが
私の知識不足で上手くいきませんでした。
今回、もう一度考え、試行錯誤して試しましたが、どうしてもわからない点がございます。

＜作成したコード＞
（Q_支払明細書用クエリの抽出条件を設定せずに）
----------------------------------------------------------------------

Private Sub btnshiharai_Click()
　　　　　　
　　Dim db As DAO.Database
　　Dim rs As DAO.Recordset
　　Dim strFilter As String

　　strFilter = "UKEIREBI Between #2015/02/01# And #2015/02/28#"

　　Set db = CurrentDb
　　Set rs = db.OpenRecordset("SELECT DISTINCT T_CODE FROM Q_支払明細書用 WHERE " & strFilter, _
　　　　　　　　　　　　　　　dbOpenForwardOnly, dbReadOnly)
　　
　　Do Until rs.EOF
　　　　DoCmd.OpenReport "R_支払明細書", acViewPreview, , _
　　　　　　　　　　　　 strFilter & " AND T_CODE=" & rs!T_CODE, acWindowNormal
　　　　DoCmd.OutputTo acOutputReport, "R_支払明細書", acFormatPDF, _
　　　　　　　　　　　 "C:\TEST\" & Format(Date, "yyyymm") & "_" & rs!T_CODE & ".pdf"
　　　　DoCmd.Close acReport, "R_支払明細書"
　　　　rs.MoveNext
　　Loop
　　
　　rs.Close

End Sub

----------------------------------------------------------------------

＜どうしてもわからない点＞
（1）変数「strFilter」に日付を任意で指定したいのですが、上手くできませんでした。
なので、strFilter = "UKEIREBI Between #2015/02/01# And #2015/02/28#"と日付をコードに直接書くことしかできませんでした。

（2）上記コードを実行すると「T_CODE」毎にパラメータ表示がされ、対象の「T_CODE」を入力すると、対象の「T_CODE」のpdf出力が実行されるのですが、対象が多いと非常に効率が悪いので、パラメータ表示せずに実行できるようにしたいです。

以上よろしくお願いいたします。

1,123 hits

▼

【12695】レポートをグループ毎にpdf出力に関するVBAについて AWW 15/2/9(月) 14:21