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

[Yyogui321]

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

[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

[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.

[Longi]

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

Un saludo!

[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

[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!

[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

[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.

[Longi]

Ya te decía el error que algo no tenías definido (creo que oFormC, concretamente)

[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.