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