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

Poznámka: Funkce, metoda, objekt nebo vlastnost popsaná v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu sandboxu, což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu sandboxu najdete v nápovědě pro "režim sandboxu".

Vrátí řetězec přidružený k proměnné prostředí operačního systému. Není k dispozici v systému Macintosh

Syntaxe

Environ( { envstring | number } )

Syntaxe funkce Environ má tyto argumenty:

Argument

Popis

envstring

Nepovinný argument. Řetězcový výraz obsahující název proměnné prostředí.

Číslo:

Nepovinný argument. Číselný výraz odpovídající číselnému pořadí řetězce prostředí v tabulce řetězců prostředí. Argumentem číslo může být libovolný číselný výraz, ale před vyhodnocením se zaokrouhlí na celé číslo.

Poznámky

Pokud v tabulce řetězců prostředí nenajdete envstring , vrátí se řetězec nulové délky (""). V opačném případě environ vrátí text přiřazený k zadanému envstring; to znamená text následující za znaménkem rovná se (=) v tabulce řetězců prostředí pro danou proměnnou prostředí.

Pokud zadáte číslo, vrátí se řetězec zabírající tuto číselnou pozici v tabulce řetězců prostředí. V tomto případě environ vrátí veškerý text, včetně envstringu. Pokud na zadané pozici není žádný řetězec prostředí, vrátí funkce Environ řetězec nulové délky.

Příklad

Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.

Tento příklad používá funkci Environ k zadání čísla položky a délky příkazu PATH z tabulky řetězců prostředí. Není k dispozici v systému 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 IfLoop Until EnvString = ""If PathLen > 0 Then    ' Display message.    MsgBox MsgElse    MsgBox "No PATH environment variable exists."End If

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.