Problemas con el origen de un informe.
Publicado por Arkadia (3 intervenciones) el 17/10/2002 09:29:30
Hola a todos.
Tengo un pequeño problema que espero me ayudéis a resolver. Estoy intentando crear un informe dependiente de una consulta que va a cambiar dependiendo de las opciones que elija el usuario. Para ello, he recurrido al siguiente código, pero me da un fallo en tiempo de ejecución \"no coinciden los tipos\" al intentar abrir el RecordSet. ¿Qué puede haber pasado?.
Gracias por atenderme.
Aquí tenéis el código:
Dim bdInforme As Database
Dim rstInforme As Recordset
Private Sub Report_Open(Cancel As Integer)
Dim qdf As QueryDef
Dim formulario As Form
\' Establecer la variable de la base de datos a la base de datos actual. Set bdInforme = CurrentDb
Set formulario = Forms!Datos_Puesto
\' Abrir el objeto QueryDef.
Set qdf = bdInforme.createquerydef(\"\", \"select * from persona,persona_laboral where persona.id_persona=persona_laboral.id_persona;\") \'
Abrir el objeto Recordset.
Set rstInforme = qdf.OpenRecordset
End Sub
Tengo un pequeño problema que espero me ayudéis a resolver. Estoy intentando crear un informe dependiente de una consulta que va a cambiar dependiendo de las opciones que elija el usuario. Para ello, he recurrido al siguiente código, pero me da un fallo en tiempo de ejecución \"no coinciden los tipos\" al intentar abrir el RecordSet. ¿Qué puede haber pasado?.
Gracias por atenderme.
Aquí tenéis el código:
Dim bdInforme As Database
Dim rstInforme As Recordset
Private Sub Report_Open(Cancel As Integer)
Dim qdf As QueryDef
Dim formulario As Form
\' Establecer la variable de la base de datos a la base de datos actual. Set bdInforme = CurrentDb
Set formulario = Forms!Datos_Puesto
\' Abrir el objeto QueryDef.
Set qdf = bdInforme.createquerydef(\"\", \"select * from persona,persona_laboral where persona.id_persona=persona_laboral.id_persona;\") \'
Abrir el objeto Recordset.
Set rstInforme = qdf.OpenRecordset
End Sub
Valora esta pregunta


0