Just as an added bit of useful code for filepaths, I use this (blatantly stolen from somewhere on the interwebs)
Just store it in a Module, if you don't have any modules call it modFunctions and store other useful snippets in there.
Code:
Public Function TrailingSlash(varIn As Variant) As String
If Len(varIn) > 0& Then
If Right(varIn, 1&) = "\" Then
TrailingSlash = varIn
Else
TrailingSlash = varIn & "\"
End If
End If
End Function
Simply use it around any filepath and you know that it has the trailing slash added as required.
Your code in completeness should be something like;
Code:
Private Sub Command125_Click()
Dim sFileName As String
Dim sFilePath As String
sFileName = "Plot_" & Me.Customer_Plot_No & "_" & Me.Development & "_Remedial_works_report"
sFilePath = CurrentProject.Path & "\" & sFileName & ".pdf"
Debug.Print sFilePath
DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, FilePath
MsgBox "Report Saved Successfully", vbInformation, "save confirmed"
End Sub
I've removed all the spaces from your filename to ensure it works, and added a debug to print the filepath to the immediate window for debugging purposes.