Rakenduskoht
|
Objekt CheckBox |
|
Objekt OptionButton |
|
Objekt ToggleButton |
Iga juhtelementsuvandirühm as on arvulise väärtusega, mille saab määrata atribuudis OptionValue. Loetav/kirjutatav pikk täisarv.
avaldis.OptionValue
avaldis Nõutav. Avaldis, mis tagastab loendi Rakenduskoht objekti.
Kommentaarid
Kui valitakse juhtelement, omistatakse suvandirühmale number. Kui suvandirühm on seotud väljaga, salvestatakse väljale valitud juhtelemendi atribuudi OptionValue väärtus.
Näiteks suvandirühm Piirkond on seotud tabeliväljaga Piirkondtabel. Nupu Euroopa atribuudi OptionValue säte on 1, nupu Aasia puhul on see väärtus 2, ja nupu Aafrika puhul 3. Kui valitakse üks neist nuppudest, muutub suvandirühma Piirkond väärtus samaks nagu valitud juhtelemendi atribuudi OptionValue väärtus. Kuna suvandirühm Piirkond on seotud väljaga Piirkond, siis on selle tabelivälja väärtus samuti 2.
Märkus.: Atribuut OptionValue kehtib ainult suvandirühma juhtelementidele märkeruut, raadionupp ja tumblernupp.
Atribuudi OptionValue määramiseks saate kasutada juhtelemendi atribuudilehte, a makrot või Visual Basic for Applicationsi (VBA) koodi.
Kui te atribuuti OptionValue ei muuda, siis esimesel suvandirühma paigutatud juhtelemendil on väärtus 1, teisel 2 jne.
Atribuut OptionValue on saadaval ainult siis, kui juhtelement on paigutatud suvandirühma juhtelementi. Kui märkeruut, tumblernupp või valikunupp pole suvandirühmas, siis pole neil ka atribuuti OptionValue. Igal sellisel juhtelemendil on atribuut ControlSource ja iga juhtelemendi väärtus on kas True (kui see on valitud) või False (kui see pole valitud).
Näide.
Järgmises näites määratakse vormi avamisel suvandirühma „Tarneviisi rühm“ kolme valikunupu jaoks atribuudi OptionValue väärtus. Kui valikunupp on suvandirühmas valitud, kuvatakse teade vastava tarnija ID-ga.
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
