Evento Form.Current (Access)

Se produce cuando el enfoque se desplaza a un registro, haciendo que sea el registro actual, o cuando el formulario se actualiza o se somete a una nueva consulta.

Sintaxis

expresión. Actual

expresión Variable que representa un objeto Form.

Comentarios

Para ejecutar una macro o procedimiento de evento cuando se produzca este evento, establezca la propiedad OnCurrent en el nombre de la macro o en [procedimiento de evento].

Este evento se produce al abrir un formulario y también siempre que el enfoque deja un registro y pasa a otro. Microsoft Access ejecuta la macro actual o se muestra el procedimiento de evento antes del primer o siguiente registro.

Mediante la ejecución de una macro o procedimiento de evento cuando se produce el evento Current de un formulario puede, por ejemplo, mostrar un mensaje o sincronizar los registros de otro formulario relacionado con el registro activo. Por ejemplo, cuando el registro de un cliente es el registro activo, puede mostrar su pedido anterior. Cuando un registro de proveedor se hace actual, puede mostrar los productos fabricados por el proveedor en un formulario Proveedores . También puede realizar cálculos basándose en el registro actual o cambiar el formulario en respuesta a los datos del mismo.

Si la macro o el procedimiento de evento ejecuta una acción GoToControl o GoToRecord o el método correspondiente del objeto DoCmd en respuesta a un evento Open , se produce el evento Current .

El evento Current también se produce cuando se actualiza un formulario o se vuelve a consultar la tabla o consulta subyacentes del formulario, por ejemplo, cuando se elige Quitar filtro o ordenación en el menú Registros o se usa la acción Requery en una macro o el método Requery en código de Visual Basic.

La primera vez que se abre un formulario, se producen los eventos siguientes, en el orden indicado:

Open → Load → Resize → Activate → Current

Ejemplo:

En el ejemplo siguiente, un procedimiento de evento Current comprueba el estado de un botón de opción denominado Discontinued. Si el botón está seleccionado, el ejemplo establece el color de fondo del campo ProductName en rojo para indicar que el producto se ha descontinuado.

Para probar el ejemplo, agregue el siguiente procedimiento de evento a un formulario que contenga una opción denominada Discontinued y un cuadro de texto denominado ProductName.

Private Sub Form_Current() 
 If Me!Discontinued Then 
 Me!ProductName.BackColor = 255 
 EndIf 
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.