ينطبق على
عنصر CheckBox |
عنصر OptionButton |
عنصر ToggleButton |
يتضمن كل عنصر تحكم في مجموعة خيارات قيمة رقمية يمكنك تعيينها بواسطة خاصية OptionValue. Long قراءة/كتابة.
expression.OptionValue
expression Required. هو تعبير يقوم بإرجاع أحد العناصر الموجودة في القائمة "ينطبق على".
ملاحظات
عندما يتم تحديد عنصر التحكم، يتم تعيين الرقم لمجموعة الخيارات. إذا كانت مجموعة الخيارات مرتبطة بحقل، يتم تخزين قيمة خاصية OptionValue لعنصر التحكم المحدد في الحقل.
على سبيل المثال، مجموعة خيارات المنطقة هذه مرتبطة بحقل "المنطقة" في جدول. يتضمن زر أوروبا إعداد خاصية OptionValue وهو 1، ويتضمن زر آسيا الإعداد 2، وزر أفريقيا الإعداد 3. عندما يتم تحديد أحد هذه الأزرار، ستكون قيمة مجموعة خيارات المنطقة هي نفس إعداد خاصية OptionValue لعنصر التحكم المحدد. في هذه الحالة، ونظراً لأن مجموعة خيارات المنطقة مرتبطة بحقل "المنطقة"، فإن قيمة هذا الحقل في الجدول تساوي أيضاً 2.
ملاحظة: لا تنطبق خاصية OptionValue إلا على عناصر التحكم خانة اختيار وزر خيار وزر تبديل في مجموعة خيارات.
يمكنك تعيين خاصية OptionValue باستخدام صفحة الخصائص الخاصة بعنصر التحكم أو الماكرو أو التعليمة البرمجية لـ Visual Basic for Applications (VBA).
ما لم تقم بتغيير خاصية OptionValue بنفسك، تكون قيمة أول عنصر تحكم تضعه في مجموعة الخيارات 1، وقيمة عنصر التحكم الثاني 2، وهكذا.
لا تتوفر خاصية OptionValue إلا عندما يتم وضع عنصر التحكم داخل عنصر تحكم مجموعة خيارات. عندما لا تتضمن مجموعة الخيارات خانة اختيار أو زر تبديل أو زر خيار، لا يتضمن عنصر التحكم خاصية OptionValue. بدلاً من ذلك، يتضمن كل عنصر تحكم خاصية ControlSource وستكون قيمة كل عنصر تحكم إما True إذا تم تحديده أو False إذا لم يتم تحديده.
مثال
تُعين مجموعات الأمثلة التالية خاصية OptionValue لثلاثة من أزرار الخيارات في مجموعة خيارات "مجموعة طُرق الشحن" عند فتح نموذج. عند تحديد زر خيار في مجموعة الخيارات، تظهر رسالة تُشير إلى رقم المعرف المُعين لشركة الشحن.
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