[RESUELTO] Cerrar Formulario al Abrir otro Formulario

Discute sobre las herramientas de la base de datos
Responder
JFRAN80
Mensajes: 22
Registrado: Mar Ago 06, 2019 8:09 am

[RESUELTO] Cerrar Formulario al Abrir otro Formulario

Mensaje por JFRAN80 »

Buenos días. Tengo una base de datos de Registro de documentos. Al abrirla, tengo colocada una macro para que me abra automáticamente un formulario de inicio. Este formulario tiene 2 botones para seleccionar Registros de Entrada o de Salida, que a su vez me abren sus respectivos formularios. Pues bien, quiero saber si existe alguna macro, que al pulsar por ejemplo el botón registro de entrada (que me llevar al formulario correspondiente) me cierre el formulario de inicio automáticamente. Lo digo porque es un poco rollo tener una ventana de windows por cada formulario que abro.

Gracias.
Última edición por PepeOooSevilla el Mié Abr 22, 2020 3:54 pm, editado 2 veces en total.
Razón: Seleccionar el icono [RESUELTO]
Libreoffice 6.3.2.2 en Windows 10
RMG
Mensajes: 3879
Registrado: Mar Nov 17, 2009 6:59 am
Ubicación: Valencia - España

Re: Cerrar Formulario al Abrir otro Formulario

Mensaje por RMG »

Hola,

Esta macro abre y cierra formularios.

Código: Seleccionar todo

Sub AbrirCerrarFormulario(Evento)
	ThisDatabaseDocument.FormDocuments.getByName("Nombre_formulario").Open	
	ThisDatabaseDocument.FormDocuments.getByName("Nombre_formulario").Close
End Sub
Saludos
OpenOffice 4.1.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Longi
Mensajes: 804
Registrado: Dom Ene 20, 2013 9:05 pm
Ubicación: Ourense, Galicia, España

Re: Cerrar Formulario al Abrir otro Formulario

Mensaje por Longi »

Buenas!

Si usas la segunda línea de la macro de RMG ten en cuenta que la tendrías que usar al final de la macro de apertura del formulario que querías ver, y que como medida de precaución le pongas antes una línea con un tiempo de demora para esperar a cerrar el formulario

Código: Seleccionar todo

Wait 500
ThisDatabaseDocument.FormDocuments.getByName("Nombre_formulario").Close
Pongo 500 milisegundos, pero eso va según gustos.

Un saludo! ;)
Openoffice 4.1.7, en Windows 10
Libreoffice 6.4.2, en Windows 10
JFRAN80
Mensajes: 22
Registrado: Mar Ago 06, 2019 8:09 am

Re: Cerrar Formulario al Abrir otro Formulario

Mensaje por JFRAN80 »

Funciona perfectamente. Muchas gracias a los dos.
Libreoffice 6.3.2.2 en Windows 10
Responder