allowbyPasskey

[GK22]

There is a possibility to stop the shift-key code to broke into the database.
In what place, and what code exactly is neccesary,
and how to make a password to come in by myself, so, don't exclude myself,

thnx in Advance,

gerard

 

[Maquis]

Quick answer: Go to startup menu and click "Advanced". Then uncheck "Use special access keys".

Long answer: Read faq181-1021. Contains tips and tricks for locking out users from your database design. (As well as making sure you as the designer still get in.) Maq B-)
<insert witty signature here>

 

[GK22]

thnx maquis, looks fine, I will try

Gerard

 

[Zeroanarchy]

GK222

Create 2 buttons( i have a password that makes them visible but you may just want to strategicly place them in an admin section of your database)

Private Sub Command61_Click()
Dim db As Database
Dim prp As Property
Set db = CurrentDb
Set prp = db.CreateProperty(&quot;AllowByPassKey&quot;, dbBoolean, False)
db.Properties.Append prp
MsgBox &quot;System Lockdown, the shift key has been blocked&quot;
DoCmd.Close
DoCmd.OpenForm &quot;MainForm&quot;, acNormal
End Sub
Private Sub Command62_Click()
Dim db As Database
Set db = CurrentDb
db.Properties.Delete &quot;AllowByPassKey&quot;
db.Properties.Refresh
MsgBox &quot;System open, the program is currently unlocked&quot;
DoCmd.Close
DoCmd.OpenForm &quot;MainForm&quot;, acNormal
End Sub

Good Luck

Zero Anarchy