Applies ToAccess pakalpojumam Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts tiek atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, tā neļauj novērtēt potenciāli nedrošas izteiksmes. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīms" sadaļā Palīdzība.

Atgriež ar operētājsistēmas vides mainīgo saistīto virkni. Nav pieejams Macintosh datorā

Sintakse

Environ( { envstring | numurs } )

Funkcijas Environ sintaksē ir šādi argumenti:

Arguments

Apraksts

envstring

Neobligāts arguments. Virknes izteiksme, kurā ir vides mainīgā nosaukums.

skaitlis

Neobligāts arguments. Skaitliska izteiksme, kas atbilst vides virknes skaitliskai secībai vides virkņu tabulā. Skaitļa arguments var būt jebkāda skaitliska izteiksme, bet pirms tā novērtēšana tiek noapaļota līdz veselam skaitlim.

Piebildes

Ja envstring nevar atrast vides virkņu tabulā, tiek atgriezta nulles garuma virkne (").. Pretējā gadījumā Environ atgriež norādītajam envstring piešķirto tekstu. t.i., teksts pēc vienādības zīmes (=) vides virkņu tabulā šim vides mainīgajam.

Ja norādāt skaitli, tiek atgriezta virkne, kas aizņemta šo skaitlisko pozīciju vides virkņu tabulā. Šajā gadījumā Environ atgriež visu tekstu, ieskaitot envstring. Ja norādītajā pozīcijā nav vides virknes, Environ atgriež nulles garuma virkni.

Piemērs

Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā izmantota funkcija Environ , lai nodrošinātu ieraksta numuru un garumu PATH no vides virkņu tabulas. Nav pieejams Macintosh datorā.

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.Indx = 1    ' Initialize index to 1.Do    ' Get environment variable.    EnvString = Environ(Indx)    ' Check PATH entry.    If Left(EnvString, 5) = "PATH=" Then        ' Get length.        PathLen = Len(Environ("PATH"))        Msg = "PATH entry = " & Indx & " and length = " _               & PathLen        Exit Do    Else        ' Not PATH entry, so increment.        Indx = Indx + 1    End IfLoop Until EnvString = ""If PathLen > 0 Then    ' Display message.    MsgBox MsgElse    MsgBox "No PATH environment variable exists."End If

Nepieciešama papildu palīdzība?

Vēlaties vairāk opciju?

Izpētiet abonementa priekšrocības, pārlūkojiet apmācības kursus, uzziniet, kā aizsargāt ierīci un veikt citas darbības.

Kopienas palīdz uzdot jautājumus un atbildēt uz tiem, sniegt atsauksmes, kā arī saņemt informāciju no ekspertiem ar bagātīgām zināšanām.