นำไปใช้กับ
วัตถุ CheckBox |
วัตถุ OptionButton |
วัตถุ ToggleButton |
แต่ละ ตัวควบคุม ใน กลุ่มตัวเลือก มีค่าตัวเลขที่คุณสามารถตั้งค่าด้วยคุณสมบัติ OptionValue อ่าน/เขียน แบบยาว
นิพจน์.OptionValue
นิพจน์ จำเป็น นิพจน์ที่ส่งกลับวัตถุใดวัตถุหนึ่งในรายการ นําไปใช้กับ
ข้อสังเกต
เมื่อตัวควบคุมถูกเลือก ตัวเลขจะถูกกําหนดให้กับกลุ่มตัวเลือก ถ้ากลุ่มตัวเลือกถูกผูกไว้กับเขตข้อมูล ค่าของคุณสมบัติ OptionValue ของตัวควบคุมที่เลือกจะถูกจัดเก็บไว้ในเขตข้อมูล
ตัวอย่างเช่น กลุ่มตัวเลือก ภูมิภาค นี้ผูกกับเขตข้อมูล ภูมิภาค ใน ตาราง ปุ่ม ยุโรป มีการตั้งค่าคุณสมบัติ OptionValue 1 ปุ่ม เอเชีย มีการตั้งค่าเป็น 2 และปุ่ม แอฟริกา มีการตั้งค่าเป็น 3 เมื่อเลือกปุ่มใดปุ่มหนึ่งเหล่านี้ ค่ากลุ่มตัวเลือก ภูมิภาค จะเหมือนกับการตั้งค่าคุณสมบัติ OptionValue สําหรับตัวควบคุมที่เลือก ในกรณีนี้ เนื่องจากกลุ่มตัวเลือก ภูมิภาค ถูกผูกไว้กับเขตข้อมูล ภูมิภาค ค่าของเขตข้อมูลนี้ในตารางจึงเท่ากับ 2 ด้วย
หมายเหตุ: คุณสมบัติ OptionValue นำไปใช้เฉพาะกับตัวควบคุม กล่องกาเครื่องหมาย, ปุ่มตัวเลือก และ ปุ่มสลับ ในกลุ่มตัวเลือก
คุณสามารถตั้งค่าคุณสมบัติ OptionValue โดยใช้ แผ่นคุณสมบัติ ของตัวควบคุม, แมโคร หรือรหัส Visual Basic for Applications (VBA)
เว้นแต่คุณเปลี่ยนแปลงคุณสมบัติ OptionValue ด้วยตนเอง ตัวควบคุมแรกที่คุณวางในกลุ่มตัวเลือกมีค่าของ 1 ตัวควบคุมที่สองมีค่าของ 2 และอื่นๆ
คุณสมบัติ OptionValue จะพร้อมใช้งานเมื่อตัวควบคุมถูกวางภายในตัวควบคุมกลุ่มตัวเลือกเท่านั้น เมื่อกล่องกาเครื่องหมาย ปุ่มสลับ หรือปุ่มตัวเลือกไม่ได้อยู่ในกลุ่มตัวเลือก ตัวควบคุมจะไม่มีคุณสมบัติ OptionValue แต่ตัวควบคุมดังกล่าวแต่ละตัวมีคุณสมบัติ ControlSource และค่าของแต่ละตัวควบคุมจะเป็น จริง ถ้าเลือก หรือ เท็จ ถ้าไม่ได้เลือกไว้
ตัวอย่าง
ตัวอย่างต่อไปนี้ตั้งค่าคุณสมบัติ OptionValue สําหรับปุ่มตัวเลือกสามปุ่มในกลุ่มตัวเลือก "กลุ่มวิธีการจัดส่ง" เมื่อเปิดฟอร์ม เมื่อมีการเลือกปุ่มตัวเลือกในกลุ่มตัวเลือก จะมีข้อความแสดงหมายเลขรหัสที่กําหนดของผู้จัดส่ง
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