[AccessD] [SPAM SUSPECT] Opening password protected database

Bobby Heid bheid at appdevgrp.com
Fri Jul 14 12:46:50 CDT 2006


Rocky,

Try changing "pwd=" to ";pwd=".

Bobby

-----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: [SPAM SUSPECT] [AccessD] Opening password protected database
Importance: Low


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




More information about the AccessD mailing list