Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Shaun E on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Adding Some Protection

Status
Not open for further replies.

mxdcy

Technical User
Mar 23, 2002
17
GB
how i can Add some sort of protection to a database so that users can not modify the stracture and the interface ?

like a password or something

thanks in advance

mxd
 
You could turn your database into an mde file, the program is then a compiled and locked programe. However it runs just like the mdb file
 
Add two button to a form make them invisible place them somewhere no one would look.

Private Sub Command61_Click()
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.Close
DoCmd.OpenForm "Autoexec", acNormal
End Sub



Private Sub Command62_Click()
Dim db As Database
Set db = CurrentDb
db.Properties.Delete "AllowByPassKey"
db.Properties.Refresh
MsgBox "System open, the program is currently unlocked"
DoCmd.Close
DoCmd.OpenForm "Autoexec", acNormal
End Sub


Have a good one B-)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top