[Resolvido]Macro para saber se um formulário está aberto

Olá pessoal!

Eu sei como fazer para verificar se uma formulário está aberto através do vba,

    If CurrentProject.AllForms("NomeDoFormulario").IsLoaded Then
       faça isso...
    Else
       faça isso outro...
    End If

mas como poderia fazer essa verificação numa macro?

grato...

Olá Ronaldo,

Desconheço, mas pode criar um função e assim já pode chamar através da Macro.
Veja se atende para o que pretende:

Código:

Public Function fncIsLoaded(strFrmName As String) As Boolean
' Origem: https://www.pcreview.co.uk/threads/fncIsLoaded-condition-in-a-macro.3233255/
' Ajustada para não fazer conflito com função nativa: IsLoaded
' Alvaro Teixeira 2023 para MaximoAccess
Const conFormDesign = 0
Dim intX As Integer
fncIsLoaded = False

For intX = 0 To Forms.Count - 1
    If Forms(intX).FormName = strFrmName Then
        If Forms(intX).CurrentView <> conFormDesign Then
            fncIsLoaded = True
            Exit Function
        End If
    End If
Next

End Function

Abraço

Valeu Alvaro. Obrigado!

Olá Ronaldo Costa,

Fico feliz por ter ajudado, obrigado pelo feedback.

Abraço