Dim strWhereCategory As String

Объявление переменной для условия отбора данных

strWhereCategory = "Код_поставщика = Forms![Отчеты о продажах]!Spisok"

Создание строки отбора данных

Создание выбора вида отображения формы

Select Case Me!grpOtchet

Case 1

DoCmd.OpenForm "Приход", acNormal

Открытие формы в обычном режиме просмотра

Case 2

DoCmd.OpenForm "Сводная форма", acFormPivotTable

Открытие формы в режиме сводной таблицы

Case 3

If IsNull(Forms![Отчеты о продажах]!spisok) Then

DoCmd.OpenForm "Приход", acNormal

Else

DoCmd.OpenForm "Приход", acNormal,, strWhereCategory

Открытие формы в обычном режиме просмотра с фильтром

End If

End Select

DoCmd.Close acForm, "Отчеты о продажах"

Закрытие текущей формы

End Sub

Разберем смысл кода приведенного в листинге 3.

Объект DoCmd — это "рабочая лошадка" программирования в Access. Этот объект позволяет программным образом выполнять макрокоманды Access.

У объекта DoCmd нет свойств, только методы.

Приводить здесь методы DoCmd с комментариями нет никакого смысла — эти методы в точности соответствуют набору действий в конструкторе макрокоманд.

Ключевое слово Me! используется для указания элементов к текущей форме. Например, чтобы обратиться к группе переключателей на форме достаточно написать Me!grpOtchet.

Для перебора значений группы переключателей используется стандартная условная конструкция Select Case …. End Select, где внутри созданы блоки перебора Case трех значений, соответствующих трех видов отчетов.

Для открытия соответствующей формы в зависимости от вида отчета используется метод OpenForm. Вы можете использовать метод OpenForm для того, чтобы раскрыть форму в виде формы, в режиме конструктора формы, предварительного просмотра перед печатью, или Datasheet. Вы можете выбрать режимы ввода данных и окна для формы и ограничить записи, которые форма показывает. Синтаксис его следующий:

Не нашли, что искали? Воспользуйтесь поиском: