AllowBypassKey 属性

重要:  本文是由机器翻译的,请参阅免责声明。请在 此处 中查找本文的英文版本以便参考。

您可以使用AllowBypassKey属性指定是否为绕过启动属性和 AutoExec 宏启用 SHIFT 键。例如,您可以为False以禁止用户绕过启动属性和 AutoExec 宏设置AllowBypassKey属性。

设置

AllowBypassKey属性使用以下设置。

设置

说明

正确

启用 Shift 键以允许用户绕过启动属性和 AutoExec 宏。

错误

禁用 Shift 键以禁止用户绕过启动属性和 AutoExec 宏。


通过使用宏或 Visual Basic for Applications (VBA) 代码,您可以设置此属性。

若要设置AllowBypassKey属性使用宏或 Visual Basic for Applications (VBA) 代码,必须通过以下方式创建属性:

  • 在 Microsoft Access 数据库 (.mdb 或.accdb) 中,您可以通过使用CreateProperty方法,然后将其追加到Database对象的Properties集合中添加该属性。

  • 在 Microsoft Access 项目 (.adp) 中,可使用 Add 方法将该属性添加到 CurrentProject 对象的 AccessObjectProperties 集合中。

备注

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

下次打开应用程序数据库之前, AllowBypassKey属性的设置才会生效。

示例

下面的示例显示名为 SetBypassProperty 传递的属性设置、 其数据类型,以及设置名称的过程。通用过程 ChangeProperty 尝试设置AllowBypassKey属性,以及如果找不到该属性,使用CreateProperty方法追加到正确具有等同值集的属性。这是必需的因为已添加才会显示在Properties集合中AllowBypassKey属性。

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

注意: 机器翻译免责声明:本文是由无人工介入的计算机系统翻译的。Microsoft 提供机器翻译是为了帮助非英语国家/地区用户方便阅读有关 Microsoft 产品、服务和技术的内容。由于机器翻译的原因,本文可能包含词汇、语法或文法方面的错误。

扩展你的技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×