MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Listar formulários abertos

    Compartilhe

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    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)

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2287
    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: Sex 09 Dez 2016, 09:35