Home/ Questions/Q 55575
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-10T17:23:56+00:00

I am attempting to save an rtf file using FileDialog and would like to

  • 0

I am attempting to save an rtf file using FileDialog and would like to filter using a where clause. This is what I have:

Set dlgSave = FileDialog(msoFileDialogSaveAs) With dlgSave   .Title = 'Provide the place to save this file'   .ButtonName = 'Save As...'   .InitialFileName = Me.cmbPickAReportToPrint.Value & '-' & Format(Date, 'mmddyy') & '.rtf'   .InitialView = msoFileDialogViewDetails    If .Show Then       DoCmd.OutputTo acOutputReport, Me.cmbPickAReportToPrint.Value, acFormatRTF, .SelectedItems(1)   End If End With

Any ideas as to how I could add the where clause without otherwise changing the report?

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. I’ve found that the easiest way to do this without touching the report code itself is to open the report in preview mode with the filter applied, and then output the report to whatever format you need. 

    If .Show Then     DoCmd.OpenReport Me.cmbPickAReportToPrint.Value, acViewPreview, , 'fieldToFilterOn = 'value''     DoCmd.OutputTo acOutputReport, Me.cmbPickAReportToPrint.Value, acFormatRTF, .SelectedItems(1) End If
    • 0