22/04/2004, 08:22
|
| | | Fecha de Ingreso: abril-2004 Ubicación: Chillan
Mensajes: 5
Antigüedad: 21 años Puntos: 0 | |
| Dim miquery As QueryDef
Consulta = "select ... from ... where ..."
Set miquery = BaseDatos.CreateQueryDef("miquery", Consulta)
'... Ahora llamas al reporte ....
Reporte.action 1
'... Elimino el Query ...
BaseDatos.QueryDefs.Delete ("miquery")
Si no eliminas el query no funciona (no debe existir en la ejecucion inicial).
Si no te funciona esto prueba mejor con un reporte enlazado a datos.
Espero te sirva |