Отключить ключ обхода в Access

Я пытаюсь отключить опцию клавиши Shift, чтобы отобразить все объекты в моей базе данных. Я пробовал много разных вариантов кода, и ни один из них не работает. Может ли это быть связано с тем, что я работаю с базой данных .ACCDB, или что-то не так с моим кодом? Я предоставил код ниже.

Спасибо!

Public Function SetProperties(strPropName As String, _
varPropType As Variant, varPropValue As Variant) As Integer

On Error GoTo Err_SetProperties

Dim db As DAO.Database, prp As DAO.Property

Set db = CurrentDb
db.Properties(strPropName) = varPropValue
SetProperties = True
Set db = Nothing

Exit_SetProperties:
Exit Function

Err_SetProperties:
If Err = 3270 Then    'Property not found
    Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
    db.Properties.Append prp
    Resume Next
Else
    SetProperties = False
    MsgBox "SetProperties", Err.Number, Err.Description
    Resume Exit_SetProperties
End If

vba ms-access shift
person Brianna Cates    schedule 08.10.2015    source источник

Ответы (1)


arrow_upward
1
arrow_downward 

PropName = "AllowBypassKey"
CurrentDb.Properties(PropName) = False

Для получения дополнительной информации; Я использую таблицу данных, которая управляет различными настройками, обход сдвига находится в миксе, как и другие, которые могут вас заинтересовать.


Public Function F_AutoExec_Setup()
    Dim DB_prop As Property
    Dim PropName As String
    Dim PropValue As Boolean
    Dim TempC As Integer
    Dim bars As String


    DoCmd.Hourglass True

    On Error GoTo AddProps_Err
    'Change Setting for Special Keys - F11, etc
    PropName = "AllowSpecialKeys"
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 1"), True)
    CurrentDb.Properties(PropName) = PropValue

    'Change Setting for The shift bypass key
    PropName = "AllowBypassKey"
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 2"), True)
    CurrentDb.Properties(PropName) = PropValue

    'Change Setting for Full Menus
    PropName = "AllowFullMenus"
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 3"), True)
    CurrentDb.Properties(PropName) = PropValue

    'Change Setting for Built-in Toolbars
    PropName = "AllowBuiltInToolbars"
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 4"), True)
    CurrentDb.Properties(PropName) = PropValue

    'Change Setting for Toolbar Changes
    PropName = "AllowToolbarChanges"
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 5"), True)
    CurrentDb.Properties(PropName) = PropValue

    'Change Setting for errors allowing Code Debug
    PropName = "AllowBreakIntoCode"
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 6"), True)
    CurrentDb.Properties(PropName) = PropValue

    'Change Setting for display of the navigation pane
    PropName = "StartupShowDBWindow"
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 7"), True)
    CurrentDb.Properties(PropName) = PropValue

    'Change Setting for Shortcut menus
    PropName = "AllowShortcutMenus"
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 8"), True)
    CurrentDb.Properties(PropName) = PropValue

    'Disable all the normal Toolbars
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 12"), True)
    If PropValue Then
        PropValue = False
    Else
        PropValue = True
    End If
    On Error Resume Next 'Some of the toolbars do not have a visible option, this traps that
    For TempC = 1 To CommandBars.Count
        CommandBars(TempC).Enabled = PropValue
        'Only check/change visible status if we are turning things off, otherwise we make a mess
        'of the screen with all the toolbars at once.
        If Not PropValue And CommandBars(TempC).Visible  PropValue Then
            CommandBars(TempC).Visible = PropValue
        End If
        If Error Then
            Err.Clear
        End If
    Next TempC

    'Change Setting for display of the QAT and the Ribbon
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 9"), True)
    If PropValue Then
        DoCmd.ShowToolbar "Ribbon", acToolbarYes

    Else
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
    End If

    'Change Setting for display of Form View Toolbar
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 10"), False)
    If PropValue Then
        DoCmd.ShowToolbar "Form View", acToolbarYes
    Else
        DoCmd.ShowToolbar "Form View", acToolbarNo
    End If

    'Change Setting for display of Print PreView Toolbar
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 11"), False)
    If PropValue Then
        DoCmd.ShowToolbar "Print Preview", acToolbarYes
    Else
        DoCmd.ShowToolbar "Print Preview", acToolbarNo
    End If

    'Change Setting for display of Table Design Toolbar
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 13"), False)
    If PropValue Then
        DoCmd.ShowToolbar "Table Design", acToolbarYes
    Else
        DoCmd.ShowToolbar "Table Design", acToolbarNo
    End If

    'Change Setting for display of Query Design Toolbar
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 14"), False)
    If PropValue Then
        DoCmd.ShowToolbar "Query Design", acToolbarYes
    Else
        DoCmd.ShowToolbar "Query Design", acToolbarNo
    End If

    'Change Setting for display of Query Datasheet Toolbar
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 15"), False)
    If PropValue Then
        DoCmd.ShowToolbar "Query Datasheet", acToolbarYes
    Else
        DoCmd.ShowToolbar "Query Datasheet", acToolbarNo
    End If

    'Change Setting for display of Table Datasheet Toolbar
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 16"), False)
    If PropValue Then
        DoCmd.ShowToolbar "Table Datasheet", acToolbarYes
    Else
        DoCmd.ShowToolbar "Table Datasheet", acToolbarNo
    End If

   'Change Setting for display of Form Design Toolbar
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 17"), False)
    If PropValue Then
        DoCmd.ShowToolbar "Form Design", acToolbarYes
    Else
        DoCmd.ShowToolbar "Form Design", acToolbarNo
    End If

    'Change Setting for display of Report Design Toolbar
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 18"), False)
    If PropValue Then
        DoCmd.ShowToolbar "Report Design", acToolbarYes
    Else
        DoCmd.ShowToolbar "Report Design", acToolbarNo
    End If

    'Change Setting for display of Macro Design Toolbar
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 19"), False)
    If PropValue Then
        DoCmd.ShowToolbar "Macro Design", acToolbarYes
    Else
        DoCmd.ShowToolbar "Macro Design", acToolbarNo
    End If

    'Change Setting for locking of the Navigation Pane
    PropValue = Nz(DLookup("[Status]", "tbl_DB_Settings", "[Code] = 20"), True)
    If PropValue Then
        DoCmd.LockNavigationPane False
    Else
        DoCmd.LockNavigationPane True
    End If



    GoTo Props_End

AddProps_Err:

    If Nz(Err.Number, 0) = 3270 Then
        ' Property not found when adding a property value.
        Set DB_prop = CurrentDb.CreateProperty(PropName, dbBoolean, PropValue, False)
        CurrentDb.Properties.Append DB_prop
        Set DB_prop = Nothing
        Resume Next
    Else
        MsgBox Err.Number & " - " & Err.Description
        Resume Props_End
    End If


Props_End:
    DoCmd.Hourglass False
End Function
person Alan Waage    schedule 08.10.2015
comment
О боже, это код, лол, спасибо! Но вы хотите сказать, что я могу просто добавить две первые строки кода, которые вы указали, к коду, который я уже написал? - person Brianna Cates; 09.10.2015
comment
Да. Большая функция заключалась в том, чтобы предоставить ссылку на случай, если вас заинтересуют некоторые другие элементы. - person Alan Waage; 12.10.2015