Need to change export VBA to let user select folder location

[gojets1721]

Okay that worked...last issue (I'm sorry). It doesn't seem to be applying the criteria. When I export, it's exporting every entry in the form to PDF when it should be exporting only one. Anything visible from the code that would cause the criteria to not be applied? Here's the code:

Private Sub btnExportEvent_Click()
    Dim reportName As String
    Dim criteria As String
    Dim fd As Object
    Dim filename As String
 
    reportName = "CompletedForm"
    criteria = "[ComplaintNumber]= " & [Forms]![frmDetails]![ComplaintNumber]

    Set fd = Application.FileDialog(2)
    filename = Me.CustomerLastName & ", " & Me.CustomerFirstName & " " & Format(Me.DateOpened, "m.d.yyyy") & ".pdf"
    With fd
        .InitialFileName = "C:\Users\Public\" & filename
        .Show
    End With
   
    MsgBox filename

    DoCmd.OpenReport reportName, acViewPreview, criteria, acHidden
    DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, filename
    DoCmd.Close acReport, reportName, acSaveNo
End Sub

 

[theDBguy]

Okay that worked...last issue (I'm sorry). It doesn't seem to be applying the criteria. When I export, it's exporting every entry in the form to PDF when it should be exporting only one. Anything visible from the code that would cause the criteria to not be applied? Here's the code:

Private Sub btnExportEvent_Click()
    Dim reportName As String
    Dim criteria As String
    Dim fd As Object
    Dim filename As String

    reportName = "CompletedForm"
    criteria = "[ComplaintNumber]= " & [Forms]![frmDetails]![ComplaintNumber]

    Set fd = Application.FileDialog(2)
    filename = Me.CustomerLastName & ", " & Me.CustomerFirstName & " " & Format(Me.DateOpened, "m.d.yyyy") & ".pdf"
    With fd
        .InitialFileName = "C:\Users\Public\" & filename
        .Show
    End With
  
    MsgBox filename

    DoCmd.OpenReport reportName, acViewPreview, criteria, acHidden
    DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, filename
    DoCmd.Close acReport, reportName, acSaveNo
End Sub

Hi. Glad to hear you're making good progress. What data type is "ComplaintNumber?"

 

[gojets1721]

Hi. Glad to hear you're making good progress. What data type is "ComplaintNumber?"

It's a 'number' data type

 

[theDBguy]

It's a 'number' data type

Okay, try replacing this part:

DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden

 

[gojets1721]

That worked!! Thank you so much!!

 

[theDBguy]

That worked!! Thank you so much!!

You're welcome. We were all happy to assist. Good luck with your project.