Access VBA教程:Remove方法

该主题中的某些内容可能不适用于某些语言。

应用于 AccessObjectProperties集合对象的 Remove方法。

使用 Remove方法可以从AccessObject对象的AccessObjectProperties集合中删除AccessObjectProperty对象。

expression.Remove(Item)

expression   必需。返回一个AccessObjectProperties 集合对象的表达式。

Item  必需 Variant 型。表达式,指定对象参数引用的集合成员的位置。如果是数值表达式,则索引参数的范围必须是从 0 到集合的Count属性值减 1 的数值。如果是字符串表达式,则索引参数必须是集合成员的名称。

应用于 Pages集合对象的 Remove方法。

Remove方法可从选项卡控件的Pages集合中删除Page对象。

expression.Remove(Item)

expression   必需。返回一个Pages集合对象的表达式。

Item  可选 Variant 型。整型值,指定要被删除的 Page对象的索引。Page对象的索引和它的PageIndex属性值相对应。如果忽略该参数,则删除集合中最后的一个 Page对象。

说明

Pages集合的索引从零开始。在选项卡控件中最左边页的索引为 0,紧接其右边的页,索引为 1,以此类推。

仅当窗体在“设计”视图中时,才可以从选项卡控件的 Pages集合中删除 Page对象。

应用于 References集合对象的 Remove方法。

Remove方法从References集合中删除Reference对象。

expression.Remove(Reference)

expression   必需。返回一个References对象的表达式。

Reference  必需 Reference对象。 表示将删除引用的 Reference对象。

说明

若要确定要删除的 Reference对象的名称,需在“对象浏览器”中选中“工程/库”框。当前设置的所有引用名称均显示在其中。这些名称和 Reference对象的Name属性值相对应。

示例

应用于 Pages 对象。

下面的示例将从选项卡控件中删除页:


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对象。

下面两个函数中的第一个函数,用于将一个对日历控件的引用添加到 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

上页:Access VBA教程:DefaultWorkspaceClone方法 下页:Access VBA教程:RemoveItem方法

Access VBA教程:Remove方法

Access VBA教程:RemoveItem方法 Access VBA教程:Repaint方法
Access VBA教程:ReplaceLine方法 Access VBA教程:Requery方法
Access VBA教程:Run方法 Access VBA教程:RunCommand方法
Access VBA教程:Scale方法 Access VBA教程:导出报表快照 (Snapshot Viewer)
Access VBA教程:SetDefaultWorkgroupFile方法 Access VBA教程:SetFocus方法
Access VBA教程:SetHiddenAttribute方法 Access VBA教程:SetOption方法
Access VBA教程:SizeToFit方法 Access VBA教程:StringFromGUID方法
Access VBA教程:SysCmd方法 Access VBA教程:TextHeight方法
Access VBA教程:TextWidth方法 Access VBA教程:TransferSQLDatabase方法
Access VBA教程:Undo方法 Access VBA教程:UseDefaultFolderSuffix方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号