Results 1 to 3 of 3

Thread: Alt+F11? (2000)

  1. #1
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Louisville, Kentucky, USA
    Posts
    605
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Alt+F11? (2000)

    Good Morning All,

    I use the following code to lock/unlock the SHIFT BYPASS. This code along with a small macro works great. Easy IN Easy OUT! For extra coverage, I've hidden all the forms and modules. Still fine. Except!...Yes there is always a flaw,,,,,,WHY O WHY is that ? <img src=/S/bananas.gif border=0 alt=bananas width=33 height=35>

    I can't get around the F11 or the Alt+F11....does anyone have any suggestions?

    Function faq_DisableShiftKeyBypass() As Boolean

    MsgBox "DisablesShiftKey"
    On Error GoTo errDisableShift
    Dim DB As DAO.Database
    Dim prop As DAO.Property
    Const conPropNotFound = 3270
    Set DB = CurrentDb()
    DB.Properties("AllowByPassKey") = False
    faq_DisableShiftKeyBypass = True
    exitDisableShift:
    Exit Function
    errDisableShift:

    If Err = conPropNotFound Then
    Set prop = DB.CreateProperty("AllowByPassKey", dbBoolean, False)
    DB.Properties.Append prop
    Resume Next
    Else
    MsgBox "Function DisableShiftKeyBypass did not complete successfully."
    faq_DisableShiftKeyBypass = False
    GoTo exitDisableShift
    End If
    End Function


    Function faq_EnableShiftKeyBypass() As Boolean
    MsgBox "EnablesShiftKey"
    On Error GoTo errEnableShift
    Dim DB As DAO.Database
    Dim prop As DAO.Property
    Const conPropNotFound = 3270
    Set DB = CurrentDb()
    DB.Properties("AllowByPassKey") = True
    faq_EnableShiftKeyBypass = False
    exitEnableShift:
    Exit Function
    errEnableShift:
    If Err = conPropNotFound Then
    Set prop = DB.CreateProperty("AllowByPassKey", dbBoolean, True)
    DB.Properties.Append prop
    Resume Next
    Else
    MsgBox "Function EnableShiftKeyBypass did not complete successfully."
    faq_EnableShiftKeyBypass = False
    GoTo exitEnableShift
    End If
    End Function
    Roberta Price <img src=/S/cheers.gif border=0 alt=cheers width=30 height=16>

  2. #2
    Super Moderator
    Join Date
    Aug 2001
    Location
    Evergreen, CO, USA
    Posts
    6,623
    Thanks
    3
    Thanked 60 Times in 60 Posts

    Re: Alt+F11? (2000)

    I believe if you use the Tools / Startup and turn of the checkmark Use Access Special Keys that should lock things down completely.
    Wendell

  3. #3
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Louisville, Kentucky, USA
    Posts
    605
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Alt+F11? (2000)

    DUH....I knew that .... If I get any dumber...just shoot me.... don't know why I insist on making things harder than they need to be.....

    Tx...have a GREAT WEEKEND!!!
    Roberta Price <img src=/S/cheers.gif border=0 alt=cheers width=30 height=16>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •