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

Bemærk!: Funktionen, metoden, objektet eller egenskaben, der er beskrevet i dette emne, deaktiveres, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evalueringen af potentielt usikre udtryk. Søg efter "sandkassetilstand" i Hjælp, hvis du vil have mere at vide om sandkassetilstand.

Returnerer strengen , der er knyttet til en miljøvariabel for operativsystemet. Ikke tilgængelig på Macintosh

Syntaks

Environ( { envstring | number } )

Syntaksen for funktionen Omegn har disse argumenter:

Argument

Beskrivelse

envstring

Valgfrit. Strengudtryk, der indeholder navnet på en miljøvariabel.

number

Valgfrit. Numerisk udtryk, der svarer til den numeriske rækkefølge af miljøstrengen i miljøstrengtabellen. Talargumentet kan være et hvilket som helst numerisk udtryk, men afrundes til et helt tal, før det evalueres.

Bemærkninger

Hvis envstring ikke kan findes i tabellen med miljøstrenge, returneres en streng af længden nul (""). Ellers returnerer Miljø den tekst, der er tildelt den angivne envstring. dvs. teksten efter lighedstegnet (=) i miljøstrengtabellen for den pågældende miljøvariabel.

Hvis du angiver tal, returneres den streng, der indtager den numeriske position i miljøstrengtabellen. I dette tilfælde returnerer Environ al teksten, herunder envstring. Hvis der ikke er nogen miljøstreng i den angivne position, returnerer Environment en streng af længden nul.

Eksempel

Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.

I dette eksempel bruges funktionen Environment til at angive postnummeret og længden af PATH -sætningen fra miljøstrengtabellen. Ikke tilgængelig 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

Har du brug for mere hjælp?

Vil du have flere indstillinger?

Udforsk abonnementsfordele, gennemse kurser, få mere at vide om, hvordan du sikrer din enhed og meget mere.

Communities hjælper dig med at stille og besvare spørgsmål, give feedback og høre fra eksperter med omfattende viden.