Свойство Controls возвращает ссылку на коллекцию Controls формы, подчиненной формы или раздела. Данное свойство обычно используется, когда необходимо сослаться на один из элементов управления формы, подчиненной формы или раздела. Например, чтобы узнать количество элементов управления формы Клиенты, можно использовать следующую запись:
Forms ("Клиенты"). Controls. Count
Свойство Form возвращает ссылку на форму или форму, ассоциированную с подчиненной формой. Обычно это свойство используется, чтобы сослаться на форму, содержащую подчиненную форму. Пример, представленный ниже, позволяет сослаться на элемент управления [Код товара] подчиненной формы Заказы формы Клиенты:
Forms!Клиенты!Заказы.Form![Код товара]
Свойство ItemData возвращает значение, содержащееся в присоединенном столбце указанной строки элемента управления Список (ListBox) или Поле со списком (ComboBox). Синтаксис свойства ItemData:
control.ItemData (rowindex)
Элементы синтаксиса свойства ItemData представлены в табл. 10.8.
Таблица 10.8.Элементы синтаксиса свойства Column
Элемент
Описание
Control
Обязательный элемент. Объект, представляющий собой список (ListBox) или поле со списком (ComboBox).
Rowindex
Обязательный элемент. Целое число в диапазоне от 0 до значения свойства ListCount минус 1, определяющее строку, из которой вы хотите получить значение.
Свойство ItemsSelected возвращает ссылку на семейство ItemsSelected, которое содержит в отличие от других семейств не объекты, а значения типа Variant. Эти значения представляют собой целочисленные индексы, указывающие положение выделенной строки в списке или в поле со списком.
Данное свойство можно использовать вместе со свойствами Column или ItemData для получения данных из выделенных строк списка.
Свойство OldValue содержит неизмененные данные, которые имел присоединенный элемент управления до начала редактирования.
Ниже приведен пример, выполняющий отмену всех изменений для всех элементов управления в форме после нажатия кнопки Отмена:
Sub Отмена_Click()
Dim ctl As Control
For Each ctl In Me.Controls
ctl. Value = ctl. OldValue
Next ctl
End sub
Обратите внимание, что после перемещения на следующую запись происходит обновление источника записей, после чего текущее значение поля и значение свойства OldValue становятся одинаковыми.