T
Tony Uythoven
Exactly how do you disable the SHIFT key to bypass the startup properties.
The microsoft help file is not of much help.
Thanks,
Tony
The microsoft help file is not of much help.
Thanks,
Tony
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
J
Jeff Conrad
in message:
Download MVP Albert Kallal's nifty database utility that will
do all the work for you and turn off the Shift key bypass:
http://www.members.shaw.ca/AlbertKallal/msaccess/msaccess.html
Look for: "By Pass Shift Key Code"
Exactly how do you disable the SHIFT key to bypass the startup properties.
The microsoft help file is not of much help.
Download MVP Albert Kallal's nifty database utility that will
do all the work for you and turn off the Shift key bypass:
http://www.members.shaw.ca/AlbertKallal/msaccess/msaccess.html
Look for: "By Pass Shift Key Code"
G
Guest
Tony,
Here is a subroutine I use. Of course, you want to be extremely careful
about disabling the shift key control because you can disable yourself from
being able to use it. I would strongly recommend backing up your database
before incorporating this. And you will probably want to place a button on a
form that enables it for the database administrator.
Sub SetBypass(rbFlag As Boolean) ' set rbFlag=false to disable Bypass
On Error GoTo SetBypass_Error
Dim db As Database
Set db = CurrentDb
db.Properties!AllowBypassKey = rbFlag
SetByPass_Exit:
Exit Sub
SetBypass_Error:
If Err = 3270 Then
'AllowBypassKey property does not exist
db.Properties.Append db.CreateProperty("AllowBypassKey", dbBoolean,
rbFlag)
Resume Next
Else 'Some other error
MsgBox "Unexpected error: " & Error$ & " (" & Err & ")"
Resume SetByPass_Exit
End If
End Sub
Marvin
Here is a subroutine I use. Of course, you want to be extremely careful
about disabling the shift key control because you can disable yourself from
being able to use it. I would strongly recommend backing up your database
before incorporating this. And you will probably want to place a button on a
form that enables it for the database administrator.
Sub SetBypass(rbFlag As Boolean) ' set rbFlag=false to disable Bypass
On Error GoTo SetBypass_Error
Dim db As Database
Set db = CurrentDb
db.Properties!AllowBypassKey = rbFlag
SetByPass_Exit:
Exit Sub
SetBypass_Error:
If Err = 3270 Then
'AllowBypassKey property does not exist
db.Properties.Append db.CreateProperty("AllowBypassKey", dbBoolean,
rbFlag)
Resume Next
Else 'Some other error
MsgBox "Unexpected error: " & Error$ & " (" & Err & ")"
Resume SetByPass_Exit
End If
End Sub
Marvin