problemas al cambiar contraseña de base de datos acces DAO

frank
08 de Agosto del 2004
quiero cambiar la contraseña a una base de datos access pero me da el error 3621 "No se puede cambiar la contraseña en una base de datos compartida abierta". el codigo es el siguiente. la base de datos es de uso exclusivo del programa.


Dim base_datos As DAO.Database

Private Sub Command1_Click()
Set base_datos = OpenDatabase("d:VDVD 1.1video dvd.mdb", False, False, ";pwd=frank")

base_datos.NewPassword "frank", "luis"

base_datos.Close
MsgBox "Cambio de contraseña exitoso", vbInformation
End Sub

semperfimxl
08 de Agosto del 2004
Cambia el primer FALSE por TRUE ..
Con esto le indicas al programa que abra la base de datos en forma EXCLUSIVA (NO COMPARTIDA) para que puedas cambiar la contraseña ...

Set base_datos = OpenDatabase("d:VDVD 1.1video dvd.mdb", True, False, ";pwd=frank")