كيف يمكننى منع تكرار البيانات فى الكمبو بوكس

جرب هذا الكود

Private Sub DeleteRepeatedFiles()
Dim C1 As Integer, F1 As String, C2 As Integer, F2 As String, D As Integer
Do While C1 <= Combo1.ListCount - 2
DoEvents
    C2 = C1 + 1
    F1 = Combo1.List(C1)
    Do While C2 <= Combo1.ListCount - 1
    DoEvents
        F2 = Combo1.List(C2)
        If F1 = F2 Or F2 = "" Then
            Combo1.RemoveItem C2
            D = D + 1
            C2 = C2 - 1
        End If
        C2 = C2 + 1
    Loop
    C1 = C1 + 1
Loop
If D <> 0 Then MsgBox "عدد العناصر التى تم حذفها " & D & " عنصر", vbInformation, "مثال"
End Sub

اتمنى ان يفيدك :rolleyes:

نسيت اقوللك لو حبيت تتجاهل حالة الاحرف اكتب الجملة Option Compare Text فى قسم التصريحات العامة :rolleyes:

الله يكرمك اخى محمد

مشكوووووووووور على الاهتمام