Applies ToMicrosoft 365 için Access Access 2024 Access 2021 Access 2019 Access 2016

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 olabilecek 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 | sayı } )

Environ işlevinin söz diziminde şu bağımsız değişkenler bulunur:

Bağımsız değişken

Açıklama

envstring

İsteğe bağlı. Ortam değişkeninin adını içeren dize ifadesi.

sayı

İ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 yuvarlanabilir.

Notlar

Ortam dizesi tablosunda envstring bulunamıyorsa, sıfır uzunluklu bir dize ("") döndürülür. Aksi takdirde, Environ belirtilen envstring'e atanan metni döndürür; diğer bir ifadeyle, bu ortam değişkeni için ortam dizesi tablosunda eşittir işaretini (=) izleyen metindir.

Sayı belirtirseniz, ortam dizesi tablosunda bu sayısal konumu kaplayan dize döndürülür. Bu durumda Environ , envstring de dahil olmak üzere metnin tamamını döndürür. Belirtilen konumda ortam dizesi yoksa, Environ sıfır uzunluklu 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, ortam dizesi tablosundan PATH deyiminin giriş numarasını ve uzunluğunu sağlamak için Environ işlevini kullanır. Macintosh'ta kullanılamaz.

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

Daha fazla yardıma mı ihtiyacınız var?

Daha fazla seçenek mi istiyorsunuz?

Abonelik avantajlarını keşfedin, eğitim kurslarına göz atın, cihazınızın güvenliğini nasıl sağlayacağınızı öğrenin ve daha fazlasını yapın.

Topluluklar, soru sormanıza ve soruları yanıtlamanıza, geri bildirimde bulunmanıza ve zengin bilgiye sahip uzmanlardan bilgi almanıza yardımcı olur.