Results 1 to 2 of 2
  1. #1
    Join Date
    Jun 2004
    Location
    Terrapin Nation
    Posts
    205

    Unanswered: Disable the Shift Key

    How do you disable the shift key when an app is opening?

  2. #2
    Join Date
    Dec 2004
    Location
    Madison, WI
    Posts
    3,926

    Bypassg the shift key

    On Error GoTo Err_bDisableBypassKey_Click
    'This ensures the user is the programmer needing to disable the Bypass Key
    Dim strInput As String
    Dim strMsg As String
    Beep
    'strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & _
    '"Please key the programmer's password to enable the Bypass Key."
    'strInput = InputBox(Prompt:=strMsg, Title:="Disable Bypass Key Password")
    Dim QI As Integer
    QI = MsgBox("Do you want to disable the shift key?", vbYesNo)
    If QI = 7 Then
    'If strInput = "pk" Then
    SetProperties "AllowBypassKey", dbBoolean, True
    Beep
    MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _
    "The Shift key will allow the users to bypass the startup options the next time the database is opened.", _
    vbInformation, "Set Startup Properties"
    Else
    Beep
    SetProperties "AllowBypassKey", dbBoolean, False
    MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & _
    "The Bypass Key was disabled." & vbCrLf & vbLf & _
    "The Shift key will NOT allow the users to bypass the startup options the next time the database is opened.", _
    vbCritical, "Invalid Password"
    Exit Sub
    End If
    Exit_bDisableBypassKey_Click:
    Exit Sub
    Err_bDisableBypassKey_Click:
    MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description
    Resume Exit_bDisableBypassKey_Click
    Expert Database Programming
    MSAccess since 1.0, SQL Server since 6.5, Visual Basic (5.0, 6.0)

Posting Permissions

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