Applies ToAccess za Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013

Napomena: Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.

Vraća listu postavki ključa i odgovarajućih vrednosti (prvobitno kreirane pomoću funkcije SaveSetting) iz stavke aplikacije u Windows registratoru ili (na Macintosh računaru) informacija u datoteci za pokretanje aplikacije.

Sintaksa

GetAllSettings ( ime aplikacije , odeljak )

Sintaksa funkcije GetAllSettings ima sledeće argumente:

Argument

Opis

ime aplikacije

Obavezno. Izraz niske koji sadrži ime aplikacije ili projekat čije postavke ključa su zahtevane. Na Macintosh računaru ovo je ime datoteke za pokretanje u fascikli Željene postavke u fascikli Sistem.

odeljak

Obavezno. XPRESSionniske koja sadrži ime odeljka čije postavke ključa su zahtevane. Funkcija GetAllSettings vraća varijantu čiji je sadržaj dvodimenzionalna niz koja sadrži sve postavke ključa u navedenom odeljku i njihove odgovarajuće vrednosti.

Napomene

GetAllSettings daje nepokrenuto varijantu ako ne postoji ime aplikacijeili odeljak .

Primer

Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.

Ovaj primer prvo koristi izraz SaveSetting za unose u Windows registratoru za aplikaciju navedenu kao ime aplikacije , a zatim koristi funkciju GetAllSettings za prikazivanje postavki. Imajte na umu da imena aplikacija i imena odeljaka nije moguće preuzeti pomoću funkcije GetAllSettings. Na kraju, izraz DeleteSetting uklanja stavke aplikacije.

' 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"

Da li vam je potrebna dodatna pomoć?

Želite još opcija?

Istražite pogodnosti pretplate, pregledajte kurseve za obuku, saznajte kako da obezbedite uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na pitanja, dajete povratne informacije i čujete mišljenje od stručnjaka sa bogatim znanjem.