التصفية حسب الشرط في الكمبوبوكس

[زوهير]

السلام عليكم ورحمة الله

 ان امكن كود يقوم بتصفية البيانات حسب الشرط في الكمبوبوكس

والمرفق يوضح ذلك

وجزاكم الله خير

تصفية.rar

[زوهير]

للرفع

[ياسر خليل أبو البراء]

أخي الفاضل المرفق غير واضح ..أرفق بعض البيانات والنتائج المتوقعة ..

[زوهير]

تفضل اخي الكريم

المرفق مع توضيح اكثر

تصفية.rar

[ياسر خليل أبو البراء]

الأخ زوهير أرى أن الملف يحتوي الحل .. إذا كان الأمر كما قد فهمت ..

باختيارك من الكومبوبوكس الأول يتم إضافة عناصر محددة إلى الكومبوبوكس الثاني ..!!

ماذا تقصد بتصفية البيانات .. وما هو المزج الذي تقصده ..

صراحة لم تتضح الفكرة ............................ اعذرني لقلة فهمي

[زوهير]

اخي الكريم

عند الاختيار الثاني في الكمبوبوكس الاول تبقي معطيات الاختيار الاول ويضيف عليها معطيات الاخيار الثاني

ارجوا اني قد وضحت الفكرة

وعند دخولك لمحرر الاكواد ستتضح لك الفكرة جيدا

[ياسر خليل أبو البراء]

هههههههه أخيراً فهمت تصدق

اعذرني لبطء فهمي

أضف فقط السطر التالي

ComboBox2.Clear

في بداية الحدث

Private Sub ComboBox1_Change

ليصبح الكود بهذا الشكل النهائي

Private Sub ComboBox1_Change()
    ComboBox2.Clear
    
    If ComboBox1.Value = "ENTENT PREALABEL" Then
        ComboBox2.AddItem "APPAREILLAGE - G"
        ComboBox2.AddItem "APPAREILLAGE - P"
        ComboBox2.AddItem "REEDUCATION - F"
        ComboBox2.AddItem "C - T"
        ComboBox2.AddItem "AUTRE"
    End If
    
    If ComboBox1.Value = "MALADIE CRHONIQUE" Then
        ComboBox2.AddItem "NAUVEAU"
        ComboBox2.AddItem "PROLONGATION"
    End If
End Sub

أرجو ان يفي بالغرض

 

تقبل تحياتي

[زوهير]

وهو المطلوب جزاك الله خيرا

وزادك علما

 

تحياتي

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير

لا تنسى أخي زوهير أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

التزم بالتوجيهات