Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Esta funcion que hize checa si esta o no un formulario abierto
Se usa :
If Checa_Formulario(Nombre) = 1 Then ' Si esta abierto Else ' No esta abierto End If
Public Function Checa_Formulario(Nombre As String) As Integer For i = 0 To Forms.Count - 1 If Forms(i).name = Nombre Then Checa_Formulario = 1 Exit Function End If Next i Checa_Formulario = 0 End Function