Как отфильтровать объект отчета при сохранении через FileDialog в MS Access - PullRequest
Новая
       55

Как отфильтровать объект отчета при сохранении через FileDialog в MS Access

3 голосов
/ 30 сентября 2008

Я пытаюсь сохранить файл rtf, используя FileDialog, и хотел бы отфильтровать, используя предложение 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, не изменяя отчет иначе?

1 Ответ

3 голосов
/ 30 сентября 2008

Я обнаружил, что самый простой способ сделать это, не касаясь самого кода отчета, - это открыть отчет в режиме предварительного просмотра с примененным фильтром, а затем вывести отчет в любом нужном формате. 

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