Access VBA教程:AllowBypassKey属性

使用 AllowBypassKey属性可以指定是否允许用 Shift 键来忽略启动属性和 AutoExec 宏。例如,将 AllowBypassKey属性设为 False 可避免用户忽略启动属性和 AutoExec 宏。

设置

AllowBypassKey属性使用以下设置:

设置 说明
True 允许用户使用 Shift 忽略启动属性和 AutoExec 宏。
False 禁止用户使用 Shift 忽略启动属性和 AutoExec 宏。

可以使用或者Visual Basic 设置该属性。

若要使用宏或 Visual Basic 设置 AllowBypassKey属性,必须使用以下方法创建该属性:

说明

调试应用程序时,应确保 AllowBypassKey属性设为 True。

该属性的设置仅在下一次打开应用程序数据库时才会生效。

示例

下面的示例显示了一个名为 SetBypassProperty 的过程,该过程传递要设置的属性的名称、数据类型及所需设置。一般用途过程 ChangeProperty 将尝试设置 AllowBypassKey属性,如果找不到该属性,则用 CreateProperty方法将其追加到 Properties集合中。这是必要的步骤,因为只有在添加之后,该属性才出现在 Properties集合中。


Sub SetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

上页:Access VBA教程:AllowBuiltInToolbars属性 下页:Access VBA教程:AllowContextMenu属性 (Snapshot Viewer)

Access VBA教程:AllowBypassKey属性

Access VBA教程:AllowContextMenu属性 (Snapshot Viewer) Access VBA教程:AllowDatasheetView属性
Access VBA教程:AllowDeletions属性 Access VBA教程:AllowDesignChanges属性
Access VBA教程:AllowEdits属性 Access VBA教程:AllowFilters属性
Access VBA教程:AllowFormView属性 Access VBA教程:AllowFullMenus属性
Access VBA教程:AllowPivotChartView属性 Access VBA教程:AllowPivotTableView属性
Access VBA教程:ScrollBars属性 Access VBA教程:AllowShortcutMenus属性
Access VBA教程:AllowSpecialKeys属性 Access VBA教程:AllowToolbarChanges属性
Access VBA教程:AllowZeroLength属性 Access VBA教程:AllQueries属性
Access VBA教程:AllReports属性 Access VBA教程:AllStoredProcedures属性
Access VBA教程:AllTables属性 Access VBA教程:AllViews属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号