Comment filtrer un objet de rapport lors de l'enregistrement via FileDialog dans MS Access

Question

J'essaie de sauvegarder un fichier rtf en utilisant FileDialog et souhaite filtrer en utilisant une clause where. Voici ce que j'ai:

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

Avez-vous des idées sur la façon dont je pourrais ajouter la clause where sans modifier autrement le rapport?

Answer 1

J'ai constaté que le moyen le plus simple de procéder sans toucher au code du rapport consiste à ouvrir le rapport en mode de prévisualisation avec le filtre appliqué, puis à générer le rapport au format souhaité.

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