Access 2002

Функция handlecarry


Сначала функция HandleCarry пытается извлечь из свойства Tag текущего элемента управления имя связанного с ним элемента:

Если переменная strName включает текст, код получает ссылку на элемент управления, содержащий данные, и в зависимости от того, нажата или свободна кнопка-выключатель, решает, что делать дальше. Если кнопка-выключатель нажата, выполняется следующее.

1.   Функция считывает текущее значение свойства Tag элемента управления, содержащего данные, и присваивает его свойству Text объекта TaggedValues.

2.   Затем функция добавляет в свойство Text объекта TaggedValues пару иня=зна- чение с текущим значением свойства DefaultValue элемента управления, содержащего данные.

3.   Свойству Tag элемента управления, содержащего данные, присваивается новое значение, содержащее тег с исходным значением по умолчанию.

4.   Свойству DefaultValue элемента управления, содержащего данные, присваивается значение, которое должно быть перенесено в новую запись.

В следующем фрагменте кода переменная ctl Carry содержит ссылку на элемент управления, значение которого будет перенесено в новую запись. Константа adhcDV включает имя тега для хранения исходного значения по умолчанию (DefaultValue).

Свойство DefaultValue должно содержать строковое значение, заключенное в кавычки. Поэтому перед присвоением значения свойству ctl Carry.DefaultValue свойство ctlCarry.Value заключается в кавычки, хранящиеся в константе adhcQuote. Кроме того, на случай, если значение элемента управления само содержит кавычки, эти знаки дублируются с помощью функции VBA Replace. Если не сделать этого, при выполнении кода может произойти ошибка.

Комментарии закрыты