Funcția Environ

Se aplică la
Access pentru Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Notă

Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă Microsoft Jet Expression Service rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în Ajutor.

Returnează șirul asociat cu o variabilă de mediu a sistemului de operare. Nu este disponibilă pe Macintosh

Sintaxă

Environ( { envstring | number } )

Sintaxa funcției Environ are următoarele argumente:

Argument Descriere
envstring Opțional. Expresie șir care conține numele unei variabile de mediu.
număr Opțional. Expresie numerică corespunzătoare ordinii numerice a șirului de mediu din tabelul șir de mediu. Argumentul număr poate fi orice expresie numerică, dar este rotunjit la un număr întreg înainte de a fi evaluat.

    

Observații

Dacă envstring nu poate fi găsit în tabelul șir de mediu, se returnează un șir de lungime zero (""). În caz contrar, Environ returnează textul atribuit firului de mediu specificat; Aceasta înseamnă textul care urmează după semnul egal (=) în tabelul șir de mediu pentru variabila de mediu.

Dacă specificați număr, se returnează șirul care ocupă acea poziție numerică în tabelul șir de mediu. În acest caz, Environ returnează tot textul, inclusiv envstring. Dacă nu există niciun șir de mediu în poziția specificată, Environ returnează un șir de lungime zero.

Exemplu

Notă

Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.

Acest exemplu utilizează funcția Environ pentru a furniza numărul de intrare și lungimea instrucțiunii PATH din tabelul șir de mediu. Nu este disponibilă pe 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 If
Loop Until EnvString = ""
If PathLen > 0 Then
    ' Display message.
    MsgBox Msg
Else
    MsgBox "No PATH environment variable exists."
End If