(Resolvido) Verificar se um form está aberto

[Gil Kléber]

Olá pessoal! Uma dúvida que acho que pra vocês é simples...

Como faço pra verificar via VBA se o form FORM1 está aberto. Se sim, faça isso, se não, faça aquilo?

Obrigado pela ajuda!!

Abraços!!

[MrMALJ]

Bom você pode colocar o código num botão ou onde você achar que lhe seja conveniente.

Dim verForm As Boolean
verForm = (SysCmd(acSysCmdGetObjectState, acForm, "form1") And acObjStateOpen)
If verForm = True Then
    MsgBox "Aberto!", vbOKOnly + vbInformation, " Mr.MALJ"
Else
    MsgBox "Fechado!", vbOKOnly + vbInformation, " Mr.MALJ"
End If

Aguardo seu retorno para colocar resolvido no tópico.

[Gil Kléber]

Mr., funcionou PERFEITAMENTE!!!

Muito obrigado mesmo!!!

Editado Maio 5, 2010 por Gil Kléber

[Gil Kléber]

MrMALJ, estou enfrentando um pequeno probleminha com o código que me enviou anteriormente. ele funciona perfeitamente pra detectar objetos aberto. No entanto, me peguei em uma situação, onde preciso detectar um objeto aberto, porém, oculto. Como proceder nessa situação?

[Alexandre Neves]

Em vez de utilizar acObjStateOpen utilize acObjStateHiden

[Gil Kléber]

Perfeito!