En este post, vamos a ver cómo comprobar si un formulario de Microsoft Access está abierto usando VBA.
Esto es importante, porque si intentásemos cerrar un formulario y éste no estuviese abierto, nos aparecería un error. Y, si tienes procesos automatizados, necesitarás hacer este tipo de comprobaciones.
También es útil saberlo para actualizar un formulario que esté abierto en un determinado momento.
Al abrir el archivo de ejemplo (adjunto al final del post), se muestra el formulario "Consulta empleados", listando todos los empleados que hemos introducido en la tabla "Empleados", a través del formulario "Añadir empleados".
Si pulsamos el botón Nuevo empleado que hay en la cabecera, se abrirá el formulario "Añadir empleados".
Una vez introducidos los datos del nuevo empleado, queremos saber si el formulario "Consulta empleados" se encuentra abierto. En caso afirmativo, actualizaremos su listado para así poder visualizar el último registro introducido.
Para ello, hemos incluido el siguiente código en el evento "Al cerrar" del formulario "Añadir empleados".
Private Sub Form_Close()
'Si consulta empleados se encuentra abierta, actualizamos sus registros
If CurrentProject.AllForms("Consulta empleados").IsLoaded Then
Forms![Consulta empleados].Requery
End If
End Sub
De esta manera, has aprendido a comprobar si un formulario se encuentra abierto usando VBA, bien sea para añadirle información, actualizarlo o simplemente para cerrarlo. Espero que te haya sido de utilidad.
Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.
Hasta la próxima.
Si te ha servido y quieres donar
Descarga el archivo del ejemplo
Últimas publicaciones
0 comentarios