Свойства фильтрующего элемента
Таблица 9.1. Свойства фильтрующего элемента
Свойство |
Значение |
||
Тип источника строк (Row Source Type) | Список значений (Value List) | ||
Количество столбцов (Column Count) | 2 | ||
Ширина столбцов (Column Widths) | Ост; 2, 5cm | ||
Данные (ControlSource) | оставьте поле свойства пустым | ||
Имя (Name) | Отбор | ||
Присоединенный столбец (Bound Column) | 1 | ||
Источник строк (Row Source) | 0; "Поставки выполняются";— 1 ; "Поставки прекращены" ; 2 ; "Все товары" |
Обратите внимание на значения созданного элемента в свойстве
Источник строк
— 0, -1 и 2. Первые два значения выбраны в соответствии с возможными вариантами значений поля "ПоставкиПрекращены" (Discontinued) таблицы "Товары" (Products), которая является источником данных для подчиненной формы в настоящем примере. По этому полю и будет проводиться фильтрация данных в подчиненной форме.
-
В окне свойств созданного списка раскройте вкладку
События
(Events) и нажмите кнопку Построителя слева от свойства
После обновления
(After Update).
-
В появившемся диалоговом окне выделите элемент списка
Программы
(Code Builder) и нажмите кнопку
ОК.
-
Откроется редактор VBA со сгенерированным заголовком процедуры обработки события. Вставьте в процедуру следующий код:
Private Sub Отбор_А£terUpdate() If Me!Отбор = 2 Then
[Список товаров].Form.Filter = ""
[Список товаров].Form.FilterOn = False Else
? [Список товаров].Form.Filter = _
"[ПоставкиПрекращены] = " & Me!Отбор
[Список товаров].Form.FilterOn = True End If
End Sub
В английской версии "Борей" вместо русских названий подчиненной формы
[Список товаров] и поля [ПоставкиПрекращены] используйте их английские
аналоги: [Product List] и [Discontinued].
-
Закройте редактор VBA. Сохраните форму.