How to filter a report-Objekt beim speichern durch FileDialog in MS Access

Question

Ich bin versucht zu retten, eine rtf-Datei mit FileDialog-und würde wie, um filter mithilfe einer where-Klausel.Dies ist, was ich habe:

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

Irgendwelche Ideen, wie ich hinzufügen könnte die where-Klausel ohne das ändern der Bericht?

Answer 1

Ich habe herausgefunden, dass der einfachste Weg, dies zu tun, ohne zu berühren den Bericht code selbst ist, öffnen Sie den Bericht in der Vorschau-Modus, mit dem der filter angewendet wurde, und dann den Bericht ausgeben, um welches format Sie auch immer benötigen.

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