Propiedad Screen.ActiveControl (Access)

Use la propiedad ActiveControl junto con el objeto Screen para identificar o hacer referencia al control que tiene el foco. Objeto Control de sólo lectura.

Sintaxis

expresión. ActiveControl

Expresión Variable que representa un objeto Screen .

Comentarios

El valor de esta propiedad contiene una referencia al objeto Control que tiene el enfoque en tiempo de ejecución.

Use la propiedad ActiveControl para hacer referencia al control que tiene el foco en tiempo de ejecución junto con una de sus propiedades o métodos. En el siguiente ejemplo se asigna el nombre del control con el foco a la variable strControlName .

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

Si ningún control tiene el foco cuando se utiliza la propiedad ActiveControl o si todos los controles del formulario activo están ocultos o deshabilitados, se produce un error.

Ejemplo:

En el ejemplo siguiente se asigna el control activo a la ctlCurrentControl variable y, a continuación, se realizan diferentes acciones en función del valor de la propiedad Name del control.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.