[RESUELTO] Abrir informe desde formulario

[Austin]

Es un tema ya visto pero no consigo que me funcione.

Me da el error: "No se pudo abrir el informe. Error de sintaxis en la instrucción SQL"

Este es el código, no consigo ver donde está el problema en la instrucción SQL

Código: Seleccionar todo

Sub ImprimirCaratula (Evento)

Dim oForm As Object
Dim iExp As Integer
Dim iTipo As Integer
Dim oConsulta As Object
Dim sSQL As String
Dim oReporte As Object
	
	oForm = Evento.Source.Model.Parent
	iExp = oForm.GetByName("fmtnExp").CurrentValue
	iTipo = oForm.GetByName("fmtTipo").CurrentValue
	sSQL = "SELECT cCaratula.Nome, cCaratula.1Apel, cCaratula.2Apel, cCaratula.nExp, cCaratula.Ano, cCaratula.Tipo, cCaratula.Data_entrada, cCaratula.Concello, cCaratula.Zona, cCaratula.Poligono, cCaratula.Parcela, cCaratula.Recinto FROM cCaratula WHERE cCaratula.nExp= " & iExp & " AND cCaratula.Tipo= " & iTipo
	oConsulta = ThisDatabaseDocument.DataSource.QueryDefinitions.getByName ("cCaratula")
	oConsulta.Command = sSQL
	oReporte = ThisDatabaseDocument.ReportDocuments.getByName ("iCaratula").Open

End Sub]

Adjunto la base.

[fornelasa]

Estoy lejos de ser un experto en bases de datos pero por ejemplo en tu archivo tienes una consulta llamada cCaratula que obtiene datos de la misma cCaratula y no de una tabla o de otra consulta, de acuerdo a la instrucción sql que nos indica

Código: Seleccionar todo

SELECT cCaratula.Nome, cCaratula.1Apel, cCaratula.2Apel, cCaratula.nExp, cCaratula.Ano, cCaratula.Tipo, cCaratula.Data_entrada, cCaratula.Concello, cCaratula.Zona, cCaratula.Poligono, cCaratula.Parcela, cCaratula.Recinto FROM cCaratula WHERE cCaratula.nExp= 18 AND cCaratula.Tipo= 1

o sea ¿como?
hasta donde sé las consultas se obtienen principalmente de las tablas o de otras consulta , me parece que desde aquí ya la estamos .....

Saludos, Federico.

[Austin]

Gracias por responder.

Si, claro, lo que quiero es obtener un registro concreto de la consulta cCaratula, el registro nExp x, Tipo y.

Al ejecutar el código de la macro modifica la consulta original cCaratula, que es:

Código: Seleccionar todo

SELECT "tPromotor"."Nome", "tPromotor"."1Apel", "tPromotor"."2Apel", "tSolicitude"."nExp", "tSolicitude"."Ano", "tSolicitude"."Tipo", "tSolicitude"."Data_entrada", "tPromotor"."Concello", "tParcela"."Zona", "tParcela"."Poligono", "tParcela"."Parcela", "tParcela"."Recinto" FROM "tSolicitude", "tPromotor", "tParcela" WHERE "tSolicitude"."NIF_Promotor" = "tPromotor"."NIF" AND "tParcela"."Id_solicitude" = "tSolicitude"."Id_solic"

y queda:

Código: Seleccionar todo

SELECT cCaratula.Nome, cCaratula.1Apel, cCaratula.2Apel, cCaratula.nExp, cCaratula.Ano, cCaratula.Tipo, cCaratula.Data_entrada, cCaratula.Concello, cCaratula.Zona, cCaratula.Poligono, cCaratula.Parcela, cCaratula.Recinto FROM cCaratula WHERE cCaratula.nExp= 18 AND cCaratula.Tipo= 1

que es exactamente lo que quiero, obtener el registro con el nExp x, Tipo y de la consulta cCaratula. El problema es que no me abre el informe porque dice que hay un error de sintaxis en la instrucción SQL. No lo veo.
Espero haberme explicado.
Adjunto otra vez la base con la consulta cCaratula original (antes de ejecutar la macro)

[RMG]

Hola,

El problema es que no puedes modificar a través de la macro la consulta basándote en ella misma (FROM) debes utilizar todo el código que hace referencia a las tres tablas, o bien utilizar la vista que has creado (esto es la mejor opción) revisa que en esta vista te falta el campo "Recinto"

Saludos

[Austin]

Perfecto, solucionado.

Muchas gracias.

PD: No se te escapa nada, vaya ojo que tienes (además también faltaba el campo recinto, como dices)