Cambiar la propiedad visible=False de un formulario a través de una variable
Publicado por Patricia (4 intervenciones) el 13/01/2014 11:54:03
Buenos días,
Antes de comenzar, gracias por leerme.
He probado mil y un maneras para hacer lo siguiente, pero siempre me da errores y no lo consigo.
Tengo un formulario que contiene un subformulario (Form_menu) que es un menú con un desplegable. Este desplegable no es más que una lista de los nombres de los formularios que hay en el programa. Mi intención es que al hacer click sobre uno de ellos, se abra ese formulario y se cierre el actual.
He conseguido hacer que se abra, simplemente tratando los casos del desplegable por su nombre y llamando a una función load que abre dicho formulario.
en el código de Form_menu, abrir el formulario que quiero SÍ me funciona:
Select Case me.dspl_formularios
Pero lo que NO CONSIGO es poner a VISIBLE = FALSE el formulario en el que está metido el subformulario menú, para que se cierre el actual y se abra el nuevo al que el usuario ha hecho click.
Para comunicarlos entre ellos, he creado en este menú un campo invisible "estoy_en_form" que toma el nombre del formulario que lo abre (lo asigno en cada función load de cada formulario)
he probado con: Form_menu.estoy_en_form = "Form B" y con Form_menu.estoy_en_form= FormB
Entonces, al cerrarlo, [ESTO NO FUNCIONA]
Select Case me.dspl_formularios
He probado mil formas más y nada. Con CallByName, cogiendo los controles, declarando un Set frm as Object, AS form... y nada T_T
¿Alguién que pueda echarme una mano?
MIL GRACIAS! Espero haberme explicado bien.
Antes de comenzar, gracias por leerme.
He probado mil y un maneras para hacer lo siguiente, pero siempre me da errores y no lo consigo.
Tengo un formulario que contiene un subformulario (Form_menu) que es un menú con un desplegable. Este desplegable no es más que una lista de los nombres de los formularios que hay en el programa. Mi intención es que al hacer click sobre uno de ellos, se abra ese formulario y se cierre el actual.
He conseguido hacer que se abra, simplemente tratando los casos del desplegable por su nombre y llamando a una función load que abre dicho formulario.
en el código de Form_menu, abrir el formulario que quiero SÍ me funciona:
Select Case me.dspl_formularios
Case "Formulario A"
load_form_alta_consulta_cursos
Pero lo que NO CONSIGO es poner a VISIBLE = FALSE el formulario en el que está metido el subformulario menú, para que se cierre el actual y se abra el nuevo al que el usuario ha hecho click.
Para comunicarlos entre ellos, he creado en este menú un campo invisible "estoy_en_form" que toma el nombre del formulario que lo abre (lo asigno en cada función load de cada formulario)
he probado con: Form_menu.estoy_en_form = "Form B" y con Form_menu.estoy_en_form= FormB
Entonces, al cerrarlo, [ESTO NO FUNCIONA]
Select Case me.dspl_formularios
Case "Formulario A"
Dim miFormulario As Form
Set miFormulario = Forms(me.estoy_en_form)
miFormulario.Visible = False
load_form_alta_consulta_cursos
Dim miFormulario As Form
Set miFormulario = Forms(me.estoy_en_form)
miFormulario.Visible = False
load_form_alta_consulta_cursos
He probado mil formas más y nada. Con CallByName, cogiendo los controles, declarando un Set frm as Object, AS form... y nada T_T
¿Alguién que pueda echarme una mano?
MIL GRACIAS! Espero haberme explicado bien.
Valora esta pregunta
0
