Как я могу сделать код, который подсчитывает количество распечатанных отчетов в день?

Question

Мне нужно экспортировать 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

Как я могу сделать код, который подсчитывает количество отпечатков в день?

Answer 1

Матеус,

Я собрал некоторый код, который, кажется, работает, вместе с некоторыми комментариями.

Я бы посоветовал вам форматировать дату, чтобы она была одинаковой длины (например, "ddmmyy" или "yymmdd"), в противном случае 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';"

С уважением