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 集合。
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 集合上。
应用于 AdditionalData 对象的 Add 方法。
添加在调用 ExportXML 方法时将包括的额外表或查询。返回 AdditionalData。
expression.Add(var)
expression 必需。返回 AdditionalData 对象的表达式。
var 必需String 型。要添加的表或查询的名称。
应用于 SmartTagProperties 对象的 Add 方法。
向智能标记添加自定属性。返回 SmartTagProperty。
expression.Add(Name, Value)
expression 必需。返回 SmartTagProperties 对象的表达式。
Name 必需 String 型。用于自定义属性的名称。
Value 必需 Variant 型。自定义属性的名称。
向窗体、控件或数据访问页添加智能标记。返回 SmartTag。
expression.Add(Name)
expression 必需。返回一个 SmartTags 集合的表达式。
Name 必需 String 型。要添加的智能标记的名称。
示例
下面的示例将页添加到“设计”视图中窗体上的选项卡控件中。要试用该示例，请新建包含选项卡控件 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