[AccessD] Opening password protected database

Steve Conklin developer at ultradnt.com
Fri Jul 14 12:37:24 CDT 2006


My way of doing it is:
stConn = "MS Access;PWD=st at r_w@rs;DATABASE=" & stNewBE  

But I onlyh need that on the re-link ... You can execute items againts
currentdb w/o the password, as long as the pwd is already in the
tdef.connection.

Hth
Steve


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
Beach Access Software
Sent: Friday, July 14, 2006 12:44 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Opening password protected database

Dear List:

I am trying to open a password protected database using the following:

Set db = CurrentDb
MsgBox db.Name
Dim strPWD As String
strPWD = "shannon"
Dim strDB As String
strDB = Left(db.Name, Len(db.Name) - 6) & "BE.mdb"
Set db = DBEngine.OpenDatabase(strDB, False, False, "pwd=" & strPWD)


Set db = DBEngine.OpenDatabase(db.Name, False, False, "pwd=" & strPWD)

I used Set db = CurrentDb just to be sure I was getting the exact path and
file name of the back end and strDB does indeed have the correct path and
filename of the back end.  The password is also correct.

What am I doing wrong?

Maybe there's a simpler way? The client wants to have the back end password
protected, so instead of using the simple set db=Currentdb everywhere in the
app I guess I have to use some syntax which specifies the password.  All the
tables in the back end are linked.

MTIA

Rocky

--
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com





More information about the AccessD mailing list