ado vb6 access y reportes

[gavafra]

Hola tengo una pregunta:

Tengo un ado el cual me muestra los datos que selecciono en un datagrid con esta select

SELECT * FROM FOLIOS_USADOS WHERE DEFECHA BETWEEN #" & Format(fechainicio, "mm/dd/yyyy") & "# And #" & Format(fechafinal, "mm/dd/yyyy") & "#"

todo bien aunque me da un error de sintaxis(pero no encuentro el fallo)

en fin, ahora lo que necesito es que me muestre el reporte de access (ya lo hice) con los datos del select . Como llamo el reporte desde vb6 ??

Gracias mil por su ayuda.

[tatuuru32]

Hola mi nombre es javier soy de uruguay y espero que esto te ayude.
Para visualizar el reporte este seria el Codigo:

Dim objAccess As Object
Set objAccess = CreateObject("access.application")

objAccess.OpenCurrentDatabase "UBICACION DE LA BASE DE DATOS"

objAccess.DoCmd.OpenReport "NOMBRE DEL REPORTE A VISUALIZAR", acViewPreview

objAccess.Visible = True

MsgBox "Haga clic en aceptar para cerrar Access"

Y SI QUIERES IMPRIMIR EL REPORTE SERIA:

Dim MSAccess As Object
Set MSAccess = New Access.Application
MSAccess.OpenCurrentDatabase ("UBICACION DE LA TABLA")
' si la base de datos esta protegida con contraseña el unico metodo que conozco es:
' enviarle la contraseña de esta forma: SendKeys "contraseña{ENTER}"
MSAccess.DoCmd.OpenReport "NOMBRE DEL REPORTE A IMPRIMIR", acViewNormal
MSAccess.CloseCurrentDatabase
Set MSAccess = Nothing

BUENO ESPERO QUE ESTO TE SIRVA Y SUERTE

[Richard]

Mi nombre es Richard del Perú es la respuesta a tu pregunta
Dim objAccess As Object
Set objAccess = CreateObject("access.application")

objAccess.OpenCurrentDatabase "UBICACION DE LA BASE DE DATOS"

objAccess.DoCmd.OpenReport "NOMBRE DEL REPORTE A VISUALIZAR", acViewPreview

objAccess.Visible = True

MsgBox "Haga clic en aceptar para cerrar Access"

Y SI QUIERES IMPRIMIR EL REPORTE SERIA:

Dim MSAccess As Object
Set MSAccess = New Access.Application
MSAccess.OpenCurrentDatabase ("UBICACION DE LA TABLA")
' si la base de datos esta protegida con contraseña el unico metodo que conozco es:
' enviarle la contraseña de esta forma: SendKeys "contraseña{ENTER}"
MSAccess.DoCmd.OpenReport "NOMBRE DEL REPORTE A IMPRIMIR", acViewNormal
MSAccess.CloseCurrentDatabase
Set MSAccess = Nothing