check if value is in lisbox

[sal21]

I need to check if in list2 is just present PASSWORD, if not add item PASSWORD.

naturally in my example not add item, just PASSWORD is in list2

[HansV]

Use code like this:

Code: Select all

    Dim i As Long
    Dim f As Boolean
    For i = 0 To Me.List2.ListCount - 1
        If Me.List2.List(i) = Me.List1 Then
            f = True
            Exit For
        End If
    Next i
    If f = False Then
        Me.List2.AddItem Me.List1
    End If

[sal21]

Use code like this:

Code: Select all

    Dim i As Long
    Dim f As Boolean
    For i = 0 To Me.List2.ListCount - 1
        If Me.List2.List(i) = Me.List1 Then
            f = True
            Exit For
        End If
    Next i
    If f = False Then
        Me.List2.AddItem Me.List1
    End If

OPS...
the code work only if list2 is filled, but if not is filled?

[HansV]

What happens? Do you get an error message?