تعديل كود

[jamal2080]

بعد التحية والسلام ..

عندى مربع سرد وتحرير مربوط مع جدول وصف الطلبية 

1. قطع غيار السيارات واليات ثقيلة    يرمز برقم 81
2. الاطارات الخارجية والنضائد          يرمز برقم  69
3. اجهزة الحاسب الآلي محمول و ملحقاتها   يرمز برقم 57
4. اجهزة الحاسب الآلي  مكتبية و ملحقاتها  يرمز برقم  58
5. الات تصوير مستندات   يرمز برقم 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

 

تم تعديل فبراير 12, 2023 بواسطه ابوخليل
تنسيق الكود

[ابوخليل]

If Leb_1 = 81   or  Leb_1 = 69 Then 
Me.Car_1.Enabled = True
Me.Car_2.Enabled = False
else
Me.Car_1.Enabled = False
Me.Car_2.Enabled = True
End If

 

[jamal2080]

اخى خليل بعد السلام وتحية طيبة..

عند رمز 57 و 58 و 70  خاص بالعهدة   زارر اسمة car_2 غير ممكن عندى فتح النمودج 

اما 81 و69 قطع غيار سيارات عندى زارر اسمة car_1 غير ممكن عندى فتح النمودج 

[ابوخليل]

الافضل ترفق مثالك

واقتصر فيه فقط على الكائنات والعناصر الضرورية 

[jamal2080]

تفضل اخى...

هذا مثال الذى طلبته

1080.rar