Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Unload
 
Notifications
Clear all

Unload

 
2024 - VBA & Macros
Post Recente por fazerbem 7 anos atrás
5 Posts
3 Usuários
0 Reactions
1,054 Visualizações
RSS
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

Ola, tenho uma duvida

Tenho 1 form_A aberto, e esse chama outros Forms, como Form_B, Form_C, Form_D .....
Tenho no Form_A a TextBox1

Em uma linha da macro do Form A do Botao Sair uso :

Unload Me, que fecha o Form_A
Unload Form_B, isso faz fechar tb o Form_B

Porem preciso especificar uma TextBox1 para estar dentro o nome de uma das Forms ( B, C, D ... )
Entao se TextBox1 = Form_B
Ficaria assim:

Unload TextBox1, mas assim da erro , qual a forma certa ?

Grato

Andre

 
Postado : 19/08/2017 10:37 am
 fcarlosc
(@fcarlosc)
Posts: 0
New Member
 

Boa-tarde

Já tentou um "if"...!?

if TextBox1.value = "Form_A" Then
Unload Form_A
Else
Unload Form_B
End if

 
Postado : 19/08/2017 10:44 am
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

OLa, Fcarlossc, tinha que ser da forma descrita mesma, caso contrario seriam muitos Ifs.

teria outra alternativa ?

por causa disso abaixo, entao fica mais facil colocar dentro de uma TextBox e ficar valendo o fechamento do conteudo dentro desta TextBox

Unload Historico
Unload Z_Importados
Unload Z_Leader
Unload Z_Gauer
Unload Z_KIT_COMBOS
Unload Z_Power
Unload Z_Salgados
Unload Z_Dose
Unload Z_Fullife
Unload Z_Brinde
Unload Z_Acessorios
Unload Z_New
Unload Z_Labs
Unload Z_Oferta
Unload Z_Maromba
Unload Z_Good

 
Postado : 19/08/2017 2:01 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 
Private Sub CommandButton1_Click()
 Dim oForm As Object
  For Each oForm In VBA.UserForms
   If oForm.Name = TextBox1.Text Then Unload oForm: Exit Sub
  Next oForm
End Sub
 
Postado : 21/08/2017 10:35 am
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

Vou testar e te falo, grato

 
Postado : 12/09/2017 7:08 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico