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

Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan Ekspresi Microsoft Jet berjalan dalam mode kotak pasir, yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode kotak pasir, cari "mode kotak pasir" di Bantuan.

Mengembalikan daftar pengaturan kunci dan nilainya masing-masing (awalnya dibuat dengan SaveSetting) dari entri aplikasi dalam registri Windows atau (di Macintosh) dalam file inisialisasi aplikasi.

Sintaks

GetAllSettings ( appname , section )

Sintaks fungsi GetAllSettings memiliki argumen ini:

Argumen

Deskripsi

nama aplikasi

Diperlukan. Ekspresi string yang berisi nama aplikasi atau proyek yang pengaturan kuncinya diminta. Di Macintosh, ini adalah nama file inisialisasi dalam folder Preferensi dalam folder Sistem.

bagian

Diperlukan. String expression berisi nama bagian yang pengaturan kuncinya diminta. GetAllSettings mengembalikan Varian yang kontennya merupakan larik dua dimensi string yang berisi semua pengaturan kunci di bagian tertentu dan nilai terkaitnya.

Keterangan

GetAllSettings mengembalikan Varian yang tidak terinisialisasi jika nama aplikasi atau bagian tidak ada.

Contoh

Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.

Contoh ini terlebih dahulu menggunakan pernyataan SaveSetting untuk membuat entri dalam registri Windows untuk aplikasi yang ditentukan sebagai nama aplikasi, lalu menggunakan fungsi GetAllSettings untuk menampilkan pengaturan. Perhatikan bahwa nama aplikasi dan nama bagian tidak dapat diambil dengan GetAllSettings. Akhirnya, pernyataan DeleteSetting menghapus entri aplikasi.

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

Perlu bantuan lainnya?

Ingin opsi lainnya?

Jelajahi manfaat langganan, telusuri kursus pelatihan, pelajari cara mengamankan perangkat Anda, dan banyak lagi.

Komunitas membantu Anda bertanya dan menjawab pertanyaan, memberikan umpan balik, dan mendengar dari para ahli yang memiliki pengetahuan yang luas.