Access security in newtrok

[Taurus05]

Hi,

My access database is currently stored in a shared folder in a network environment. I would like to implement multiple users logins and password using the user security wizard.

My plan is, I will be setting up on 1 PCs and then I would like to copy the secure mdw to the rest of the other PCs.

I would like to know if this is workable?

Thanks

 

[statsman]

For an excellent overview of Access security, go to:
http://www.geocities.com/jacksonmacd
download the first file – Security Paper by Jack Macdonald. It’s a little long but it tells you everything you need to know.

 

[boblarson]

And when you do implement security, by all means MAKE A COPY OF THE DATABASE FIRST!!! So, if something goes wrong you aren't hosed. This comes from personal experience of NOT doing so about 10 years ago. It wasn't fun recreating the whole database again.

 

[Taurus05]

Hi,

Thanks for the reply.

I would like to know which part of the database I should put the code that prevent the SHIFT key from bypassing the startup options? In addition I would like to have administrator to access it. This code I got it from the Microsft website.

Function faq_DisableShiftKeyBypass(strDBName as String, fAllow as Boolean) As Boolean

On Error GoTo errDisableShift

Dim ws As Workspace
Dim db As DATABASE
Dim prop As Property
Const conPropNotFound = 3270

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(strDBName)

db.Properties("AllowByPassKey") = Not fAllow
faq_DisableShiftKeyBypass = fAllow
exitDisableShift:
Exit Function

errDisableShift:
'The AllowBypassKey property is a user-defined
' property of the database that must be created
' before it can be set. This error code will execute
' the first time this function is run in a database.

If Err = conPropNotFound Then
' You must set the fourth DDL parameter to True
' to ensure that only administrators
' can modify it later. If it was created wrongly, then
' delete it and re-create it correctly.
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False, True)
db.Properties.Append prop
Resume
Else
MsgBox "Function DisableShiftKeyBypass did not complete successfully."
Faq_DisableShiftKeyBypass = False
GoTo exitDisableShift
End If
End Function


Thanks.