Combo Box

[RhinoNeil]

I have a form that populates a combo box using a series of prior selections using .additem. The number of items in the list is variable.

I then need to check the combo box contains a mandatory item and if it is not in the list, add it (but not duplicating it if it already exists).

E.g. users can select any numbers between 1 and 10 and they are added to the combo box but the list must always contain a 1 (but I can only do this check after the list has been created).

Can anybody tell me how to check if an entry is in a combo box list?

Thx

 

[John_w]

Loop through the combo box's List items:

    Dim i As Integer
    
    With Me.ComboBox1
        For i = 0 To .ListCount - 1
            If .List(i, 0) = "1" Then Exit For
        Next
        If i = .ListCount Then .AddItem "1", 0
    End With

 

[Norie]

When you are adding an item just check if it's one.

... code to add item
' check if last item added was a 1
OneAdded = (Combobox1.List(Combobox1.ListCount-1) = 1)

Once you've added all the other items add the 1 if it's needed:

If Not OneAdded Then
  Combobox1.AddItem 1
End If