مسح الفراغ داخل الكمبوبوكس

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم 

بعد التحية

المطلوب ان شاء الله

بعد ااختيار احد عناصر الكمبوبكس يتم مسح الفراغ فى باقى الكمبوبوكس

لكم جزيل الشكر والتقديرمسح الفراغ.rar

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

أخي الكريم طارق

صراحة الموضوع معقد بعض الشيء لكن بفضل الله وحده تمكنت من الوصول لسبب المشكلة وهو الإجراء الفرعي في حدث الفورم

اخذف الإجراء الموجود واستبدل التالي مكانه

Sub ListArr(Cmd As String)
    Dim sTe As String: sTe = Me(Cmd).Text
    Dim II As Long, E As Long
    
    E = 0
    
    For II = LBound(Arr1) To UBound(Arr1)
        If CStr(Arr1(II)) <> sTe And Not IsEmpty(Arr1(II)) Then
            E = E + 1: ReDim Preserve Arr2(E - 1)
            Arr2(E - 1) = Arr1(II)
        End If
    Next II
    
    ReDim Arr1(E): Arr1 = Arr2
End Sub

تقبل تحياتي

 

[طارق زكريا حسين جاه الرسول]

اخى العزيز 

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

بعد التحية

اشكر جزيل الشكر والتقدير 

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

أخي العزيز طارق

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

أفضل كلمة "جزاكم الله خيراً" أكثر من كلمة الشكر ، فلكلمة "جزاكم الله خيراً" وقع في نفسي أفضل بكثير من شكراً

تقبل تحياتي

[طارق زكريا حسين جاه الرسول]

اخى العزيز 

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

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