[RESUELTO]Abrir un formulario desde otro formulario x registro actual
[RESUELTO]Abrir un formulario desde otro formulario x registro actual
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
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
Re: Abrir un formulario desde otro formulario x registro actual
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
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.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Re: Abrir un formulario desde otro formulario x registro actual
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.
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
Re: Abrir un formulario desde otro formulario x registro actual
Buenas!
Metelo en Drive o similar y pon aquí el enlace.
Un saludo!
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
Libreoffice 6.4.2, en Windows 10
Re: Abrir un formulario desde otro formulario x registro actual
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
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
Re: Abrir un formulario desde otro formulario x registro actual
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:
No es que sea mejor que la que tenías, pero parece que funciona.
Un saludo!
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
Un saludo!
Openoffice 4.1.7, en Windows 10
Libreoffice 6.4.2, en Windows 10
Libreoffice 6.4.2, en Windows 10
Re: Abrir un formulario desde otro formulario x registro actual
Hola,
Otra posibilidad.
Saludos
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
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)
Re: Abrir un formulario desde otro formulario x registro actual
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.
Gracias por la dedicación.
Libre office 7.2. Windows 11 64
Re: Abrir un formulario desde otro formulario x registro actual
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
Libreoffice 6.4.2, en Windows 10
Re: [RESUELTO]Abrir un formulario desde otro formulario x registro actual
La macro de Longi funciona muy bien.
No se muy bien como daros las gracias por el favor que me acabáis de hacer.
No se muy bien como daros las gracias por el favor que me acabáis de hacer.
Libre office 7.2. Windows 11 64