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 に答える