MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Listar formulários abertos

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 581
    Registrado : 09/11/2012

    [Resolvido]Listar formulários abertos

    Mensagem  =>Nois em Qui 25 Fev 2016, 11:57

    Bom dia!

    utilizo muito a função de ocultar alguns formulários e no decorrer da utilização do projeto pode haver algum formulário que deveria ter fechado por código e não identifiquei, e o mesmo fica executando em off.

    no entanto encontrei muitos exemplos fazendo referencia a um formulário específico, a minha idéia seria algum formulário que exibisse a lista de formulários aberto no projeto naquele momento.

    conto com ajuda de vocês.

    obrigado!


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2293
    Registrado : 21/04/2011

    Re: [Resolvido]Listar formulários abertos

    Mensagem  Marcelo David em Qui 25 Fev 2016, 17:22

    Olá! Crie um formulário qualquer...

    No formulário, adicione uma listbox e ponha de
    lbx. Defina o tipo de origem de linha como
    Lista de valores.

    No evento Ao brir do formulário que acabou de criar, ponha o seguinte
    código:

    Código:
    Dim Obj As AccessObject
    Dim fObj As Object
       
    Set fObj = Application.CurrentProject

    For Each Obj In fObj.AllForms
         If Obj.IsLoaded = True Then
                 Me.lbx.AddItem Obj.Name
         End If
    Next Obj

    Abra alguns formulário do seu projeto e em seguida abra o formulário que criou e veja o resultado e nos informe.


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 581
    Registrado : 09/11/2012

    Re: [Resolvido]Listar formulários abertos

    Mensagem  =>Nois em Qui 25 Fev 2016, 18:40

    Perfeito!king vai ajudar muito nos meus projetos, obrigado!
    cheers


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2293
    Registrado : 21/04/2011

    Re: [Resolvido]Listar formulários abertos

    Mensagem  Marcelo David em Qui 25 Fev 2016, 19:27

    Grato pelo retorno!


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

      Data/hora atual: Qui 17 Ago 2017, 12:49