Vlastnost OptionValue

Platí pro

Každá Ovládací prvek v Skupina voleb má číselnou hodnotu, kterou můžete nastavit pomocí vlastnosti OptionValue . Typ Long pro čtení/zápis.

výraz.OptionValue

Výraz Povinný argument. Výraz, který vrátí jeden z objektů v seznamu Platí pro.

Poznámky

Při výběru ovládacího prvku se skupině voleb přiřadí číslo. Pokud je skupina voleb vázaná na nějaké pole, je hodnota vlastnosti OptionValue vybraného ovládacího prvku uložená v tomto poli.

Například tato skupina možností Oblast je vázaná na pole Oblast v Tabulka. Tlačítko Evropa má vlastnost OptionValue nastavenou na hodnotu 1, tlačítko Asie má nastavení 2 a tlačítko Afrika má nastavení 3. Při výběru jednoho z těchto tlačítek bude hodnota skupiny možností Oblast stejná jako nastavení vlastnosti OptionValue pro vybraný ovládací prvek. Protože je v tomto případě skupina možností Oblast vázána na pole Oblast, hodnota tohoto pole v tabulce se rovná také 2.

Vlastnost OptionValue můžete nastavit pomocí kódu Seznam vlastností ovládacího prvku , Makro nebo VBA (Visual Basic for Applications).

Pokud vlastnost OptionValue nezměníte sami, má první ovládací prvek, který umístíte do skupiny voleb, hodnotu 1, druhý ovládací prvek hodnotu 2, a tak dále.

Vlastnost OptionValue je dostupná jenom v případě, že je ovládací prvek umístěný uvnitř ovládacího prvku skupiny voleb. Pokud zaškrtávací políčko, přepínací tlačítko nebo přepínač není ve skupině voleb, nemá ovládací prvek vlastnost OptionValue. Místo toho má každý takový ovládací prvek vlastnost ControlSource, přičemž jeho hodnota bude buď True pokud je vybraný, nebo False pokud není vybraný.

Příklad

Následující příklad nastavuje vlastnost OptionValue tří přepínačů ve skupině voleb Ship Method Group při otevření formuláře. Při výběru některého přepínače v této skupině voleb se zobrazí zpráva, která označuje přiřazené identifikační číslo dopravce.

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