في الوظائف العسكرية هناك ضباط يحملون أكثر من لقب مثل أن يكون طيار أو مهندس وفي نفس الوقت ركن
كمثال العقيد الطيار الركن /فلان أبن فلان أو المقدم المهندس الركن ..الخ.
ولدي قاعدة بيانات تحتوي على أسماء عدد من الضباط فمنهم من يحمل لقب واحد وأخر لقبين ومنهم من لا يحمل لقب مطلقاً ، فلجأت الى عمل اثنين Check Box صندوق مكتوب عليه مهندس والصندوق الآخر مكتوب عليه ركن ، حتى اسهل على مدخل البيانات الأدخال ، والطريقة أذا كان هذا الضابط يحمل درجة مهندس يتم التأشير على مربع مهندس (بصح)
ومشكلتي تبدأ من هنا وهو لا بد ان تكتب عبارة مهندس في جدول قاعدة البيانات ، ومن المعلوم بأن خاصية Check Box تلقائياً تدخل عبارة 1- في حالة صح أو 0 للمربع الفاضي(الغير مأشر عليه بصح) ، فأنشئت كود يستبدل عبارة 1- في حالة اختيار صح لتصبح مهندس في مصدر العنصر ولكن فشلت فهل من مساعد؟ علماً بأن الكود هو
(Test1) اسم حقل التشك بوكس في النموذج ومصدر العنصر هو txt1 في الجدول.
وكيف احمل المثال لمشاهدته؟
Private Sub test1_Click()
If Me.test1 = Selected Then
Me.txt1 = "Eng"
ElseIf Me.test1 = False Then
Me.txt1 = ""
End If
End Sub