VBA Access: Saber si un formulario esta abierto

Como en access solo hay una instancia de un formulario puede interesar saber si un formulario esta abierto para refrescar o para cerrarlo.
Para ello os pongo la siguiente función que habría que ponerlo en un módulo público para poder llamarlo desde los demás sitios:

Function IsFormLoaded(ByVal strFormName As String) As Boolean
Dim oAccessObject As AccessObject
On Error Resume Next
Set oAccessObject = CurrentProject.AllForms(strFormName)
If oAccessObject Is Nothing Then Exit Function
If oAccessObject.IsLoaded Then
If oAccessObject.CurrentView <> acCurViewDesign Then
IsFormLoaded = True
End If
End If
End Function

Para llamarla sería:
IsFormLoaded (“Nombre Formulario”)
Nos devolvera Verdadero si esta abierto y Falso en caso contrario.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

*