Свойство Screen.ActiveControl (Access)

Используйте свойство ActiveControl вместе с объектом Screen , чтобы определить элемент управления, находящийся в фокусе, или сослаться на него. Объект управления только для чтения.

Синтаксис

выражение. ActiveControl

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

Примечания

Этот параметр свойства содержит ссылку на объект Control , находящийся в фокусе во время выполнения.

Свойство ActiveControl используется для ссылки на элемент управления, находящий фокус во время выполнения, вместе с одним из его свойств или методов. В следующем примере переменной назначается имя элемента управления с фокусом strControlName .

Dim ctlCurrentControl As Control 
Dim strControlName As String 
Set ctlCurrentControl = Screen.ActiveControl 
strControlName = ctlCurrentControl.Name

Если при использовании свойства ActiveControl фокус не находится ни на одном элементе управления либо если все элементы управления активной формы скрыты или отключены, возникает ошибка.

Пример

В следующем примере активный элемент управления назначается переменной ctlCurrentControl , а затем выполняет различные действия в зависимости от значения свойства элемента управления Name .

Dim ctlCurrentControl As Control 
 
Set ctlCurrentControl = Screen.ActiveControl 
If ctlCurrentControl.Name = "txtCustomerID" Then 
 . 
 . ' Do something here. 
 . 
ElseIf ctlCurrentControl.Name = "btnCustomerDetails" Then 
 . 
 . ' Do something here. 
 . 
End If

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

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