كيفية تصفية تقرير الكائن عند حفظ من خلال 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