Фильтрация отчёта при открытии - По данным полей формыПо материалам: https://www.cyberforum.ru/ms-access/thread2779382.html Можно задать фильтр отчёта при его открытии. Private Sub cmdReportPreeview_Click() Dim sFilter As String Const sReportName = "rptTest" 'Имя вашего отчета (Замените на своё значение) 'Имя поля даты в источнике данных вашего отчета (Замените на своё значение) Const sDateFildName = "DocDate" ' например "[дата выезда транспорта]" 'Даты c - по sFilter = sDateFildName & " Between " & _ Format$(Nz(Me!txtDateFrom, 0), "\#mm\/dd\/yyyy\#") & _ " And " & _ Format$(Nz(Me!txtDateTo, 999999), "\#mm\/dd\/yyyy\#") ' ... поясню : 999999 это сразу : 4637-й год! :) 'Открытие на просмотр с фильтрацией DoCmd.OpenReport sReportName, acViewPreview, , sFilter DoCmd.Maximize 'Во весь экран DoCmd.RunCommand acCmdPreviewOnePage 'Страницу по размеру окна End Sub |
|||
L.E. 05.02.2021 |