Событие Form.Current (Access)

Происходит при перемещении фокуса на запись, что делает ее текущей записью, или при обновлении или повторном запросе формы.

Синтаксис

expression. Текущий

выражение: переменная, представляющая объект Form.

Замечания

Чтобы запустить макрос или процедуру события при возникновении этого события, задайте для свойства OnCurrent имя макроса или [Процедура события].

Это событие возникает как при открытии формы, так и при выходе фокуса из одной записи и переходе к другой. Microsoft Access запускает текущую макрос или процедуру события перед отображением первой или следующей записи.

Выполняя макрос или процедуру события при возникновении текущего события формы, можно отобразить сообщение или синхронизировать записи в другой форме, связанной с текущей записью. Например, когда запись клиента становится актуальной, можно отобразить предыдущий заказ клиента. Когда запись поставщика становится актуальной, вы можете отобразить продукты, произведенные поставщиком, в форме Поставщики . Вы также можете выполнять вычисления на основе текущей записи или изменять форму в ответ на данные в текущей записи.

Если макрос или процедура события выполняет действие GoToControl или GoToRecord или соответствующий метод объекта DoCmd в ответ на событие Open , возникает событие Current .

Событие Current также возникает при обновлении формы или повторном запросе базовой таблицы или запроса формы, например при выборе пункта Удалить фильтр или сортировку в меню Записи или при использовании действия Requery в макросе или метода Requery в коде Visual Basic.

При первом открытии формы в этом порядке происходят следующие события:

Открыть → →изменить размер → Активировать → Текущий

Пример

В следующем примере процедура текущего события проверяет состояние кнопки параметра с именем "Прекращено". Если выбрана кнопка, в примере задается красный цвет фона поля ProductName , чтобы указать, что продукт был прекращен.

Чтобы попробовать пример, добавьте следующую процедуру события в форму, содержащую параметр с именем "Прекращено" и текстовое поле с именем ProductName.

Private Sub Form_Current() 
 If Me!Discontinued Then 
 Me!ProductName.BackColor = 255 
 EndIf 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.