Not
Microsoft Jet İfade Hizmeti korumalı alan modunda çalışıyorsa, bu konuda açıklanan işlev, yöntem, nesne veya özellik devre dışı bırakılır ve bu da güvenli olmayabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için, Yardım'da "korumalı alan modu" araması yapın.
Bir işletim sistemi ortam değişkeniyle ilişkili dizeyi döndürür. Macintosh'ta kullanılamaz
Söz dizimi
Environ( { envstring | numarası } )
Environ işlevinin söz diziminde aşağıdaki bağımsız değişkenler vardır:
| Bağımsız değişken | Açıklama |
|---|---|
| envstring dizesi | İsteğe bağlı. Bir ortam değişkeninin adını içeren dize ifadesi. |
| Numara | İsteğe bağlı. Ortam dizesi tablosundaki ortam dizesinin sayısal sırasına karşılık gelen sayısal ifade. Sayı bağımsız değişkeni herhangi bir sayısal ifade olabilir, ancak değerlendirilmeden önce bir tamsayıya yuvarlanır. |
Açıklamalar
envstring ortam dizesi tablosunda bulunamazsa, sıfır uzunluklu bir dize ("") döndürülür. Aksi takdirde, Environ belirtilen envstring'e atanan metni döndürür; başka bir deyişle, bu ortam değişkeninin ortam dizesi tablosunda eşittir işaretinden (=) sonra gelen metin.
Sayı belirtirseniz, ortam dizesi tablosunda bu sayısal konumu işgal eden dize döndürülür. Bu durumda, Environ , envstring de dahil olmak üzere tüm metni döndürür. Belirtilen konumda ortam dizesi yoksa, Environ sıfır uzunlukta bir dize döndürür.
Örnek
Not
Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.
Bu örnek, environment-string tablosundan ifadenin PATH giriş numarasını ve uzunluğunu sağlamak için Environ işlevini kullanır. Macintosh'ta mevcut değildir.
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