Abrir reporte de Access desde VB6

Eduardo Olaz

2004-07-05 22:29:29 UTC

Primero debes definir la variable que va acrear una instancia de Access
fuera del procedimiento para que no se destruya tras ejecutarse éste.
Además debes hacer visible la aplicación, y no destruirla en el
procedimiento.
Debes destruirla al cerrar el formulario.
El procedimiento te podría quedar algo así como esto:

Dim acc As Access.Application

Private Sub cmdReporte_Click()
Set acc = New Access.Application
With acc
.Visible = True
.OpenCurrentDatabase "C:\Access_2003\Informes\ColorDeControles.mdb"
.DoCmd.OpenReport "DatosColores", acViewPreview
End With
End Sub

Post by Mario Mireles
Que tal a todos!
Quiero poder ver el preview de un reporte que hice en
Access 2000 desde VB6. Me pregunta los datos para hacer el
reporte pero no me lo muestra.
Private Sub cmdReporte_Click()
Dim acc As Access.Application
Set acc = New Access.Application
With acc
.OpenCurrentDatabase "Ruta de la base de datos"
.DoCmd.OpenReport "Reporte", acViewPreview
.CloseCurrentDatabase
.Quit
End With
Set acc = Nothing
End Sub
El reporte me pregunta un rango de fechas y luego se debe
de abrir el previo del reporte pero no muestra nada.
Tambien ya intente llamandolo con un macro desde VB6 pero
me da el mismo resultado.
Espero alguien me pueda ayudar.
Gracias por su ayuda.
Saludos!