Applies ToMicrosoft 365 rakendus Access Access 2021 Access 2019 Access 2016 Access 2013

Märkus.: Kui Microsoft Jet Expression Service töötab liivakastirežiimis, mis takistab potentsiaalselt ebaturvaliste avaldiste väärtustamist, on käesolevas artiklis kirjeldatud funktsioon, meetod, objekt või atribuut keelatud. Liivakastirežiimi kohta lisateabe saamiseks otsige spikrist sõna „liivakastirežiim“.

Tagastab Windowsi registri rakendusekirjest või (Macintoshis) rakenduse lähtestamisfailist võtmesätete loendi ja nende vastavad väärtused (algselt loodud funktsiooniga SaveSetting).

Süntaks

GetAllSettings ( rakenduse nimi , jaotis )

Funktsiooni GetAllSettings süntaksil on järgmised argumendid.

Argument

Kirjeldus

rakendusenimi

Nõutav. Stringavaldis, mis sisaldab rakenduse nime või projekt, mille võtmesätteid taotletakse. Macintoshi korral on selleks kaustas „System“ („Süsteem“) asuvas kaustas „Preferences“ („Eelistused“) oleva käivitusfaili nimi.

jaotis

Nõutav. String expression , mis sisaldab selle jaotise nime, mille võtmesätteid taotletakse. GetAllSettings tagastab variandi, mille sisu on kahemõõtmeline massiiv stringidest, mis sisaldavad kõiki määratud jaotise võtmesätteid ja vastavaid väärtusi.

Kommentaarid

GetAllSettings tagastab lähtestamata variandi , kui rakenduse nime või jaotist pole olemas.

Näide

Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Selles näites kasutatakse esmalt lauset SaveSetting , et teha Windowsi registris kirjeid rakendusele, mis on määratud kui rakenduse nimi, ja seejärel kasutab sätete kuvamiseks funktsiooni GetAllSettings . Pange tähele, et rakendusenimesid ja jaotisenimesid ei saa funktsiooni GetAllSettings abil tuua. Lõpuks eemaldatakse lause DeleteSetting rakenduse kirjed.

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

Kas vajate veel abi?

Kas soovite rohkem valikuvariante?

Siin saate tutvuda tellimusega kaasnevate eelistega, sirvida koolituskursusi, õppida seadet kaitsma ja teha veel palju muud.

Kogukonnad aitavad teil küsimusi esitada ja neile vastuseid saada, anda tagasisidet ja saada nõu rikkalike teadmistega asjatundjatelt.