Funkcija Environ

Taikoma
„Access“, skirta „Microsoft 365“ „Access 2024“ Access 2021 Access 2019 Access 2016

Pastaba

Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė išjungiama, jei "„Microsoft“ Jet" reiškinių tarnyba veikia smėlio dėžės režimu, kuris neleidžia įvertinti potencialiai nesaugių reiškinių. Daugiau informacijos apie smėlio dėžės režimą ieškokite žinyne "smėlio dėžės režimas".

Grąžina eilutę , susietą su operacinės sistemos aplinkos kintamuoju. Nėra "Macintosh"

Sintaksė

Environ( { envstring | number } )

Funkcijos Environ sintaksę sudaro šie argumentai:

Argumentas Aprašymas
envstring Pasirinktinis. Eilutės išraiška, kurioje yra aplinkos kintamojo pavadinimas.
skaičius Pasirinktinis. Skaitinis reiškinys, atitinkantis aplinkos eilutės lentelėje esančios aplinkos eilutės skaitinę tvarką. Skaičiaus argumentas gali būti bet koks skaitinis reiškinys, bet prieš jį įvertinant jis suapvalinamas iki sveikojo skaičiaus.

    

Pastabos

Jei aplinkos eilutės lentelėje envstring nerandama, pateikiama nulinio ilgio eilutė (""). Kitu atveju "Environ" grąžina nurodytai "envstring" priskirtą tekstą; t. y. tekstas po lygybės ženklo (=) aplinkos kintamojo eilutės lentelėje.

Jei nurodysite skaičių, bus grąžinta eilutė, užimanti tą skaitinę poziciją aplinkos eilutės lentelėje. Šiuo atveju "Environ" pateikia visą tekstą, įskaitant "envstring". Jei nurodytoje padėtyje nėra aplinkos eilutės, Environ grąžina nulinio ilgio eilutę.

Pavyzdys

Pastaba

Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Šiame pavyzdyje naudojama funkcija Environ tiekti įrašo numerį ir sakinio PATH ilgį iš lentelės environment-string. Negalima naudoti "Macintosh".

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 If
Loop Until EnvString = ""
If PathLen > 0 Then
    ' Display message.
    MsgBox Msg
Else
    MsgBox "No PATH environment variable exists."
End If