Contraseña
Publicado por Pablo (1 intervención) el 12/11/2007 01:09:41
Hola a todos, tengo el sig. código en un boton de comando que me imprime un informe de ACCESS.
Set oAcces = New Access.Application
oAcces.OpenCurrentDatabase "Gestoría.mdb" , , "*204075*"
oAcces.Visible = False
oAcces.DoCmd.OpenReport "Egresos de caja", acViewPreview
oAcces.DoCmd.PrintOut acPages, 1, 1
oAcces.CloseCurrentDatabase
oAcces.Quit
Set oAcces = Nothing
Como verán a la base le puse esa contraseña y lo que quiero es evitar la solicitud de contraseña sin sacarla del ACCESS, pero me tira ERROR y me mancha el OPENCURRENTDATABASE, alguien me puede decir cual es mi error en el codigo
Set oAcces = New Access.Application
oAcces.OpenCurrentDatabase "Gestoría.mdb" , , "*204075*"
oAcces.Visible = False
oAcces.DoCmd.OpenReport "Egresos de caja", acViewPreview
oAcces.DoCmd.PrintOut acPages, 1, 1
oAcces.CloseCurrentDatabase
oAcces.Quit
Set oAcces = Nothing
Como verán a la base le puse esa contraseña y lo que quiero es evitar la solicitud de contraseña sin sacarla del ACCESS, pero me tira ERROR y me mancha el OPENCURRENTDATABASE, alguien me puede decir cual es mi error en el codigo
Valora esta pregunta
0