MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

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

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 14/03/2011

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

    Mensagem  Ronaldo Costa 10/5/2023, 13:30

    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...
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 11/5/2023, 12:14

    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
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 14/03/2011

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

    Mensagem  Ronaldo Costa 11/5/2023, 16:19

    Valeu Alvaro. Obrigado!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 12/5/2023, 15:06

    Olá Ronaldo Costa,

    Fico feliz por ter ajudado, obrigado pelo feedback.

    Abraço

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:29