Value 属性
内容
使用 Value 属性可以确定或指定一个控件是否已被选定，还可确定或指定控件中的选定值或选项，文本框控件中所含的文本，或自定义的属性值。
| ? | 复选框、选项按钮和切换按钮控件。确定或指定控件是否被选定。 |
| ? | 组合框、列表框和选项组控件。确定或指定控件中选定的值或选项。 |
| ? | 文本框控件。确定或指定文本框中的文本。 |
| ? | 选项卡控件。确定或指定选定的 Page 对象。 |
| ? | 内置属性。确定或指定一个 AccessObject 对象的内置属性值。 |
expression.Value
expression 必需。返回“应用于”列表中的一个对象的表达式。
说明
Value 属性根据指定的控件使用以下设置：
控件 |
设置 |
说明 |
Visual Basic |
复选框 |
True False |
选中复选框。 （默认设置）清除复选框。 |
True False |
[控件的文本框部分中的文本] |
这可以与控件的 Text 属性设置相同，也可以不同。Text 属性的当前设置是显示在组合框的文本框部分的内容，只有在保存该文本以后，Value 属性才设为 Text 属性值。 |
||
列表框 |
[列表框的项目值] |
列表中选定项的绑定列中的值。 |
|
选项按钮 |
True False |
选定选项按钮。 （默认设置）未选定选项按钮。 |
True False |
[OptionValue 属性设置] |
组中选定控件的 OptionValue 属性设置。 |
||
文本框 |
[控件的 Text 属性值] |
Text 属性返回带有格式的字符串。对于文本框控件，Text 属性和 Value 属性可以不相同。Text 属性是控件的当前内容。Value 属性则是文本框控件的已保存值。当控件获得焦点时，Text 属性始终是当前显示的值。 |
|
切换按钮 |
True False |
按下了切换按钮。 未按下切换按钮。 |
True False |
选项卡控件 |
[Integer 值，代表当前选定 Page 对象的索引号] |
选项卡控件的 Value 属性包含当前 Page 对象的索引号。选项卡控件中的每个选项卡都有一个 Page 对象。第一个 Page 对象的索引号总为 0，第二个的索引号为 1，依此类推。 |
|
绑定对象框或图表控件 |
绑定对象框或绑定图表控件的 Value 属性被设置为控件所绑定到的字段的值。因为这些字段通常包含以二进制数据存储的 OLE 对象或图表对象，所以这个值一般没有意义。 |
||
ActiveX 控件 |
有些 ActiveX 控件支持 Value 属性。例如，“日历”控件的 Value 属性设置为控件中当前选定的日期。有关详细信息，请参阅各个 ActiveX 控件的文档。 |
||
自定义属性 |
自定义属性的 Value 属性包含指定的 AccessObject 对象的自定义属性的值。有关自定义属性的详细信息，请参阅有关 AccessObject 对象、AccessObjectProperty 对象和 AccessObjectProperties 集合的主题。 |
注释 可以使用宏或 Visual Basic 对该属性进行设置。
| ? | Value 属性返回或设置控件的默认属性，默认属性是指没有明确指定属性名称时所采用的属性。在下面的示例中，因为文本框的默认值就是 Text 属性值，所以可以引用 Text 属性设置，而无须明确地指定属性名称。 |
Forms!frmCustomers!txtLastName = "Smith"
这意味着下面两个语句是等价的。
Forms!frmCustomers!optCreditApproved.Value = True
Forms!frmCustomers!optCreditApproved = True
注释 Value 属性与 DefaultValue 属性不同，后者指定当创建一个新记录时分配的属性值。
| ? | 另外，Value 属性还可以返回或设置自定义属性的默认属性，默认属性是在未明确指定属性名称时所采用的属性。这意味着下面两个语句是等价的。 |
CurrentProject.AllForms!optCreditApproved.Value = True
CurrentProject.AllForms!optCreditApproved = True
示例
下面的示例显示根据“Customers”窗体上的“Credit”复选框的选中或清除状态，选择调用两个过程中的一个。
Sub PaymentType()
If Forms!Customers!Credit.Value = False Then
ProcessCash
ElseIf Forms!Customers!Credit.Value = True Then
ProcessCredit
End If
End Sub