Svojstvo OptionValue

Odnosi se na

Svaka kontrola u grupa mogućnosti sadrži numeričku vrijednost koju možete postaviti pomoću svojstva OptionValue . To je svojstvo vrste Long za čitanje/pisanje.

expression.OptionValue

expression Obavezno. Izraz koji vraća jedan od objekata na popisu Primjenjuje se na.

Napomene

Kada je kontrola odabrana, broj je dodijeljen grupi mogućnosti. Ako je grupa mogućnosti povezana s poljem, vrijednost svojstva OptionValue odabrane mogućnosti pohranjena je u polju.

Ova grupa mogućnosti Regija , primjerice, povezana je s poljem Regija u tablica. Gumb Europa ima postavku svojstva OptionValue od 1, gumb Azija ima postavku 2, a gumb Afrika ima postavku 3. Kada je jedan od tih gumba odabran, vrijednost grupe mogućnosti Regija bit će ista kao i postavka svojstva OptionValue za odabranu kontrolu. U tom slučaju, budući da je grupa mogućnosti Regija povezana s poljem Regija, vrijednost ovog polja u tablici također je jednaka 2.

Svojstvo OptionValue možete postaviti pomoću koda kontrole list svojstava, makronaredba ili Visual Basic for Applications (VBA).

Prva kontrola koju smjestite u grupu mogućnosti ima vrijednost 1, druga vrijednost 2 i tako redom, osim ako sami ne promijenite svojstvo OptionValue.

Svojstvo OptionValuedostupno je samo kada je kontrola smještena unutar kontrole grupe mogućnosti. Kada potvrdni okvir, preklopni gumb ili gumb mogućnosti nisu smješteni u grupi mogućnosti, kontrola ne sadrži svojstvo OptionValue. Umjesto njega, svaka takva kontrola sadrži svojstvo ControlSource, a vrijednosti svake kontrole bit će True ako je odabrana ili False ako nije.

Primjer

Sljedeći primjer postavlja svojstvo OptionValue za tri gumba mogućnosti u grupi mogućnosti "Grupa načina otpreme" kada se obrazac otvori. Kada je gumb mogućnosti odabran, prikazuje se poruka sa zadanim brojem ID-a otpremnika.

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