该主题中的某些内容可能不适用于某些语言。
应用于 AccessObjectProperties 集合对象的 Remove 方法。
使用 Remove 方法可以从 AccessObject 对象的 AccessObjectProperties 集合中删除 AccessObjectProperty 对象。
expression.Remove(Item)
expression 必需。返回一个 AccessObjectProperties 集合对象的表达式。
Item 必需 Variant 型。表达式,指定对象参数引用的集合成员的位置。如果是数值表达式,则索引参数的范围必须是从 0 到集合的 Count 属性值减 1 的数值。如果是字符串表达式,则索引参数必须是集合成员的名称。
应用于 References 集合对象的 Remove 方法。
Remove 方法从 References 集合中删除 Reference 对象。
expression.Remove(Reference)
expression 必需。返回一个 References 对象的表达式。
Reference 必需 Reference 对象。 表示将删除引用的 Reference 对象。
若要确定要删除的 Reference 对象的名称,需在“对象浏览器”中选中“工程/库”框。当前设置的所有引用名称均显示在其中。这些名称和 Reference 对象的 Name 属性值相对应。
下面的示例将从选项卡控件中删除页:
Function RemovePage() As Boolean
Dim frm As Form
Dim tbc As TabControl, pge As Page
On Error GoTo Error_RemovePage
Set frm = Forms!Form1
Set tbc = frm!TabCtl0
tbc.Pages.Remove
RemovePage = True
Exit_RemovePage:
Exit Function
Error_RemovePage:
MsgBox Err & ": " & Err.Description
RemovePage = False
Resume Exit_RemovePage
End Function
下面两个函数中的第一个函数,用于将一个对日历控件的引用添加到 References 集合中。第二个函数则删除该引用。
Function AddReference() As Boolean
Dim ref As Reference, strFile As String
On Error GoTo Error_AddReference
strFile = "C:\Windows\System\Mscal.ocx"
' Create reference to calendar control.
Set ref = References.AddFromFile(strFile)
AddReference = True
Exit_AddReference:
Exit Function
Error_AddReference:
MsgBox Err & ": " & Err.Description
AddReference = False
Resume Exit_AddReference
End Function
Function RemoveReference() As Boolean
Dim ref As Reference
On Error GoTo Error_RemoveReference
Set ref = References!MSCAL
' Remove calendar control reference.
References.Remove ref
RemoveReference = True
Exit_RemoveReference:
Exit Function
Error_RemoveReference:
MsgBox Err & ": " & Err.Description
RemoveReference = False
Resume Exit_RemoveReference
End Function