VaihtoehdonArvo-ominaisuus

Koskee seuraavia

Jokaisella ohjainn vaihtoehtoryhmälla on numeerinen arvo, joka voidaan asettaa VaihtoehdonArvo-ominaisuuden avulla. Pitkä, jolla on luku-/kirjoitusoikeudet.

lauseke.VaihtoehdonArvo

lauseke Pakollinen. Lauseke, joka palauttaa jonkin Koskee seuraavia -luettelon objekteista.

Huomautuksia

Kun ohjausobjekti valitaan, numero määritetään vaihtoehtoryhmään. Jos vaihtoehtoryhmä on sidottu kenttään, valitun ohjausobjektin VaihtoehdonArvo -ominaisuuden arvo tallennetaan kenttään.

Esimerkiksi tämä Alue-vaihtoehtoryhmä on sidottu taulukkokohteen Alue-kenttään. Eurooppa-painikkeen VaihtoehdonArvo-ominaisuuden arvo on 1, Aasia-painikkeen ominaisuuden arvo on 2 ja Afrikka-painikkeen 3. Kun jokin näistä painikkeista valitaan, Alue-vaihtoehtoryhmän arvo on sama kuin valitun ohjausobjektin VaihtoehdonArvo-ominaisuuden arvo. Koska tässä tapauksessa Alue-vaihtoehtoryhmä on sidottu Alue-kenttään, taulukon Alue-kentän arvo on 2.

Voit määrittää VaihtoehdonArvo-ominaisuuden ohjausobjektin ominaisuusikkunan, makron tai Visual Basic for Applications (VBA) -koodin avulla.

Jos et muuta VaihtoehdonArvo-ominaisuuden arvoa, ensimmäisen vaihtoehtoryhmään lisättävän ohjausobjektin arvo on 1, toisen ohjausobjektin arvo on 2 ja niin edelleen.

VaihtoehdonArvo-ominaisuus on käytettävissä vain, kun ohjausobjekti on sijoitettu vaihtoehtoryhmän ohjausobjektiin. Jos valintaruutu, vaihtopainike tai valintapainike ei kuulu vaihtoehtoryhmään, ohjausobjektilla ei ole VaihtoehdonArvo-ominaisuutta. Tällöin ohjausobjektilla on sen sijaan OhjausobjektinLähde-ominaisuus ja kunkin ohjausobjektin arvo on joko Tosi, jos ohjausobjekti on valittuna, tai Epätosi, jos ohjausobjekti ei ole valittuna.

Esimerkki

Seuraavassa esimerkissä asetetaan VaihtoehdonArvo-ominaisuus kolmelle valintapainikkeelle Ship Method Group -vaihtoehtoryhmässä, kun lomake avataan. Kun vaihtoehtoryhmästä valitaan valintapainike, näyttöön tulee toimittajalle määritetty tunnus.

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