Referirme a un formulario

hola, Faiverlgr !

Ya tengo una variable "String" cargada con el nombre del formulario activo.
Como me refiero al formulario a traves de la variable, para cerrarlo, utilizando los eventos HIDE O UNLOAD?

'conociendo' [ahora] que tu aplicacion es en VBA...

1) cambia la variable de tipo 'string' a tipo 'objeto' [p.e.] en un modulo de codigo 'normal'...
Public Formulario_activo As Object

2) asigna a la variable 'el objeto' [userform] que se activa -> en el evento '_activate' de cada userform...
Private Sub UserForm_Activate()
Set Formulario_activo = Me
End Sub

3) destruye el objeto al 'terminarse' el objeto que se cierra -> en el evento '_terminate' de cada userform...
Private Sub UserForm_Terminate()
Set Formulario_activo = Nothing
End Sub

4) usa la variable 'de objeto' [Formulario_activo o como le quieras llamar] en el codigo que descarga/oculta/... al formulario 'en turno'
p.e. con una instruccion +/- como la siguiente:
Sub Cerrar_formulario_activo()
If Not Formulario_activo Is Nothing _
Then Unload Formulario_activo
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Buen día, Héctor Miguel:
Caso resuelto! Muchas gracias.


"Héctor Miguel" escribió en el mensaje
news:

hola, Faiverlgr !

Ya tengo una variable "String" cargada con el nombre del formulario
activo.
Como me refiero al formulario a traves de la variable, para cerrarlo,
utilizando los eventos HIDE O UNLOAD?

'conociendo' [ahora] que tu aplicacion es en VBA...

1) cambia la variable de tipo 'string' a tipo 'objeto' [p.e.] en un modulo
de codigo 'normal'...
Public Formulario_activo As Object

2) asigna a la variable 'el objeto' [userform] que se activa -> en el
evento '_activate' de cada userform...
Private Sub UserForm_Activate()
Set Formulario_activo = Me
End Sub

3) destruye el objeto al 'terminarse' el objeto que se cierra -> en el
evento '_terminate' de cada userform...
Private Sub UserForm_Terminate()
Set Formulario_activo = Nothing
End Sub

4) usa la variable 'de objeto' [Formulario_activo o como le quieras
llamar] en el codigo que descarga/oculta/... al formulario 'en turno'
p.e. con una instruccion +/- como la siguiente:
Sub Cerrar_formulario_activo()
If Not Formulario_activo Is Nothing _
Then Unload Formulario_activo
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Hector Miguel, muchas gracias de nuevo.

Voy a darle unas cuntas vueltas, a ver si saco algo.

Un saludo y hasta pronto.
Ivan