Hi Lou,
I have removed a lot of the extra copies of the same comments in this reply for ease of review. It isn't clear if you have tried setting a break point near the top of your code and stepping through. Also, adding some debug.Print lines in your code will help understand memory variables.
It might be an issue the record hasn't been saved prior to the code running.
Duane
On Mon, Nov 21, 2022 at 04:16 AM, Duane Hookom wrote:
I would try basic troubleshooting using a combination of breakpoints and debug.print to see what is going on with your code.
Duane
On Sun, Nov 20, 2022 at 06:41 AM, Giorgio Rovelli wrote:
Did you set strFilter? Do you have *'s in the First_Name field? Maybe you should specify strWhere when you use DoCmd.OutputTo as well?
LOU(at home) <lou@ix.net.au> wrote:
Hello all, I haven't posted on here for many years! I'm now 76 years old and the old grey matter is slowing down :(
Today I went back to a database I first worked on 15 or so years ago with Access 97 I think.
I've now subscribed to Access 365 and found a few things no working, I've fixed a couple but this one has me stumped.
The code below belongs to a Button which when clicked would open allow me to save a record in pdf format and the default name of the file would be the First_Name & Last_Name of the open record.
When I click on it now, nothing happens!
Any help would be greatly appreciated.
Thank you, Lou
------------------------------
Private Sub Save_PDF_Button_Click()
Dim strDocName As String
Dim strWhere As String
Dim strFilter As String
Dim strInputFileName As String
Dim strTitle As String
Dim strSaveName As String
strDocName = "Rel_View_Data_Rpt"
strWhere = "(ID)=" & Me!ID
DoCmd.OpenReport strDocName, acViewPreview, , strWhere
strTitle = "Save Report for " & Me.First_Name & "_" & Me.Last_Name & " in PDF Format" & " © Lou Lucano"
strSaveName = Replace(Me.First_Name, "*", "")
'Ask for SaveFileName
strSaveFileName = ahtCommonFileOpenSave( _
OpenFile:=False, _
Filter:=strFilter, _
FileName:=strSaveName & "_" & Me.[Last_Name] & ".pdf", DialogTitle:=strTitle, _
Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_PATHMUSTEXIST)
If Len(strSaveFileName) = 0 Then
DoCmd.Close acReport, strDocName, acSaveNo
Exit Sub
End If
DoCmd.OutputTo acOutputReport, strDocName, acFormatPDF, strSaveFileName
DoCmd.Close acReport, strDocName, acSaveNo
MsgBox Me.[First_Name] & " " & Me.[Last_Name] & " Report saved in PFD Format."
End Sub
