ADP中怎样禁用shfit键

msf · 发表于 2004-9-19 05:24:00

使用 AllowBypassKey 属性可以指定是否允许用 Shift 键来忽略启动属性和 AutoExec 宏。

在 [url=mkMSITStore:E:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproAllowBypassKey.htm#]Microsoft Access 数据库[/url] (.mdb) 中，可以通过使用 CreateProperty 方法添加该属性，并将其追加到 Database 对象的 Properties 集合中。
在 [url=mkMSITStore:E:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproAllowBypassKey.htm#]Microsoft Access 项目[/url] (.adp) 中，可以通过使用 [url=mkMSITStore:E:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthAdd.htm]Add[/url] 方法将该属性添加到 CurrentProject 对象的 AccessObjectProperties 集合中。

说明

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

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

示例

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

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "[b]AllowBypassKey[/b]", 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