Solved Saving a report to a specified folder (1 Viewer)

LouL

New member
Local time
Today, 13:22
Joined
Mar 24, 2024
Messages
8
MS Access 365
Hello everyone, thank you for your past help.
I've now got a little problem trying to save a report in a specified folder.
I've followed all the example I could find on the net, but it just won't work for me!
I'm obviously doing something fundamentally wrong, but I just can't nail it.
Your help would be appreciated.
I get this error message:
"Run-time error 2498
The expression you entered is the wrong data type for one of the arguments."
----------------------
When I use this code, everything works fine and the file (in PDF Format) is saved to the Documents Folder.

Private Sub Save_PDF_Button_Click()
Dim strReport As String
Dim strWhere As String
Dim strFileName As String
Dim strSaveName As String

strSaveName = Replace(Me.First_Name, "*", "")
strReport = "Rel_View_Data_Rpt"
strWhere = "[ID]=" & Me!ID
strFileName = strSaveName & " " & Me.Last_Name & ".pdf"

DoCmd.OpenReport strReport, acViewPreview, , strWhere, acWindowNormal
DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strFileName, False
DoCmd.Close acReport, strReport

MsgBox Me.[First_Name] & " " & Me.[Last_Name] & " Report saved in PFD Format."


End Sub

----------------------------------------------------------------------
However, when I use the same code and add the folder I want the file save to, I get the "2498" error!
Where am I going wrong, please.
(I've highlighted what I added in RED)

Private Sub Save_PDF_Button_Click()
Dim strReport As String
Dim strWhere As String
Dim strFileName As String
Dim strSaveName As String

Dim strFolder as String

strFolder = "C:\Personal_DB_PDF_Files\"

strSaveName = Replace(Me.First_Name, "*", "")
strReport = "Rel_View_Data_Rpt"
strWhere = "[ID]=" & Me!ID
strFileName = strSaveName & " " & Me.Last_Name & ".pdf"

DoCmd.OpenReport strReport, acViewPreview, , strWhere, acWindowNormal
DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strFileName, strFolder, False
DoCmd.Close acReport, strReport

MsgBox Me.[First_Name] & " " & Me.[Last_Name] & " Report saved in PFD Format."


End Sub
 

June7

AWF VIP
Local time
Yesterday, 19:22
Joined
Mar 9, 2014
Messages
5,503
Try:
Code:
DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strFolder & strFileName, False

Please post code between CODE tags to retain formatting and readability. Click the </> icon on toolbar. Paste code.
 

LouL

New member
Local time
Today, 13:22
Joined
Mar 24, 2024
Messages
8
Try:
Code:
DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strFolder & strFileName, False

Please post code between CODE tags to retain formatting and readability. Click the </> icon on toolbar. Paste code.
Thank you, that "&" did the trick. Much appreciated. 😊
 

Gasman

Enthusiastic Amateur
Local time
Today, 04:22
Joined
Sep 21, 2011
Messages
14,607
You were not creating a valid file path?
You were just throwing in another parameter that was invalid for that command.
 

Users who are viewing this thread

Top Bottom