神马文学网AllowBypassKey 属性
来源：百度文库 编辑：神马文学网 时间：2024/04/28 08:59:59
AllowBypassKey 属性适用于: Microsoft Office Access 2007 您可以使用 AllowBypassKey 属性指定是否启用 Shift 键以绕过启动属性和 AutoExec 宏。例如，可以将 AllowBypassKey 属性设置为 False 以禁止用户绕过启动属性和 AutoExec 宏。设置 说明 True 启用 Shift 键以允许用户绕过启动属性和 AutoExec 宏。 False 禁用 Shift 键以禁止用户绕过启动属性和 AutoExec 宏。
设置
AllowBypassKey 属性使用以下设置。
您可以使用宏 （宏：用来自动执行任务的一个操作或一组操作。）或 Visual Basic for Applications (VBA) （Visual Basic for Applications (VBA)：Microsoft Visual Basic 的宏语言版本，用于编写基于 Microsoft Windows 的应用程序，内置于多个 Microsoft 程序中。） 代码来设置该属性。
要使用宏或 Visual Basic for Applications (VBA) 代码设置 AllowBypassKey 属性，必须通过以下方法创建该属性：
- 在 Microsoft Access 数据库 （数据库：与特定主题或用途相关的数据的集合。在数据库内，关于特定实体的信息（如雇员或订单）分类归纳到表、记录和字段中。）（.mdb 或 .accdb）中，可使用 CreateProperty 方法添加该属性并将其追加到 Database 对象的 Properties 集合中。
- 在 Microsoft Access 项目 （Microsoft Access 项目：与 Microsoft SQL Server 数据库连接且用于创建客户/服务器应用程序的 Access 文件。项目文件中不包含任何数据或基于数据定义的对象（如表或视图）。） (.adp) 中，可使用 Add 方法将该属性添加到 CurrentProject 对象的 AccessObjectProperties 集合中。
注解
应确保在调试应用程序时将 AllowBypassKey 属性设置为 True。
只有在下一次打开应用程序数据库时，AllowBypassKey 属性的设置才会生效。
示例
以下示例显示了一个名为 SetBypassProperty 的过程，该过程可传递要设置的属性的名称、其数据类型及所需设置。常用过程 ChangeProperty 会尝试设置 AllowBypassKey 属性，并在找不到该属性的情况下使用 CreateProperty 方法将该属性追加到 Properties 集合中。由于在添加该属性之前，AllowBypassKey 属性并不显示在 Properties 集合中，因此此过程是必需的。
Sub SetBypassProperty()Const DB_Boolean As Long = 1ChangeProperty "AllowBypassKey", DB_Boolean, FalseEnd SubFunction ChangeProperty(strPropName As String, _varPropType As Variant, _varPropValue As Variant) As IntegerDim dbs As Object, prp As VariantConst conPropNotFoundError = 3270Set dbs = CurrentDbOn Error GoTo Change_Errdbs.Properties(strPropName) = varPropValueChangeProperty = TrueChange_Bye:Exit FunctionChange_Err:If Err = conPropNotFoundError Then ' Property not found.Set prp = dbs.CreateProperty(strPropName, _varPropType, varPropValue)dbs.Properties.Append prpResume NextElse' Unknown error.ChangeProperty = FalseResume Change_ByeEnd IfEnd Function