Applies ToAccess за Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата microsoft Jet Expression се изпълнява в ограничителен режим, което предотвратява оценяването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.

Връща низа , асоцииран с променлива на средата на операционната система. Не е налично на Macintosh

Синтаксис

Environ( { envstring | число } )

Синтаксисът на функцията Environ има следните аргументи:

Аргумент

Описание

envstring

Незадължително. Израз във формата на низ, съдържащ името на променлива на средата.

число

Незадължително. Числов израз, съответстващ на числовия ред на низа за средата в таблицата за низ за среда. Аргументът число може да бъде всеки числов израз, но се закръглява до цяло число, преди да се оцени.

Забележки

Ако не може да бъде намерен низ за средата в таблицата с низове за среда, се връща низ с нулева дължина (""). В противен случай Environ връща текста, присвоен на указаната низ; т.е. текстът след знака за равенство (=) в таблицата за среда-низ за тази променлива на средата.

Ако зададете число, връща се низът, заемащ тази числова позиция в таблицата "низ за среда". В този случай Environ връща целия текст, включително низ. Ако в зададената позиция няма низ за среда, Environ връща низ с нулева дължина.

Пример

Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.

Този пример използва функцията Environ , за да предостави номера на записа и дължината на инструкцията за PATH от таблицата environment-string. Не е налично на 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 IfLoop Until EnvString = ""If PathLen > 0 Then    ' Display message.    MsgBox MsgElse    MsgBox "No PATH environment variable exists."End If

Нуждаете ли се от още помощ?

Искате ли още опции?

Разгледайте ползите от абонамента, прегледайте курсовете за обучение, научете как да защитите устройството си и още.

Общностите ви помагат да задавате и отговаряте на въпроси, да давате обратна връзка и да получавате информация от експерти с богати знания.