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

Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".

Vraća popis postavki ključa i njihovih odgovarajućih vrijednosti (izvorno stvorenih uz SaveSetting) iz unosa aplikacije u registar sustava Windows ili (na Macintosh) informacijama u datoteci za inicijalizaciju aplikacije.

Sintaksa

GetAllSettings ( naziv aplikacije , odjeljak )

Sintaksa funkcije GetAllSettings sadrži sljedeće argumente:

Argument

Opis

naziv aplikacije

Obavezno. Nizovni izraz koji sadrži naziv aplikacije ili projekt čije su postavke ključa zatražene. Na macintoshu to je naziv datoteke inicijalizacije u mapi Preference u mapi Sustav.

odjeljak

Obavezno. Niz expression koji sadrži naziv sekcije čije su postavke ključa zatražene. GetAllSettings vraća varijantu čiji je sadržaj dvodimenzionalna polje nizova koji sadrže sve postavke ključa u navedenoj sekciji i njihove odgovarajuće vrijednosti.

Napomene

GetAllSettings vraća neinicijaliziranu varijantu ako naziv aplikacijeili sekcija ne postoje.

Primjer

Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

U ovom se primjeru najprije koristi naredba SaveSetting za unose u registar sustava Windows za aplikaciju navedenu kao naziv aplikacije, a zatim koristi funkciju GetAllSettings za prikaz postavki. Imajte na umu da se nazivi aplikacija i nazivi sekcija ne mogu dohvatiti pomoću značajke GetAllSettings. Naposljetku , naredba DeleteSetting uklanja unose 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"

Potrebna vam je dodatna pomoć?

Želite dodatne mogućnosti?

Istražite pogodnosti pretplate, pregledajte tečajeve za obuku, saznajte kako zaštititi uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na njih, pošaljete povratne informacije i čujete se sa stručnjacima s bogatim znanjem.