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

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

Връща списък с ключовите настройки и съответните им стойности (първоначално създадени със SaveSetting) от записа на приложението в системния регистър на Windows или (на Macintosh) информация във файла за инициализация на приложението.

Синтаксис

GetAllSettings ( appname , section )

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

Аргумент

Описание

име на приложение

Задължително. Израз във формата на низ, съдържащ името на приложението или проект, чиито настройки на ключ са заявени. На Macintosh това е името на файла за инициализация в папката Preferences (Предпочитания) в системната папка.

секция; раздел

Задължително. Низ expression , съдържащ името на секцията, чиито настройки на ключ са заявени. GetAllSettings връща стойност от тип Variant, чието съдържание е двумерна масив от низове, съдържащи всички настройки на ключа в зададения раздел и съответните им стойности.

Забележки

GetAllSettings връща неинициализиран variant , ако или appname , или секция не съществува.

Пример

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

Този пример първо използва командата SaveSetting , за да направи записи в системния регистър на Windows за приложението, зададено като име на приложение, след което използва функцията GetAllSettings , за да покаже настройките. Обърнете внимание, че имена на приложения и имена на секции не могат да бъдат извлечени с GetAllSettings. И накрая, командата DeleteSetting премахва записите на приложението.

' Variant to hold 2-dimensional array returned by GetAllSettings' Integer to hold counter.Dim MySettings As Variant, intSettings As Integer' Place some settings in the registry.SaveSetting appname := "MyApp", section := "Startup", _key := "Top", setting := 75SaveSetting "MyApp","Startup", "Left", 50' Retrieve the settings.MySettings = GetAllSettings(appname := "MyApp", section := "Startup")    For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)        Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)    Next intSettingsDeleteSetting "MyApp", "Startup"

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

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

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

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