Funktionen Miljö

Gäller för
Access 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 | tal } )

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

Argument Beskrivning
envstring Valfritt. Stränguttryck som innehåller namnet på en miljövariabel.
Nummer 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 PATH på 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 If
Loop Until EnvString = ""
If PathLen > 0 Then
    ' Display message.
    MsgBox Msg
Else
    MsgBox "No PATH environment variable exists."
End If