Office中国论坛/Access中国论坛

标题: 请问怎样用ADD的方法添加属性？ [打印本页]

作者: msf 时间: 2004-9-19 05:28
标题: 请问怎样用ADD的方法添加属性？
使用 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 集合中。

下面的示例显示了一个名为 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

复制代码

[code][/code]

请问怎样用ADD的方法添加属性？上面的代码应该怎样改？

[此贴子已经被作者于2004-9-18 21:34:23编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)