Sql 我如何制作一个每天统计打印报告的代码？

我需要导出具有顺序名称的PDF文件：

“年”+“月”+“日”+“每天打印的报告”

例：20200130_035

我做了日期代码

Dim strArquivo As String
Dim strLocal As String

strArquivo = "" & Year(Date) & Month(Date) & Day(Date) & HERE THE REPORTS PRINTED QUANTITY & " .pdf "
strLocal = CurrentProject.Path & "\PDF\" & strArquivo
DoCmd.OutputTo acReport, "Report", acFormatPDF, strLocal

我如何制作每天打印报告的代码？

Matheus

我已经整理了一些似乎有效的代码，还有一些注释

我建议您将日期设置为一致的长度（如“ddmmyy”或“yymdd”），否则1月11日和11月1日都将显示为“111”

我还建议对报告编号进行分隔和格式化，例如“-001”/“-002”，以使事情更清楚

您可能还希望在PDF报告时存储报告名称

Dim strLocal As String
Dim intCount As Integer
strLocal = Format(Date, "yymmdd")
intCount = Nz(DCount("PrintDate", "tblPrintID", "PrintDate='" & Format(Date, "yymmdd") & "'"), 0) + 1
strLocal = "C:\test\" & strLocal & "-" & Format(intCount,"000") & ".pdf"
Debug.Print strLocal
DoCmd.OutputTo acOutputReport, "rpt1", acFormatPDF, strLocal
CurrentDb.Execute "INSERT INTO tblPrintID (PrintDate,PrintReport) SELECT '" & Format(Date, "yymmdd") & "','rpt1';"

---

关于

你在哪里记录每天打印的报告数量？这是我的问题。我该怎么做呢？将它存储在一个表中，并用+1更新它，或者用自动递增的主键插入pdf的名称。