بعد التحية والسلام ..
عندى مربع سرد وتحرير مربوط مع جدول وصف الطلبية
قطع غيار السيارات واليات ثقيلة يرمز برقم 81
الاطارات الخارجية والنضائد يرمز برقم 69
اجهزة الحاسب الآلي محمول و ملحقاتها يرمز برقم 57
اجهزة الحاسب الآلي مكتبية و ملحقاتها يرمز برقم 58
الات تصوير مستندات يرمز برقم 70
عندما اختر 81 او 69 تفعيل زار امر Car_1 وغير ذلك يلغى تفعيل زار امر Car_1
عندما اختر 57 او 58 او 70 تفعيل زار امر Car_2 وغير ذلك يلغى تفعيل زار امر Car_2
هل هذا الكود
Private Sub Leb_1_AfterUpdate()
If Leb_1 = 81 Then
Me.Car_1.Enabled = True
Else
Me.Car_1.Enabled = False
End If
If Leb_1 = 69 Then
Me.Car_1.Enabled = True
Else
Me.Car_1.Enabled = False
End If
If Leb_1 = 57 Then
Me.Car_2.Enabled = True
Else
Me.Car_2.Enabled = False
End If
If Leb_1 = 58 Then
Me.Car_2.Enabled = True
Else
Me.Car_2.Enabled = False
End If
If Leb_1 = 70 Then
Me.Car_2.Enabled = True
Else
Me.Car_2.Enabled = False
End If
End Sub