Set Database Password

[lasitha]

Hi All,

I have two mdb files, one file is a cilent version and other one is server version. I'm going to install through the setups those two files (mde).
Client db file have link tables with server db, forms, reports etc.,
In server version has only tables.

I want to set a password to these to files(mde)s. Because of anyone can open dbs with pressing Shift key on the Key board.

I already set same password to those two files; before convert to mde.

At now when run client version it ask password.
If there is a way to control this thing, through the VBA code.

ThankX,
Lasitha Alawatta.

 

[PHV]

Have you tell the linked table manager to remember the connection password ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[redapples]

Take a look at using the integerated security using workgroups for security. It is much more secure and although it seems frightening at first is actually quite simple. There are quiet a lot of posts on these forums for this I'll se if I can dig some up and post a link for you.

Want the best answers? See FAQ181-2886

http://www.redapples.v21hosting.co.uk

 

[redapples]

have a look at this thread705-606429 and in particular the article mentiond by JeremyNYC

Want the best answers? See FAQ181-2886

http://www.redapples.v21hosting.co.uk

 

[lasitha]

Dear PHV,

Could U pls tell how to tell the linked table manager to remember the connection password.


Many ThankX,

Lasitha Alawatta

 

[PHV]

When you link the tables (menu File -> External data -> Link tables -> ODBC) you have a check box to remember the password.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[lasitha]

Hi PHV (MIS),

I used following VBA code to re-link my databases,

Dim CurDB As Database, tdfLinked As TableDef
Dim DBPath As String

Set CurDB = CurrentDb

DBPath = "C:\Documents and Settings\2004.11.16\rb.mdb"

For Each tdfLinked In CurDB.TableDefs
If Len(tdfLinked.Connect) > 0 Then
tdfLinked.Connect = ";DATABASE=" & DBPath
tdfLinked.RefreshLink
End If
Next tdfLinked

If there is a way to give the Password to tdfLinked.Connect = ";DATABASE=" & DBPath this code.

ThankX,

Lasitha.

 

[PHV]

Place the cursor in the Connect word and press F1.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244