הערה
הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם Microsoft Jet Expression Service פועל במצב ארגז חול (Sandbox), דבר שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש "מצב ארגז חול" בעזרה.
הפונקציה מחזירה את המחרוזת המשויכת למשתנה סביבה של מערכת ההפעלה. לא זמין במחשב Macintosh
תחביר
Environ( { envstring | number } )
תחביר הפונקציה Environ מכיל את הארגומנטים הבאים:
| ארגומנט | תיאור |
|---|---|
| envstring | אופציונלי. ביטוי מחרוזת המכיל את השם של משתנה סביבה. |
| מספר | אופציונלי. ביטוי מספרי המתאים לסדר המספרי של מחרוזת הסביבה בטבלת מחרוזת הסביבה. הארגומנט number יכול להיות כל ביטוי מספרי, אך הוא מעוגל למספר שלם לפני שהוא מוערך. |
הערות
אם לא ניתן למצוא את envstring בטבלת מחרוזת הסביבה, מוחזרת מחרוזת באורך אפס (""). אחרת, Environ מחזירה את הטקסט המוקצה למחרוזת הסביבתית שצוינה; כלומר, הטקסט שמופיע אחרי סימן השוויון (=) בטבלת מחרוזת הסביבה עבור משתנה סביבה זה.
אם תציין number, תוחזר המחרוזת שממלאת מיקום מספרי זה בטבלת מחרוזת הסביבה. במקרה זה, Environ מחזירה את כל הטקסט, כולל envstring. אם אין מחרוזת סביבה במיקום שצוין, Environ מחזירה מחרוזת באורך אפס.
דוגמה
הערה
הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
דוגמה זו משתמשת בפונקציה Environ כדי לספק את מספר ההזנה PATH ואת האורך של המשפט מטבלת מחרוזות הסביבה. לא זמין במחשב 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