VB Access: If "Formulario Abierto"

[cthomas]

Hola a todos,

Mi dida es la siguiente. Tengo un formulario que da aceso a otros formularios mediante botones, una especie de Control Panel. Los formularios secundarios se abren para introducir datos y quedan siempre abiertos por si se desean modificar los datos en algún monento.

Ahora quiero que si se pulsa el boton „Abrir formulario“ desde el Control Panel, el código haga una cosa u otra según esté abierto o no dicho formulario.

Entonces, la preginta es, cómo hago que el código compruebe si un formulario concreto está abierto?

Muchas gracias, Carlos.

[cthomas]

Dim estado As String

estado = SysCmd(acSysCmdGetObjectState, tipoObeto, nombreObjeto)

tipoObeto es el tipo del objeto, por ejemplo acForm para formularios

nombreObjeto es el nombre del formulario

estado=0 si esta cerrado
estado=1 si esta abierto