Solved Save report as PDF with query criteria in name, please (1 Viewer)

[murray83]

Hi All

2 questions in one day i am sorry, but in need of a little help this is my code

Private Sub cmdQuery3_Click()

Dim mypath As String
Dim strReportName As String
Dim sEmailTo As String



    DoCmd.OpenReport "Query3", acViewPreview

    mypath = "G:\GENERAL\STOCK\supplier compliance\BWS Supplier Compliance\BWS Compliance DB\PercentageVsLoad\"

    strReportName = "BWS Percentage Of Faults For" & [Which Date] & ".pdf"
     
    DoCmd.OutputTo acReport, "", acFormatPDF, mypath & strReportName, False


End Sub

which should in theory save the report with the date of the query but it just falls flat and highlights the following point of code, i must admit i took the & bit from my saving for excel so may have got the data wrong

so any help would be great and promise last question for today and this week

 

[Gasman]

And where is Access meant to get [Which Date] from ?

 

[murray83]

the query which generates the report.

but i guess as your asking that wouldn't work or do i need to put something like report!

 

[murray83]

ok i have managed to get the date to appear in the string for the file name, but due to the date having slashs it wont save ( well thats what i guess the new error msg is )

so how do i change slash for a dot i have changed from short date to medium and long date but both have slashs when it runs to save but the report shows them as medium and long date formats with no slash

 

[murray83]

sorry for the tripple post but i have sorted it.

i used the mid function and cut out the slashes to another text box and here is my code now

Private Sub cmdQuery3_Click()
    
Dim mypath As String
Dim strReportName As String
Dim sEmailTo As String


    DoCmd.OpenReport "Query3", acViewPreview
    mypath = "G:\GENERAL\STOCK\supplier compliance\BWS Supplier Compliance\BWS Compliance DB\PercentageVsLoad\"
    strReportName = "BWS Percentage Of Faults For " & Reports!Query3!txtDay & " - " & Reports!Query3!txtMnth & " - " & Reports!Query3!txtYear & ".pdf"
    DoCmd.OutputTo acReport, "", acFormatPDF, mypath & strReportName, False
  
    
End Sub

 

[Gasman]

I would have just used Repace() with "" or "-" ?