UNLOAD ME

 Tópico anterior Próximo tópico Novo tópico

UNLOAD ME

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#482298 - 13/06/2018 20:47:12

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


  Pessoal!

Para fechar o formulário as vezes uso
unload me
unload NomedoFormulario

e quando quero fechar tudo uso o
End

Como faria para fechar todos os outros fomulário que estão aberto a cada vez que for abrir um novo

atenciosamente,



Isabella


#482300 - 13/06/2018 23:11:19

JORGESALES
CEARA
Cadast. em:Maio/2015


Use um formulário MDI e não terá essa preocupação.

______________________________________
Aos 52 anos descobri a magia da programação.
Obrigado a todos que sempre me ajudam.
Tudo começou aqui: Curso Excel VBA


#482303 - 14/06/2018 09:06:18

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Citação:
:
Use um formulário MDI e não terá essa preocupação.


Então, já estou usando!

Isabella


#482306 - 14/06/2018 10:47:55

EDUFS
SAO PAULO
Cadast. em:Março/2004


    If MsgBox("Deseja Realmente SAIR do Programa? ", vbQuestion + vbYesNo + vbDefaultButton2, "Sair do Programa") = vbYes Then
        
    Do While Forms.Count > 0
              Unload Forms(Forms.Count - 1)
       DoEvents
    Loop

    End If




#482312 - 14/06/2018 19:38:24

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Edufs!

Minha necessidade seria:

Tenho um Formulário MDI e muitos outro forms.

Para não deixar um monte de formulários aberto, queria que, quando abrir o formulário A fechasse o B,C,D entre outros que esta aberto
Exemplo: se tenho 10 formulário, não queria colocar Unload FormA, Unload FormB entre os demais forms
Queria criar esse código em um módulo e quando abrir o formJ os demais aberto que tenha o código chamasse o código e fechasse...

Atenciosamente,


Isabella


#482313 - 14/06/2018 22:00:08

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Citação:
Do While Forms.Count > 0
              Unload Forms(Forms.Count - 1)
       DoEvents
    Loop
End If


Isto não resolve?


____________________________________________________________________
Ecclesiastic Office Episcopal




#482315 - 15/06/2018 11:16:16

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Citação:
:
Isto não resolve?


Não dá porque este código fecha todos os formes, até mesmo o MDI, preciso que mantenha o MDI aberto e o form que vou utilizar,  e só feche os demais abertos...


Isabella


Resposta escolhida #482330 - 17/06/2018 12:54:00

JABA
CABO FRIO
Cadast. em:Agosto/2005


    Dim f As Form
    For Each f In Forms
        If f.Name <> MDIForm1.Name Then
            Unload f
        End If
    Next


_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#482332 - 17/06/2018 13:29:35

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Última edição em 17/06/2018 13:30:00 por EPISCOPAL

mas eu tenho codigo diferente mas resolve a mesma coisa

Dim f As Form
    For Each f In Forms
        If Not TypeOf is MDIForm Then
            Unload f
        End If
    Next


____________________________________________________________________
Ecclesiastic Office Episcopal




#482362 - 19/06/2018 10:39:20

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Obrigada pessoal!

grata,

Isabella


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ISABELLASILVA em 19/06/2018 10:39:39