Applies ToAccess för Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Obs!: Funktionen, metoden, objektet eller egenskapen som beskrivs i det här avsnittet inaktiveras om Microsoft Jet Expression Service körs i begränsat läge, vilket förhindrar utvärderingen av potentiellt osäkra uttryck. Om du vill ha mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.

Returnerar strängen som är associerad med en variabel i operativsystemets miljö. Inte tillgängligt på Macintosh

Syntax

Miljö( { envstring | number } )

Syntaxen för funktionen Miljö har följande argument:

Argument

Beskrivning

envstring

Valfritt. Stränguttryck som innehåller namnet på en miljövariabel.

tal

Valfritt. Numeriskt uttryck som motsvarar den numeriska ordningen för miljösträngen i tabellen med miljösträngar. Argumentet tal kan vara valfritt numeriskt uttryck, men avrundas till ett heltal innan det utvärderas.

Kommentarer

Om envstring inte kan hittas i miljösträngtabellen returneras en nollängdssträng (""). Annars returnerar Miljö den text som tilldelats angiven invstring. d.v.s. texten efter likhetstecknet (=) i miljösträngtabellen för den miljövariabeln.

Om du anger tal returneras strängen som upptar den numeriska positionen i tabellen med miljösträngar. I det här fallet returnerar Environ all text, inklusive envstring. Om det inte finns någon miljösträng på den angivna positionen returnerar Environ en nollängdssträng.

Exempel

Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.

I det här exemplet används funktionen Miljö för att ange postnumret och längden på PATH -uttrycket från miljösträngtabellen. Inte tillgängligt på Mac-datorer.

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

Behöver du mer hjälp?

Vill du ha fler alternativ?

Utforska prenumerationsförmåner, bläddra bland utbildningskurser, lär dig hur du skyddar din enhet med mera.

Communities hjälper dig att ställa och svara på frågor, ge feedback och få råd från experter med rika kunskaper.