Evento ComboBox.GotFocus (Access)

El evento GotFocus se produce cuando el objeto especificado recibe el enfoque.

Sintaxis

expresión. GotFocus

Expresión Variable que representa un objeto ComboBox .

Comentarios

Para ejecutar una macro o un procedimiento de evento cuando se produzcan estos eventos, establezca la propiedad OnGotFocus en el nombre de la macro o en [Procedimiento de evento].

Estos eventos se producen cuando el foco se mueve en respuesta a una acción del usuario, como presionar la tecla Tab o hacer clic en el objeto, o cuando se usa el método SetFocus en Visual Basic o la acción SelectObject, GoToRecord, GoToControl o GoToPage en una macro.

Un control puede recibir el foco sólo si sus propiedades Visible y Enabled se establecen en Yes. Un formulario puede recibir el foco sólo si no tiene controles o si todos los controles visibles están deshabilitados. Si un formulario contiene algún control visible y habilitado, no se produce el evento GotFocus para el formulario.

Puede especificar lo que sucede cuando un formulario o control recibe el enfoque mediante la ejecución de una macro o un procedimiento de evento cuando se produce el evento GotFocus. Por ejemplo, al asociar un procedimiento de evento GotFocus a cada control de un formulario, puede guiar al usuario por la aplicación mostrando breves instrucciones o mensajes en un cuadro de texto. También puede dar pistas visuales habilitando, deshabilitando o mostrando controles que dependan del control que tenga el enfoque.

El evento GotFocus se diferencia del evento Enter en que el evento GotFocus se produce cada vez que un control recibe el foco. Por ejemplo, suponga que el usuario hace clic en una casilla de verificación en un formulario, a continuación, hace clic en un informe y finalmente hace clic en la casilla de verificación en el formulario para mostrarla en primer plano. El evento GotFocus se produce las dos veces que la casilla recibe el enfoque. Por el contrario, el evento Enter solo se produce la primera vez que el usuario hace clic en la casilla. El evento GotFocus se produce después del evento Enter.

Si desplaza el enfoque a un control de formulario que no lo tenía previamente, los eventos Exit y LostFocus del control que tenía el enfoque se producen antes que los eventos Enter y GotFocus del control que lo recibe.

Si usa el mouse para desplazar el enfoque de un control de un formulario principal a un control de un subformulario del mismo, se producirán los siguientes eventos:

• Exit (para el control del formulario principal)
• LostFocus (para el control del formulario principal)
• Enter (para el control del subformulario)
• Exit (para el control del subformulario que tenía el enfoque)
• LostFocus (para el control del subformulario que tenía el enfoque)
• Enter (para el control del subformulario al que se mueve el enfoque)
• GotFocus (para el control del subformulario al que se mueve el enfoque)

Si el control al que se mueve en el subformulario tenía anteriormente el foco, no se produce ni su evento Enter ni su evento GotFocus , pero sí se produce el evento Enter para el control de subformulario. Si mueve el foco de un control de un subformulario a un control del formulario principal, los eventos Exit y LostFocus del control del subformulario no se producen, solo el evento Exit para el control de subformulario y los eventos Enter y GotFocus del control en el formulario principal.

Cuando se cambia entre dos formularios abiertos, el evento Deactivate se produce para el primer formulario, y se produce el evento Activate para el segundo formulario. Si los formularios no contienen ningún control visible y habilitado, se producirá el evento LostFocus para el primer formulario antes del evento Deactivate y el evento GotFocus para el segundo formulario después del evento Activate.

Ejemplo:

En el ejemplo siguiente se muestra un mensaje en una etiqueta cuando el enfoque llega a un botón de opción. Para probar el ejemplo, agregue los siguientes procedimientos de evento a un formulario denominado Contactos que contenga un botón de opción denominado OptionYes y una etiqueta denominada LabelYes.

Private Sub OptionYes_GotFocus() 
 Me!LabelYes.Caption = "Option button 'Yes' has the focus." 
End Sub 
 
Private Sub OptionYes_LostFocus() 
 Me!LabelYes.Caption = "" ' Clear caption. 
End Sub

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.