[RESUELTO]Abrir un formulario desde otro formulario x registro actual

Discute sobre las herramientas de la base de datos
Responder
Avatar de Usuario
Yyogui321
Mensajes: 5
Registrado: Mar Abr 12, 2022 2:45 pm

[RESUELTO]Abrir un formulario desde otro formulario x registro actual

Mensaje por Yyogui321 »

:crazy: Buenos días. Soy Fran. Llevo leyendo el foro bastante tiempo y es una pasada lo que se aprende aqui. Me he descargado casi todos los ejemplos que he encontrado para solucionar mi problema pero no se porque no consigo solucionarlo. Lo mas probable es que sea mi inutilidad de no encontrar el error.

Tengo una BD con formularios y de uno principal quiero abrir otro que se abra con el registro activo del principal. Me copie el ejemplo de formulario filtrado que es lo que quiero y adapte las macro a mi BD pero la respuesta de la BD fue que me peinara para el lado
Última edición por Yyogui321 el Mar May 24, 2022 5:57 pm, editado 1 vez en total.
Libre office 7.2. Windows 11 64
RMG
Mensajes: 3867
Registrado: Mar Nov 17, 2009 6:59 am
Ubicación: Valencia - España

Re: Abrir un formulario desde otro formulario x registro actual

Mensaje por RMG »

Hola,

Para poder ayudarte tienes que adjuntar un pequeño ejemplo ejemplo de lo que intentas hacer, para ver donde puede estar el problema.

Saludos
OpenOffice 4.1.9 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Avatar de Usuario
Yyogui321
Mensajes: 5
Registrado: Mar Abr 12, 2022 2:45 pm

Re: Abrir un formulario desde otro formulario x registro actual

Mensaje por Yyogui321 »

No consigo bajar el peso de la BD para poder incluirla en el mensaje.
Lo que quiero hacer es lo mismo que sale en un ejemplo que pusisteis los eruditos de Libre Office de formulario filtrado.
Consigo sin problemas gracias a la macro de ejemplo entrar a un formulario desde el formulario base pero a la hora de abrir ese formulario no se consigue filtrar. Además creo que el problemas es firebird porque en la BD ejemplo a la hora de abrirlo me da la opción de actualizar y al hacerlo ya no funciona tampoco.
Libre office 7.2. Windows 11 64
Longi
Mensajes: 784
Registrado: Dom Ene 20, 2013 9:05 pm
Ubicación: Ourense, Galicia, España

Re: Abrir un formulario desde otro formulario x registro actual

Mensaje por Longi »

Buenas!
Metelo en Drive o similar y pon aquí el enlace.

Un saludo!
Openoffice 4.1.7, en Windows 10
Libreoffice 6.4.2, en Windows 10
Avatar de Usuario
Yyogui321
Mensajes: 5
Registrado: Mar Abr 12, 2022 2:45 pm

Re: Abrir un formulario desde otro formulario x registro actual

Mensaje por Yyogui321 »

Hola a todos y gracias.
https://drive.google.com/file/d/16cnTph ... sp=sharing

Este es el enlace en Drive. El enlace lleva a toda la BD que tengo hasta ahora. La macro que no se me ejecuta como creo que debería esta solo en el Formulario_TRA. El resto si va bien a falta de mejorar esa macro que me da error.

Quisiera que hiciera como en BD que pusisteis de ejemplo que se abre sobre los datos del registro seleccionado en el formulario Tabla_Datos_Basicos.

En fin desde el Formulario Tabla_Datos_Basicos acceder a todos los demás formulario y que se abran sobre el registro que esta seleccionado en el formulario inicial y así poder rellenar los datos necesarios en el formulario que se acaba de abrir.

En la BD de ejemplo funcionaba de escandalo pero no se porque a mi no.

Gracias
Libre office 7.2. Windows 11 64
Longi
Mensajes: 784
Registrado: Dom Ene 20, 2013 9:05 pm
Ubicación: Ourense, Galicia, España

Re: Abrir un formulario desde otro formulario x registro actual

Mensaje por Longi »

Buenas!
He estado echando un vistazo, y es curioso cómo pueden variar los códigos de unas fuentes a otras.....
Lo que yo hago es una chapuza, pero mira a ver si así te sirve:
Cambia la macro 'sAlCargar_Formulario_TRA(Event As Object)' por esta otra:

Código: Seleccionar todo

Sub sAlCargar_Formulario_TRA(Event As Object)

	If ThisDatabaseDocument.FormDocuments.HasByName("Tabla_Datos_Basicos") Then
		oComp=ThisDatabaseDocument.FormDocuments.GetByName("Tabla_Datos_Basicos").Component
		If IsNull(oComp) Then
			msgbox "Formulario no abierto"
		Else
			oForm=oComp.Drawpage.Forms.GetByIndex(0)
			oDNI= oform.GetByName("txtIDDNI").Text
		End if
	End if

	oForm2= Event.source
	oForm2.ApplyFilter=True
	oForm2.Filter="""Tabla_Datos_Basicos"".""IDDNI""=" &"'" & oDNI & "'"
	oForm2.Reload

End sub
No es que sea mejor que la que tenías, pero parece que funciona.

Un saludo! ;)
Openoffice 4.1.7, en Windows 10
Libreoffice 6.4.2, en Windows 10
RMG
Mensajes: 3867
Registrado: Mar Nov 17, 2009 6:59 am
Ubicación: Valencia - España

Re: Abrir un formulario desde otro formulario x registro actual

Mensaje por RMG »

Hola,

Otra posibilidad.

Código: Seleccionar todo

Sub sAlCargar_Formulario_TRA(Event As Object)'macro que obtiene el IDDNI del formulario de apertura
	Dim oForm As Object
	oForm = Event.Source
	oForm.ApplyFilter=True
	oForm.Filter="""IDDNI""='" & gIDDNI &"'"
	oForm.Reload
End Sub

Global gIDDNI As String

Sub Boton_Obtiene_IDDNI(Evento As Object)'macro del boton donde se lanza
	Dim oForm As Object
	oForm = Evento.Source.Model.Parent
	If oForm.IsNew Or oForm.IsAfterLast Then Exit Sub
	gIDDNI = oForm.Columns.GetByName("IDDNI").Value
	With ThisDatabaseDocument.FormDocuments.GetByName("Formulario_TRA")
		.Close
		.Open
	End With
End Sub
Saludos
OpenOffice 4.1.9 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Avatar de Usuario
Yyogui321
Mensajes: 5
Registrado: Mar Abr 12, 2022 2:45 pm

Re: Abrir un formulario desde otro formulario x registro actual

Mensaje por Yyogui321 »

Que pasada de tíos sois con el LOo. Lo probare. Pero haré una pregunta al respecto. Me podéis decir porque no funcionaba? Porque la adapte de una vuestra que si funcionaba.

Gracias por la dedicación.
Libre office 7.2. Windows 11 64
Longi
Mensajes: 784
Registrado: Dom Ene 20, 2013 9:05 pm
Ubicación: Ourense, Galicia, España

Re: Abrir un formulario desde otro formulario x registro actual

Mensaje por Longi »

Ya te decía el error que algo no tenías definido (creo que oFormC, concretamente)
Openoffice 4.1.7, en Windows 10
Libreoffice 6.4.2, en Windows 10
Avatar de Usuario
Yyogui321
Mensajes: 5
Registrado: Mar Abr 12, 2022 2:45 pm

Re: [RESUELTO]Abrir un formulario desde otro formulario x registro actual

Mensaje por Yyogui321 »

La macro de Longi funciona muy bien.

No se muy bien como daros las gracias por el favor que me acabáis de hacer.
Libre office 7.2. Windows 11 64
Responder