Visual Basic - URGENTEEEE

Life is soft - evento anual de software empresarial
 
Vista:

URGENTEEEE

Publicado por luis (3 intervenciones) el 14/03/2002 08:55:55
¿Sabe alguien como puedo lanzar o ejecutar un Report de Access97 desde Visula Basic6?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:URGENTEEEE

Publicado por martin (198 intervenciones) el 14/03/2002 15:50:00
Prueba con ésto :
Dim Objaccess As Object
'Modo de presentar la información
Const ACVIEWDESING = 0 'Modo de Diseño
Const ACVIEWNORMAL = 1 'Modo de Impresión Directa
Const ACVIEWPREVIEW = 2 'Modo de Impresión Preliminar
'Creamos el Objeto
Set Objaccess = CreateObject("ACCESS.APPLICATION.8")
'Abrimos la base de datos
Objaccess.opencurrentdatabase "c:\sistema\sistema.mdb"
'Lanzamos el informe que nos interesa
Objaccess.docmd.openreport "catálogo de clientes", ACVIEWPREVIEW
'Hacemos visible la ventana access
Objaccess.Visible = True
MsgBox "Haga click en aceptar para cerrar previsualizacion"
Objaccess.Visible = False
End If

saludos...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar