Propriedade Screen.ActiveControl (Access)

Use a propriedade ActiveControl junto com o objeto Screen para identificar ou consultar o controle que tem o foco. Objeto de controle de somente leitura.

Sintaxe

expressão. Activecontrol

Expressão Uma variável que representa um objeto Screen .

Comentários

A configuração dessa propriedade contém uma referência ao objeto Control que tem o foco em tempo de execução.

Use a propriedade ActiveControl para se referir ao controle que tem o foco em tempo de execução junto com uma de suas propriedades ou métodos. O exemplo a seguir atribui o nome do controle com o foco à variável strControlName .

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

Se nenhum controle tiver o foco quando você usa a propriedade ActiveControl, ou se todos os controles do formulário ativo estiverem ocultos ou desativados, ocorrerá um erro.

Exemplo

O exemplo a seguir atribui o controle ativo à ctlCurrentControl variável e, em seguida, executa ações diferentes dependendo do valor da propriedade Name do controle.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.