Re: AllowBypassKey

Joan, Do you have this code in ADO?
--
Lois


"Joan Wild" wrote:

Copy your database.

Make sure you are in the main database window. Click the "modules" tab, then
select "new." Alternatively, you can open an existing module if you have
one.

Copy/paste the following function into it. Save the module giving it some
name other than DisableShiftKeyBypass.

**start**

Function DisableShiftKeyBypass() As Boolean
On Error GoTo errDisableShift

Dim db As Database
Dim prop As Property

Set db = CurrentDb()

On Error Resume Next
db.Properties.Delete "AllowByPassKey"
On Error GoTo errDisableShift

Set prop = db.CreateProperty("AllowByPassKey", dbBoolean, False, True)
db.Properties.Append prop
DisableShiftKeyBypass = True

exitDisableShift:
Set prop = Nothing
Set db = Nothing
Exit Function

errDisableShift:
MsgBox "Function DisableShiftKeyBypass did not complete successfully."
DisableShiftKeyBypass = False
Resume exitDisableShift

End Function

***end***

Click on Debug, Compile, and then close the module saving it.

At the database window, hit Ctrl-G which will open the debug window.

Type DisableShiftKeyBypass() and hit enter.

The next time you open the db, the shift will be disabled.

You only need to run the sub once to set the property and then it is set.
It isn't something you would run repeatedly as it isn't necessary.

You can go back to that copy you made in step 1 (which you'll keep in a safe
place) when you want to make changes, or you can use another database to
set the prop back on this database.

Or you could use Albert's utility to set it on/off. Look for By Pass Shift
Key Code at
http://www.attcanada.net/~kallal.msn/msaccess/msaccess.html

--
Joan Wild
Microsoft Access MVP

"Sherry" <Sherry@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:F06085E7-48D3-4F19-BD28-A410BCA62D61@xxxxxxxxxxxxxxxx
can any one tell me step by step way how to use this property to stop
users open the database by pressing shift key, I have tryed different codes
but i dont know where to put that code and where is the immidiate window, so
pls tell me step by step how to do this. thanks



.

Relevant Pages

  • Re: AllowBypassKey
    ... > Make sure you are in the main database window. ... > Function DisableShiftKeyBypass() As Boolean ... > Dim prop As Property ... > At the database window, hit Ctrl-G which will open the debug window. ...
    (microsoft.public.access.security)
  • Re: Bypass Shift Key Problems...Help Please
    ... Dim ws As Workspace ... Dim db As Database ... Dim prop As Property ... MsgBox "Function DisableShiftKeyBypass did not complete ...
    (microsoft.public.access.security)
  • Re: AllowBypassKey
    ... Make sure you are in the main database window. ... Function DisableShiftKeyBypass() As Boolean ... Dim prop As Property ... At the database window, hit Ctrl-G which will open the debug window. ...
    (microsoft.public.access.security)
  • Re: AllowBypassKey
    ... Dim prop as DAO.property ... "Joan Wild" wrote: ... Make sure you are in the main database window. ... Function DisableShiftKeyBypass() As Boolean ...
    (microsoft.public.access.security)
  • Re: AllowBypassKey
    ... > Make sure you are in the main database window. ... > Function DisableShiftKeyBypass() As Boolean ... > Dim prop As Property ... > At the database window, hit Ctrl-G which will open the debug window. ...
    (microsoft.public.access.security)