Как отфильтровать объект отчета при сохранении через FileDialog в MS Access
-
03-07-2019 - |
Вопрос
Я пытаюсь сохранить 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, не изменяя отчет иным образом?
Решение
Я обнаружил, что самый простой способ сделать это, не касаясь самого кода отчета, - открыть отчет в режиме предварительного просмотра с примененным фильтром, а затем вывести отчет в любой нужный вам формат.
If .Show Then
DoCmd.OpenReport Me.cmbPickAReportToPrint.Value, acViewPreview, , "fieldToFilterOn = 'value'"
DoCmd.OutputTo acOutputReport, Me.cmbPickAReportToPrint.Value, acFormatRTF, .SelectedItems(1)
End If
Не связан с StackOverflow