请问怎样用ADD的方法添加属性？

msf

使用 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 集合中。

1. Sub SetBypassProperty()
   
   
2. Const DB_Boolean As Long = 1
   
   
3.     ChangeProperty "[b]AllowBypassKey[/b]", DB_Boolean, False
   
   
4. End Sub
   
   
5. 
   
   
6. Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
   
   
7.     Dim dbs As Object, prp As Variant
   
   
8.     Const conPropNotFoundError = 3270
   
   
9. 
   
   
10.     Set dbs = CurrentDb
    
    
11.     On Error GoTo Change_Err
    
    
12.     dbs.Properties(strPropName) = varPropValue
    
    
13.     ChangeProperty = True
    
    
14. 
    
    
15. Change_Bye:
    
    
16.     Exit Function
    
    
17. 
    
    
18. Change_Err:
    
    
19.     If Err = conPropNotFoundError Then    ' Property not found.
    
    
20.         Set prp = dbs.CreateProperty(strPropName,varPropType, varPropValue)
    
    
21.         dbs.Properties.Append prp
    
    
22.         Resume Next
    
    
23.     Else
    
    
24.         ' Unknown error.
    
    
25.         ChangeProperty = False
    
    
26.         Resume Change_Bye
    
    
27.     End If
    
    
28. End Function

复制代码

[code][/code]

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

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