Abrir un Informe de Access
Hola, mi problema es que no soy capaz de que me visualize un informe que tengo hecho en access, el código que tengo puesto es el siguiente:
Private Sub Informe()
Dim MSAccess As Access.Application
Set MSAccess = New Access.Application
'Cierro la base de datos
CNN.Close
MSAccess.OpenCurrentDatabase RutaBD, True
MSAccess.DoCmd.OpenReport "Academia", acViewPreview
MSAccess.CloseCurrentDatabase
Set MSAccess = Nothing
' Abro la base de datos
OpenBD
End Sub
Private Sub Informe()
Dim MSAccess As Access.Application
Set MSAccess = New Access.Application
'Cierro la base de datos
CNN.Close
MSAccess.OpenCurrentDatabase RutaBD, True
MSAccess.DoCmd.OpenReport "Academia", acViewPreview
MSAccess.CloseCurrentDatabase
Set MSAccess = Nothing
' Abro la base de datos
OpenBD
End Sub
