Topic: Prevent duplicate entries in listbox

[Matt__W]

Anyone have any code that would prevent a duplicate entry from being added to a listbox?  VBA

[Matt__W]

Just came across this..

Code: [Select]

Public Function NoDuplicatesInList(lst As ListBox, str As String)
    Dim tf As Boolean
    Dim x As Integer
   
    If lst.ListCount = 0 And str <> "" Then
        lst.AddItem str
        'check to make sure no duplicate entries get into list box
    Else
        tf = False
        For x = 0 To lst.ListCount - 1
            If lst.List(x) <> str Then
                tf = False
            Else
                tf = True
                Exit For
            End If
        Next x
        If tf = False And str <> "" Then
            lst.AddItem str
        End If
    End If
End Function

[rogue]

Anyone have any code that would prevent a duplicate entry from being added to a listbox?  VBA

If Its a listbox, then items can only be added thru code, by you. I would keep a separate string array of the items that are in the listbox, and zip thru the items in the array - accessing properties of controls can get very slow, especially if you have a lot of them ....