Fill comboboxes or listboxes without dups
Fill comboboxes or listboxes without dups
Rate Fill comboboxes or listboxes without dups
(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
Fill comboboxes or listboxes without dups Comments
No comments yet — be the first to post one!
Post a Comment