Saving a report to table and saving as pdf with one button

[cfobare79]

I have the code below. I keep getting this error: Run-time error '2501' The OutputTo action was canceled

Private Sub Command192_Click()
CurrentDb.Execute "INSERT INTO Report ( ReportNum, AgencyID, AgencyName, ServiceGroup, StartDate, EndDate, ServiceName ,Total) " & _
" VALUES ('" & [Text137] & "'," & [AgencyID] & ",'" & [AgencyName] & "','" & _


[ServiceGroup] & "',#" & [Text106] & "#,#" & [Text0] & "#,' " & [Label197].[Caption] & " ', ' " & [Text188] & " ')"




Dim FileName As String
Dim FilePath As String


FileName = Me.Number
FilePath = "C:\Users\Chris\Desktop\NYS ITS Storage\" & FileNme & ".pdf"
DoCmd.OutputTo acOutputReport, "Enterprise Communications", acFormatPDF, FilePath
MsgBox "Invoice Has Been Saved", vbInformation, "Sace Confirmed"
End Sub

[June7]

I see space between apostrophe and quote mark for the last two parameters in the INSERT statement. Probably don't want to save data with spaces.

The variable FileName is misspelled in the FilePath concatenation.

Every code module should have Option Explicit in the module header to help catch these type of errors.

[cfobare79]

That was the problem.. .Thanks a lot. I don't know how I missed that after looking it over 100 times.

[June7]

As I said, Option Explicit in module header will help catch those errors.