MS Access에서 Filedialog를 통해 저장할 때 보고서 개체를 필터링하는 방법

Question

Filedialog를 사용하여 RTF 파일을 저장하려고 시도하고 WHERE 절을 사용하여 필터링하려고합니다. 이것이 내가 가진 것입니다.

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

보고서를 변경하지 않고 Where 절을 추가 할 수있는 방법에 대한 아이디어가 있습니까?

Answer 1

보고서 코드 자체를 터치하지 않고이 작업을 수행하는 가장 쉬운 방법은 필터가 적용된 상태에서 미리보기 모드에서 보고서를 열고 필요한 모든 형식으로 보고서를 출력하는 것입니다.

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