Sobre ejecutar reportes de Access desde Visual Basic

[buji]

Hola Foro.

Estoy tratando de llamar a reportes que he creado en mi BDD Access 2003 desde un Sistema en Visual Basic 6.

Entre los problemas que tengo son que al abrir la BDD me pregunta si deseo bloquear o no las extensiones de Access y además no me muestra el reporte por pantalla sino que directamente lo envia a imprimir.

Alguien utiliza esta metodología para generar sus reportes?

Muchas Gracias.

[lokoman]

Te puedo ayudar con lo del bloqueo.... ve a herramientas>Macro>Seguridad, hay selecciona nivel bajo y dale a aceptar... asi no te saldá el aviso del bloqueo.

Como es que llamas a los reportes de Access?

[buji]

Hola Lokoman.

Gracias por responderme! te pego el codigo de como llamo al reporte:

Dim Access As Access.Application
Set appaccess = New Access.Application
Dim db As String

' abre la base de datos con el método OpenCurrentDatabase
db = App.Path & ("\Base\BDD.mdb")
' abre el reporte con el método OpenReport para imprimirlo
appaccess.OpenCurrentDatabase db
appaccess.DoCmd.OpenReport Nombre_Reporte, 2
appaccess.Visible = True

'.CloseCurrentDatabase ' cierra la base de datos abierta
' libera los recursos
Set Access = Nothing


QUe opinas¿?

[lokoman]

Estuve probando y caí en esto:

Código vb:

Private Sub Command2_Click()
 
    Dim appAccess As Access.Application
    Set appAccess = New Access.Application
    Dim db As String
    
' abre la base de datos con el método OpenCurrentDatabase
    db = App.Path & ("\BASEDATOS.mdb")
 
 ' abre el reporte con el método OpenReport para imprimirlo
    appAccess.OpenCurrentDatabase db
    appAccess.DoCmd.OpenReport "NOMBRE REPORTE", acViewPreview
    appAccess.DoCmd.Maximize
    appAccess.Visible = True
    
' libera los recursos
    Set appAccess = Nothing
End Sub
 

El problema que veo, es que Access se abre junto con el reporte... el usuario podria modificar algo en las tablas o en el mismo reporte

[buji]

lokoman, al final me decidi por utilizar Crystal Report!

Muchas Gracias.

Un fuerte abrazo!