フォームからアクセスレポートを作成してPDFとして保存

Question

現在、Accessデータベースを使用してレポートをたくさん作成しています。レポートはクエリをソースとして使用していますが、クエリではフォームを基準として使用してフォームはレポートで使用されるデータです。 次に、レポートをPDFとして保存し、フォーム内をクリックして次のデータセットを実行します。 これは、500件を超えるレポートを作成すると非常に時間がかかります。では、フォーム内のすべてのページを実行し、各レポートをPDFとして保存するための関数、VBAまたはマクロを作成する方法はありますか？

私のフォームがNorwF命名され、クエリがNorwQあると報告書は、私はそれが理にかなっていると、このPROJEKTがスムーズに実行させるためのより高速な方法があることを願っていNorwRap

です。

Answer 1

フォーム上のボタンを配置した場合、背後にあるこのコードは動作するはずです：

Dim rst  As DAO.Recordset 

Dim strReport  As String 
Dim strReportFile As String 

strReport = "NorwRap" 
'Set rst = Me.RecordsetClone 
Set rst = CurrentDB.OpenRecordSet("NorwQ") 'use the query 
Do While rst.EOF = False 

    strReportFile = rst!ID & ".pdf" ' give report name based on field name 
    DoCmd.OpenReport strReport,acViewPreview , , "id = " & rst!ID 
    DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strOutFile 
    DoCmd.Close acReport, strReport 

    rst.MoveNext 

Loop