[Resolvido]Listar formulários abertos

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!

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.

Perfeito! vai ajudar muito nos meus projetos, obrigado!

Grato pelo retorno!