[Resolvido]Form Aberto ou Fechado

Olá a todos. Tenho um form desvinculado e na abertura dele, gostaria de saber se um outro form está aberto ou fechado. Estou usando a condição abaixo, no VBA, porém sem sucesso. Como devo fazer? Agradeço a ajuda.


If Forms!frm_cadpessoa.Open = True Then
MsgBox "Formulário aberto", vbInformation, "Status"
Else
MsgBox "Formulário fechado", vbInformation, "Status"
End If

Boas Walter.. Crie um módulo e o nomeie de mdlDiversos, neste cole o código abaixo:

Function IsLoaded(ByVal strFormName As String) As Boolean
On Error GoTo Err_IsLoaded

    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

Exit_IsLoaded:
   Exit Function

Err_IsLoaded:
    MsgBox err.Description, , " Service Operations"
    Resume Exit_IsLoaded

End Function

Para utilizar:

If IsLoaded("NomeDoSeuForm") Then
Sua mensagem
Else
Sua mensagem
End If

Cumprimentos.

Obrigado amigo. Agradeço de coração a sua disponibilidade e atenção. Boa noite.

Se funcionar não se esqueça de dar o tópico por resolvido e clicar no Joinha da mensagem que o Auxiliou.

Boa noite.

Funcionou perfeitamente. Obrigado mais uma vez.  

O Fórum agradece  Retorno.

Ha.. Esqueceste de clicar no Joinha!!!

Meu irmão, onde fica esta joinha? Não estou conseguindo encontrar

é um símbolo como este na mensagem que o auxilou:

Vou ficar devendo esta. Aqui não aparece o Smileys com esta figura.

Tranquilo...
O Fórum agradece o Retorno.

Harysohn e demais colegas do forum,

Estava fazendo uma busca e descobri este tópico. Com o método que você indica, eu terei que verificar individualmente se existe algum form aberto. O que eu queria implementar era saber se há forms abertos sem ter que verificar um a um? A ideia é não deixar fechar o aplicativo se existirem forms abertos.

Obrigado.

Já encontrei:

A partir daqui é pacífico de implementar:

Código:


Sub AllForms()
   Dim obj As AccessObject, dbs As Object
   Set dbs = Application.CurrentProject
   ' Search for open AccessObject objects in AllForms collection.
   For Each obj In dbs.AllForms
       If obj.IsLoaded = True Then
           ' Print name of obj.
           Debug.Print obj.Name
       End If
   Next obj
End Sub


Origem