Egenskaben Indstillingsværdi

Gælder for

Hvert kontrolelement i en Indstilling for gruppe har en numerisk værdi, som du kan angive med egenskaben .Indstillingsværdi. Læs/skriv Lang.

udtryk..Indstillingsværdi

udtryk Påkrævet. Et udtryk, der returnerer et af objekterne på listen Gælder for.

Bemærkninger

Når kontrolelementet er markeret, tildeles tallet til gruppeboksen. Hvis gruppeboksen er bundet til et felt, lagres værdien af det markerede kontrolelements Indstillingsværdi-egenskab i feltet.

Eksempelvis er denne Område-gruppeboks er bundet til feltet Område i en tabel. Knappen Europa har en Indstillingsværdi-egenskabsindstilling på 1, knappen Asien har en indstilling på 2, og knappen Afrika har en indstilling på 3. Når en af disse knapper vælges, vil værdien i gruppeboksen Område være den samme som egenskabsindstillingen Indstillingsværdi for det valgte kontrolelement. I dette tilfælde, fordi gruppeboksen Område er bundet til feltet Område, er værdien af feltet i tabellen også lig med 2.

Du kan indstille egenskaben Indstillingsværdi ved hjælp af kontrolelementets egenskabsark, en makro eller VBA-kode (Visual Basic for Applications).

Medmindre du selv ændrer egenskaben Indstillingsværdi, har det første kontrolelement, du placerer i en gruppeboks, værdien 1, det andet kontrolelement har værdien 2 osv.

Egenskaben Indstillingsværdi er kun tilgængelig, når kontrolelementet er placeret inde i et gruppebokskontrolelement. Hvis et afkrydsningsfelt, en alternativknap eller til/fra-knap ikke er i en gruppeboks, har kontrolelementet ikke nogen Indstillingsværdi-egenskab. I stedet har hvert af sådanne kontrolelementer en Kontrolelementkilde-egenskab, og værdien for hvert kontrolelement er enten Sand, hvis det er valgt, eller Falsk, hvis det ikke er valgt.

Eksempel

Følgende eksempel angiver egenskaben Indstillingsværdi for tre alternativknapper i gruppeboksen "Forsendelsesmetode", når en formular åbnes. Når en alternativknap vælges i gruppeboksen, vises der en meddelelse, der angiver afsenderens tildelte id-nummer.

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