• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Fill comboboxes or listboxes without dups

Fill comboboxes or listboxes without dups

Fill comboboxes or listboxes without dups

Rate Fill comboboxes or listboxes without dups

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim coll As New Collection
    On Error Resume Next
    Do Until myrs.EOF
        coll.Add myrs(0), myrs(0)
        If Err = 0 Then
            contr.AddItem
        Else
            Err.Clear
        Next
        myrs.MoveNext
    Loop
End Sub