Zugriff muss keine Berichte überschreiben

Question

Was hier passiert, ist der Bericht wird täglich überschrieben. Wie kann ich den Ausgabenamen vielleicht mit einem Datum eindeutig machen? damit es nicht jedes Mal gelöscht wird?

Public Function RunDMR() 
'E:\Management Reports 
Dim myfile As String 
myfile = "E:\Management Reports\B3-Daily Fiscal Report on Net Estimated to Receive by Ins - 45.pdf" 

DoCmd.OutputTo acOutputReport, "B3: Daily Fiscal Report on Net Estimated to Receive by Ins - 45", acFormatPDF, myfile, False 

End Function 

Answer 1

Um ein Datum zu dem Berichtsnamen hinzuzufügen, verwenden Sie die folgende:

myfile = "E:\Management Reports\B3-Daily Fiscal Report on Net Estimated to Receive by Ins - 45_" & format(date,"YYYYMMDD") & ".pdf" 

ein Datum & Zeit zum Berichtsnamen hinzuzufügen, verwenden Sie die folgende:

myfile = "E:\Management Reports\B3-Daily Fiscal Report on Net Estimated to Receive by Ins - 45_" & format(Now(),"YYYYMMDD_HHMMSS") & ".pdf"