Unload

2024 - VBA & Macros

Post Recente por fazerbem 7 anos atrás

5 Posts

3 Usuários

0 Reactions

1,076 Visualizações

RSS

fazerbem

(@fazerbem)

Posts: 697

Honorable 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: 453

Honorable 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: 697

Honorable 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: 858

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

Osvaldo

Postado : 21/08/2017 10:35 am