This will toggle the allow bypass property (or create it when it's run the first time). *Label controls have a double-click event you can use with a label that only has a space for a caption--giving you an invisible "image-map". Just don't forget where it is...
[tt]Public Const PROPERTY_NOT_FOUND As Long = 3270
Public Sub ByPassKeyToggle()
'This Code Disables/Enables the Shift Key
On Error GoTo Error_ByPass
Dim Prp As DAO.Property
Dim DB As DAO.Database
Dim blnToggle As Boolean
Set Db = CurrentDb()
blnToggle = Db.Properties("allowbypasskey"

blnToggle = Not blnToggle
Db.Properties("AllowByPassKey"

= blnToggle
MsgBox "AllowByPass is set to " & blnToggle
Exit_Bypass:
Set Prp = Nothing
Set DB = Nothing
Exit Sub
Error_ByPass:
'Constant above
If err.Number = PROPERTY_NOT_FOUND Then
Set Prp = Db.CreateProperty("AllowByPassKey", dbBoolean, True)
Db.Properties.Append Prp
Db.Properties.Refresh
Resume Next
Else
MsgBox "Bypass routine failed due to " & Err.Number & ": " & Err.Description
End If
Exit Sub
End Sub[/tt]
Turn your headache into my project!
Jeffrey R. Roberts
Insight Data Consulting
Access and SQL Server Development