Access VBA教程:Add方法

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

使用 Add方法可以向AccessObject对象的AccessObjectProperties集合中添加作为AccessObjectProperty对象的新属性。

expression.Add(PropertyName, Value)

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

PropertyName  必需 String 型。字符串表达式,表示新属性的名称。

Value  必需 Variant 型。Variant 类型值,对应于选项设置。根据特定选项的可能设置来设置该参数。可以是常量值或字符串值。

说明

使用 AccessObjectProperties集合的Remove方法可以删除已有的属性。

应用于 FormatConditions集合对象的 Add方法。

使用 Add方法可以向组合框或文本框控件的FormatConditions集合中添加作为FormatCondition对象的条件格式。

expression.Add(Type, Operator, Expression1, Expression2)

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

Type  必需AcFormatConditionType。要添加的格式条件的类型。

AcFormatConditionType 可以是下列 AcFormatConditionType 常量之一:
acExpression
acFieldHasFocus
acFieldValue

Operator  可选AcFormatConditionOperator。如果 Type参数为 acExpression,则忽略 Operator参数。如果将该参数留空,则采用默认常量 (acBetween)。

AcFormatConditionOperator 可以是下列 AcFormatConditionOperator 常量之一:
acBetween 默认
acEqual
acGreaterThan
acGreaterThanOrEqual
acLessThan
acLessThanOrEqual
acNotBetween
acNotEqual

Expression1  可选 Variant 型。与条件格式的第一部分关联的 Variant 值或表达式。可以是常量值或字符串值。

Expression2  可选 Variant 型。当 Operator参数为 acBetween 或 acNotBetween 时,与条件格式的第二部分关联的 Variant 值或表达式(否则,忽略该参数)。可以是常量值或字符串值。

说明

使用 FormatConditions集合的Delete方法可以从组合框或者文本框控件中删除已有的 FormatConditions集合。

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

Add方法为选项卡控件的Pages集合添加一个新的Page对象。

expression.Add(Before)

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

Before  可选 Variant 型。Integer 型,用来指定 Page对象的索引,新的 Page对象将添加到该对象之前。Page对象的索引和该 Page对象的PageIndex属性值相对应。如果忽略该参数,则新的 Page对象将添加到集合的末尾。

说明

Pages集合中的第一个 Page对象对应于选项卡控件中最左边的页,索引为 0。第二个 Page对象为紧接其右边的第一页,索引为 1,选项卡控件中的所有其他 Page对象以此类推。

如果将 Before参数值指定为 0,新的 Page对象将位于 Pages集合中第一个 Page对象之前。然后新的 Page对象成为该集合中的第一个对象,其索引为 0。

只有当窗体在“设计”视图中时,才可以将 Page对象添加到选项卡控件的 Pages集合上。

示例

应用于 Pages集合对象。

下面的示例将页添加到“设计”视图中窗体上的选项卡控件中。要试用该示例,请新建包含选项卡控件 TabCtl0 的窗体 Form1。将下列代码粘贴到标准模块中,然后运行它:


Function AddPage() As Boolean
    Dim frm As Form
    Dim tbc As TabControl, pge As Page
    On Error GoTo Error_AddPage
    Set frm = Forms!Form1
    Set tbc = frm!TabCtl0
    tbc.Pages.Add
    AddPage = True
Exit_AddPage:
    Exit Function
Error_AddPage:
    MsgBox Err & ": " & Err.Description
    AddPage = False
    Resume Exit_AddPage
End Function

上页:Access VBA教程:TransferText方法 下页:Access VBA教程:AddFromString方法

Access VBA教程:Add方法

Access VBA教程:AddFromString方法 Access VBA教程:AddItem方法
Access VBA教程:AddToFavorites方法 Access VBA教程:ApplyTheme方法
Access VBA教程:BuildCriteria方法 Access VBA教程:Circle方法
Access VBA教程:CloseConnection方法 Access VBA教程:CloseCurrentDatabase方法
Access VBA教程:CodeDb方法 Access VBA教程:CompactRepair方法
Access VBA教程:ConvertAccessProject方法 Access VBA教程:CopyDatabaseFile方法
Access VBA教程:CreateAccessProject方法 Access VBA教程:CreateControl方法
Access VBA教程:CreateDataAccessPage方法 Access VBA教程:CreateEventProc方法
Access VBA教程:CreateForm方法 Access VBA教程:AddFromFile方法
Access VBA教程:AddFromGuid方法 Access VBA教程:CreateGroupLevel方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号