Access (VBA)

Access VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 8.1 Pro : Access 2016)
グループ毎にPDF出力
投稿日時: 19/11/11 19:36:00
投稿者: めぐちゃん

レポート納品伝票をPDFで出力しようとしています。
各顧客ごとに、別ファイルで出力しようとしています。
それぞれにレポートが1ページずつのPDF出力は、できているのですが、1顧客のレポートが2ページ以上になると、永遠にLOOPし続けてしまいます。
 
以下のようにしています。
何かが足りないのでしょうか。
どなたかご教授ください。
 
Private Sub はい_Click()
  On Error Resume Next
  
If DCount("*", "納品伝票発行指定無") = 0 Then
 MsgBox "出力する納品伝票はありません"
 
 End If
 
Const TBL_NAME = "納品伝票"
Const RPT_NAME = "納品伝票"
Const PDF_PATH = ""
 Dim rs As ADODB.Recordset
 Set rs = New ADODB.Recordset
 
 rs.Open "SELECT 納品伝票.顧客ID, 納品伝票.会社名, 納品伝票.支店名 FROM 納品伝票; ", CurrentProject.Connection, adOpenStatic, adLockReadOnly
  Do Until rs.EOF
 pdfName = "納品伝票" & rs!顧客ID & rs!会社名 & rs!支店名 & Format(Date, "yyyymmdd")
 DoCmd.OpenReport RPT_NAME, acViewPreview, , "顧客ID = " & rs!顧客ID, acWindowNormal
 DoCmd.OutputTo acOutputReport, RPT_NAME, acFormatPDF, PDF_PATH & pdfName & ".pdf"
  
DoCmd.Close
rs.MoveNext
Loop
End Sub

トピックに返信