Menú Principal

Clics de vista de contenido : 55068

Saber si un formulario esta abierto

A veces necesitamos tener la certeza de saber si un formulario esta abierto para realizar aciones en el desde otro formulario, en este caso podemos utilizar esta función y según el resultado obrar en consecuencia.

Function EstaCargado(NombreForm)
    Dim i
    EstaCargado = False
    For i = 0 To Forms.Count - 1
        If Forms(i).FormName = NombreForm Then
            EstaCargado = True
            Exit Function       'Si está cargado el formulario, salir de la función
        End If
    Next
End Function

Se aplica de esta forma.

If EstaCargado("NombreFormulario")=True Then
  'Si esta cargado acciones a seguir
  else
  'si no esta cargado
End If