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

Obs!: Funksjonen, metoden, objektet eller egenskapen som beskrives i dette emnet, er deaktivert hvis Microsoft Jet Expression Service kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i Hjelp.

Returnerer strengen som er knyttet til en miljøvariabel for operativsystemet. Ikke tilgjengelig på Macintosh

Syntaks

Environ( { envstring | number } )

Syntaksen for funksjonen Miljø har følgende argumenter:

Argument

Beskrivelse

envstring

Valgfritt. Strenguttrykk som inneholder navnet på en miljøvariabel.

tall

Valgfritt. Numerisk uttrykk som tilsvarer den numeriske rekkefølgen til miljøstrengen i miljøstrengtabellen. Tallargumentet kan være et hvilket som helst numerisk uttrykk, men avrundes til et heltall før det evalueres.

Kommentarer

Hvis envstring ikke finnes i miljøstrengtabellen, returneres en tom streng ("") . Ellers returnerer Environ teksten som er tilordnet den angitte envstringen. det vil se ut som teksten som følger likhetstegnet (=) i miljøstrengtabellen for denne miljøvariabelen.

Hvis du angir tall, returneres strengen som opptar den numeriske posisjonen i miljøstrengtabellen. I dette tilfellet returnerer Environ all teksten, inkludert envstring. Hvis det ikke finnes noen miljøstreng i den angitte posisjonen, returnerer Environ en tom streng.

Eksempel

Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.

Dette eksemplet bruker Environ-funksjonen til å angi oppføringsnummeret og lengden på PATH -setningen fra miljøstrengtabellen. Ikke tilgjengelig på 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

Trenger du mer hjelp?

Vil du ha flere alternativer?

Utforsk abonnementsfordeler, bla gjennom opplæringskurs, finn ut hvordan du sikrer enheten og mer.

Fellesskap hjelper deg med å stille og svare på spørsmål, gi tilbakemelding og høre fra eksperter med stor kunnskap.