Reporte Access 2010 o superior
Publicado por Ricardo (73 intervenciones) el 29/08/2018 15:54:48
Buenas tardes a todos.
Estoy haciendo una aplicación en la cual debo ejecutar un informe en access 2010, he logrado en el pasado ejecutar reportes de access 2003, pero usando el mismo codigo, y la libreria de que dispongo 14.0 no nunciona, no tira error, lee, ejecuta el informe y habilita el servicio pero nunca pasa a la próxima linea de codigo osea nunca cierra la bd por tanto se clava la aplicación.-
código que uso
Estoy haciendo una aplicación en la cual debo ejecutar un informe en access 2010, he logrado en el pasado ejecutar reportes de access 2003, pero usando el mismo codigo, y la libreria de que dispongo 14.0 no nunciona, no tira error, lee, ejecuta el informe y habilita el servicio pero nunca pasa a la próxima linea de codigo osea nunca cierra la bd por tanto se clava la aplicación.-
código que uso
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Dim oAccess As Object
Private Sub mnuBuscar:Click()
Dim acc As Access.ApplicationSet acc = New Access.Application
With acc
.OpenCurrentDatabase App.Path & "\ExportarExelLocal.accdb", False
.DoCmd.OpenReport "inf_Buscar", acViewPreview ' (nf_Buscar)nombre del informe
.CloseCurrentDatabase .QuitEnd With
Set acc = NothingEnd Sub
Valora esta pregunta
0