[Resolvido]Verifica formulário esta aberto

Boa tarde,

Preciso de 2 formulário abertos um que fica verificando o status, em determinado status tipo, finalizar. Preciso de algo que verifique se o formulário esta aberto e se estiver ele fecha ele.

Use a função que Plínio Marcos disponibilizou

Function IsLoaded(ByVal strFormName As String) As Integer
' Retorna True se o formulário especificado estiver aberto
' no modo Formulário ou no modo Folha de Dados.
Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If
End Function

Para executar um código de acordo com o resultado faça o seguinte:

Private Sub MeuBotao_Click()

If IsLoaded("NomeDoForm") Then
MsgBox "Está carregado..."
Else
MsgBox "Não está carregado..."
End If

End Sub

Essa função é da Microsoft do tempo do Access 97, hoje em dia já não necessita de funções para verificar se o form está aberto, basta uma linha de código

If CurrentProject.AllForms("SeuForm").IsLoaded = True Then

É verdade, como a gente com a idade se agarra a um passado sempre válido, mas com funções recentes mais curtas. Obrigado pela sua observação amigo Ricardo.

Muito obrigado aos dois, os dois exemplos funcionam. Parabéns.

Obrigado pelo retorno. O Fórum agradece

Perfeito, utilizei e funcionou perfeitamente!

Obrigado a todos

Onde coloco essa função???

Olá Sidney,
Use antes a instrução da mensagem nº 3.
Quanto à utilização, depende do que pretende fazer.
Abraço