Rocky Smolin - Beach Access Software
bchacc at san.rr.com
Fri Jul 14 12:43:08 CDT 2006
Marty: Thanks. It worked with the semi-colon in front of pwd. Regards, Rocky MartyConnelly wrote: > You need a colon to dummy out first database type parameter in syntax > > Set myDatabase = DBEngine.OpenDatabase(mydbPath, False, False, ";pwd=abc") > > examples > > Set myDatabase = DBEngine.OpenDatabase(mydbPath, False, False, " FoxPro > 2.5;pwd=abc") > or > > Set myDatabase = DBEngine.OpenDatabase(mydbPath, False, False, "MS > Access;pwd=abc") > > However in the DAO documentation, that in case of Microsoft Jet one > shouldn't specify the > database type. Look it up in > > C:\Program Files\Common Files\Microsoft Shared\DAO\DAO35.HLP > > > Rocky Smolin - Beach Access Software wrote: > > >> 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