3

我正在尝试使用 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 子句的任何想法?

4

1 回答 1

3

我发现在不触及报表代码本身的情况下执行此操作的最简单方法是在应用了过滤器的情况下以预览模式打开报表,然后将报表输出为您需要的任何格式。

If .Show Then
    DoCmd.OpenReport Me.cmbPickAReportToPrint.Value, acViewPreview, , "fieldToFilterOn = 'value'"
    DoCmd.OutputTo acOutputReport, Me.cmbPickAReportToPrint.Value, acFormatRTF, .SelectedItems(1)
End If
于 2008-09-30T17:36:03.513 回答