Berlaku untuk
|
Objek CheckBox |
|
Objek OptionButton |
|
Objek ToggleButton |
Setiap kontrol dalam grup opsi memiliki nilai numerik yang dapat Anda atur dengan properti OptionValue . Baca/tulis Long.
ekspresi.OptionValue
ekspresi Diperlukan. Ekspresi yang mengembalikan salah satu objek dalam daftar Berlaku Untuk.
Keterangan
Ketika kontrol dipilih, angka ditetapkan ke grup opsi. Jika grup opsi terikat pada bidang, nilai kontrol pilihan properti OptionValue disimpan dalam bidang.
Misalnya, grup opsi Kawasan ini terikat pada bidang Kawasan dalam tabel. Tombol Eropa memiliki pengaturan properti OptionValue 1, tombol Asia memiliki pengaturan 2, dan tombol Afrika memiliki pengaturan 3. Ketika salah satu tombol dipilih, nilai grup opsi Kawasan akan sama seperti pengaturan properti OptionValue untuk kontrol yang dipilih. Dalam hal ini, karena grup opsi Kawasan terikat pada bidang Kawasan, nilai bidang di tabel sama dengan 2.
Catatan: Properti OptionValue berlaku hanya untuk kotak centang, tombol opsi, dan kontrol tombol alih di grup opsi.
Anda dapat mengatur properti OptionValue dengan kontrol lembar properti, makro, atau kode Visual Basic for Applications (VBA).
Kecuali jika Anda mengubah properti OptionValue sendiri, kontrol pertama yang ditempatkan di grup opsi memiliki nilai 1, kontrol kedua memiliki nilai 2, dan seterusnya.
Properti OptionValue hanya tersedia saat kontrol diletakkan di dalam kontrol grup opsi. Ketika kotak centang, tombol dwiarah, atau tombol opsi tidak berada dalam grup opsi, kontrol tidak memiliki properti OptionValue. Sebagai gantinya, tiap kontrol memiliki properti ControlSource, dan nilai tiap kontrol dapat berupa True jika dipilih atau False jika tidak dipilih.
Contoh
Kumpulan contoh berikut mengatur properti OptionValue untuk tiga tombol opsi dalam grup opsi "Grup Metode Pengiriman" ketika formulir terbuka. Ketika tombol opsi dipilih dalam grup opsi, sebuah pesan akan muncul, menunjukkan nomor ID yang ditetapkan pengirim.
Private Sub Form_Open(Cancel As Integer)
Me.Controls("ABC Couriers").OptionValue = 15876
Me.Controls("Speedy Delivery").OptionValue = 742
Me.Controls("Lightning Express").OptionValue = 1256
End Sub
Private Sub Ship_Method_Group_Click()
MsgBox "The ID for the selected shipper is " & _
Me.Controls("Ship Method Group").Value
End Sub
