Imprimir Inf. Access Con Clave
Publicado por Cesar (80 intervenciones) el 11/02/2002 18:17:08
Hola
tengo un problema tengo varios informes creados en acces 97 la cual los llamo desde visual basic 5.0 solo para imprimirlos el problema radica en que la base de datos le coloque contraseña y no " puedo imprimirlo"
como deba abir la base de datos para poder imprimir los informe ya creados en acces esta es la forma en la cual abro mi base en el programa
Const Pasw = "MiClave" 'Clave de la Base de Datos
Set BASE = OpenDatabase(Path1, True, False, ";pwd=" & Pasw)
y es esta es la forma en la cual imprimo
Set Infacc = GetObject("C:\Sistema buses\Control.mdb")
Set TitulosInf = Base2.OpenRecordset("ParaInforme")
Infacc.DoCmd.OpenReport "Informe de Camiones ", acViewPreview
Infacc.DoCmd.Maximize 'para mostrar
Infacc.Visible = True 'para mostraR
Set Infacc = Nothing
cua es el error
tengo un problema tengo varios informes creados en acces 97 la cual los llamo desde visual basic 5.0 solo para imprimirlos el problema radica en que la base de datos le coloque contraseña y no " puedo imprimirlo"
como deba abir la base de datos para poder imprimir los informe ya creados en acces esta es la forma en la cual abro mi base en el programa
Const Pasw = "MiClave" 'Clave de la Base de Datos
Set BASE = OpenDatabase(Path1, True, False, ";pwd=" & Pasw)
y es esta es la forma en la cual imprimo
Set Infacc = GetObject("C:\Sistema buses\Control.mdb")
Set TitulosInf = Base2.OpenRecordset("ParaInforme")
Infacc.DoCmd.OpenReport "Informe de Camiones ", acViewPreview
Infacc.DoCmd.Maximize 'para mostrar
Infacc.Visible = True 'para mostraR
Set Infacc = Nothing
cua es el error
Valora esta pregunta
0