07/07/2011, 10:56
|
| | | Fecha de Ingreso: noviembre-2010 Ubicación: madrid
Mensajes: 478
Antigüedad: 13 años, 5 meses Puntos: 5 | |
| Respuesta: se me cambia de nombre la base de datos
POR FINNNNNNNNNNNNNNNNNNNNNNNN AHÍ VA ARREGLADÍSISISISISMO
Dim oAccess As Access.Application
'Start a new instance of Access for Automation:
oAccess = New Access.Application
'Open a database in exclusive mode:
oAccess.OpenCurrentDatabase(filepath:=CurDir() & "\Gestion.mdb", Exclusive:=False)
'Preview a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dreamt_Ticke ts_Informe", _
View:=Access.AcView.acViewPreview)
'Print a report named Sales:
oAccess.DoCmd.OpenReport(ReportName:="Dreamt_Ticke ts_Informe", _
View:=Access.AcView.acViewNormal)
oAccess.CloseCurrentDatabase()
oAccess.DoCmd.Close()
oAccess.Quit()
oAccess = Nothing |