Saber si tengo un formulario abierto

[shiwax]

esto ya estaba posteado aqui en el foro

public function FormularioActivo(NmbFormulario as String) as Boolean
Dim Formulario As Form
For Each Formulario In Forms
If (UCase(Formulario.Name) = UCase(NmbFormulario)) Then
FormularioActivo = true
Exit For
End If
Next
end Function

si no escribe tu pregunta en google... aparecen muuuchas opciones.
saludos