Propriedade Screen.ActiveControl (Access)

Utilize a propriedade ActiveControl juntamente com o objeto Screen para identificar ou consultar o controlo 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.

Utilize a propriedade ActiveControl para fazer referência ao controlo que tem o foco no tempo de execução juntamente com uma das respetivas 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 seguinte atribui o controlo ativo à ctlCurrentControl variável e, em seguida, executa diferentes ações consoante o valor da propriedade Nome do controlo.

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.