Database Startup Properties

[Muzzy]

As we all know you can have a startup form to open when you open a database, however if you hold down the shift key and press enter after you have entered your logon details you get the database window up, how can I stop this, I don't want people to be able to do this. It goes against security really!

 

[oharab]

Have a look on my website for the file lock&unlock.zip
It has an Access database that asks for a file to lock. Point it at your database and it will set the property to bypass the shiftkey. If you don't get a message saying it is locked, try it again. Sometimes it doesn't work 1st time round. A problem in the code I've not had time to look at yet.

HTH

Ben

PS the same file will unlock the database again if you want to go in it.

b ----------------------------------------
Ben O'Hara

http://www.RobotParade.co.uk

----------------------------------------

 

[thornmastr]

The following functions will do this for you; in both directions. Please note, until you do the converse function, the last function you executed will remain in effect. Note also that these two functions are DAO and do not depend on ADOX. Therefore, watch your references.

Public Sub Disable()
Dim db As Database
Dim prp As Property
Set db = CurrentDb
Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False)
db.Properties.Append prp
MsgBox "System Lockdown, the shift key has been blocked"
DoCmd.Quit
End Sub


Public Sub Enabler()
Dim db As Database
Set db = CurrentDb
db.Properties.Delete "AllowByPassKey"
db.Properties.Refresh
MsgBox "System open, the program is currently unlocked"
DoCmd.Quit
End Sub




HTH
Robert Berman
Data Base consultant
Vulcan Software Services
thornmastr@yahoo.com

 

[thornmastr]

Pardon my typo. Enabler = Enable. Robert Berman
Data Base consultant
Vulcan Software Services
thornmastr@yahoo.com

 

[RobPotts]

See

faq181-143

Rob!