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

Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".

Vraća niz povezan s varijablom okruženja operacijskog sustava. Nije dostupno na Macintosh

Sintaksa

Environ( { envstring | broj } )

Sintaksa funkcije Environ sadrži ove argumente:

Argument

Opis

envstring

Neobavezno. Nizovni izraz koji sadrži naziv varijable okruženja.

broj

Neobavezno. Brojčani izraz koji odgovara brojčanom redoslijedu niza okruženja u tablici niza okruženja. Brojčani argument može biti bilo koji brojčani izraz, ali se zaokružuje na cijeli broj prije nego što se vrednuje.

Napomene

Ako se envstring ne može pronaći u tablici niza okruženja, vraća se niz nulte duljine (""). U suprotnom , Environ vraća tekst dodijeljen navedenom envstringu; to jest, tekst koji slijedi znak jednakosti (=) u tablici niza okruženja za tu varijablu okruženja.

Ako navedete broj, vraća se niz koji zauzima taj brojčani položaj u tablici niza okruženja. U ovom slučaju , Environ vraća sav tekst, uključujući envstring. Ako na navedenom položaju nema niza okruženja, Environ vraća niz nulte duljine.

Primjer

Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

U ovom se primjeru funkcija Environ koristi za unos broja i duljine naredbe PATH iz tablice niza okruženja. Nije dostupno na 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

Potrebna vam je dodatna pomoć?

Želite dodatne mogućnosti?

Istražite pogodnosti pretplate, pregledajte tečajeve za obuku, saznajte kako zaštititi uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na njih, pošaljete povratne informacije i čujete se sa stručnjacima s bogatim znanjem.