Access VBA教程:OptionValue属性

选项组中的每个控件都有一个可以用 OptionValue属性设置的数字值。Long 型,可读写。

expression.OptionValue

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

选择控件时,会将相应的数字赋给选项组。如果选项组是绑定到某字段的,所选控件的 OptionValue属性值就存储在该字段中。

例如,“地区”选项组是绑定到表中的“地区”字段的,“欧洲”按钮的 OptionValue属性设为 1,“亚洲”按钮的 OptionValue属性设为 2,“非洲”按钮的 OptionValue属性设为 3。选定其中某个按钮时,“地区”选项组的值将和选定控件的 OptionValue属性设置相同。在这种情况下,由于“地区”选项组是绑定到“地区”字段的,所以表中该字段的值也等于 2。

注意   OptionValue属性仅应用于选项组中的复选框、选项按钮和切换按钮控件。

通过使用控件的属性表或者Visual Basic 可以对控件的 OptionValue属性进行设置。

除非对 OptionValue属性进行修改,否则添加到选项组中的第一个控件的 OptionValue属性值为 1,第二个控件的 OptionValue属性值为 2,依此类推。

OptionValue属性仅在控件放入选项组控件时才可用。如果某个复选框、切换按钮或选项按钮未放在选项组中,该控件就没有 OptionValue属性。而每个这种控件都有ControlSource属性,当控件被选定时,该属性值为 True,如果未选定控件,则该属性值为 False。

VBA示例

下面的示例在窗体打开时对“运货方法组”选项组中三个选项按钮的 OptionValue属性进行设置。当选中选项组中的某个选项按钮时,就会显示一条消息,表明运货商的指定 ID 号。


Private Sub Form_Open(Cancel As Integer)
    Me.Controls("ABC Couriers").OptionValue = 15876
    Me.Controls("Speedy Delivery").OptionValue = 742
    Me.Controls("Lightning Express").OptionValue = 1256
End Sub
Private Sub Ship_Method_Group_Click()
    MsgBox "The ID for the selected shipper is " &
 Me.Controls("Ship Method Group").Value
End Sub

上页:Access VBA教程:Operator属性 下页:Access VBA教程:OrderBy属性

Access VBA教程:OptionValue属性

Access VBA教程:OrderBy属性 Access VBA教程:OrderByOn属性
Access VBA教程:OrganizeInFolder属性 Access VBA教程:Orientation属性
Access VBA教程:OutputAllFields属性 Access VBA教程:Page属性
Access VBA教程:PageCount属性(快照查看器) Access VBA教程:PageFooter属性
Access VBA教程:PageHeader属性 Access VBA教程:PageIndex属性
Access VBA教程:Pages属性 Access VBA教程:Painting属性
Access VBA教程:PaintPalette属性 Access VBA教程:PaletteSource属性
Access VBA教程:PaperBin属性 Access VBA教程:PaperSize属性
Access VBA教程:Parent属性 Access VBA教程:Path属性
Access VBA教程:Picture属性 Access VBA教程:PictureAlignment属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号