|
Prueba con este codigo, yo lo he probado con una b.d. de acces 97, es posible que funcione con otras versiones:
Dim objAccess as Objet
'modo de presentar la informacion.
Const acViewDesing = 0 'modo diseño
Const acViewNormal = 1 'modo impresion
Const acViewPreview = 2 'modo preview
'creamos el objeto
Set objAccess = CreateObject("access.application.8")
'abrimos la B.D. que nos interesa
objAccess.OpenCurrentDatabase "tubase.mdb"
'Lanzamos el informe que nos interesa
objAccess.DoCmd.OpenReport "Informe",acViewPreview
'hacemos visible la ventana de access
objAccess.Visible = true
Espero que te sirva
|
