RE:Reportes Access
Publicado por
RodHurricane (1 intervención) el 16/08/2004 19:34:37
Sí, es posible. Aquí va el código:
' Agregar una referencia en el proyecto a:
MS Access
Dim MSAccess as Access.Application
Private Sub cmdReport_click()
Set MSAccess = New Access.Application
MSAccess.OpenCurrentDatabase("c:\xxxx\basedatos.mdb")
' 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 "rptNombreReport", acviewNormal
MSAccess.CloseCurrentDatabase
Set MSAccess = nothing
End Sub
Yo probé el código y funciona perfectamente