fdialog - filters.add vba

Cómo filtrar un objeto de informe al guardarlo a través de FileDialog en MS Access

Question

Estoy intentando guardar un archivo rtf usando FileDialog y me gustaría filtrar usando una cláusula where. Esto es lo que tengo:

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

¿Alguna idea sobre cómo podría agregar la cláusula where sin cambiar el informe?

Answer 1

Descubrí que la manera más fácil de hacerlo sin tocar el código de informe es abrir el informe en modo de vista previa con el filtro aplicado, y luego enviar el informe al formato que necesite.

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