How to select an Item in a list box programatically

[pcdaveh]

Situation:

I have a form with Two list boxes. When I select an item in list box one I want to programatically select its duplicate in listbox two if there is "unique" finding one or more instances of the same item. if not I want to send a message to the screen.

 

[jebry]

Hi!

In the after update event procedure you can try the following:

Dim intRow As Integer
Dim intCount As Integer

intCount = 0
For intRow = 0 To ListBoxTwo.ListCount - 1
If ListBoxTwo.Columns(0, intRow) = ListBoxOne.Value Then
ListBoxTwo.Selected(intRow) = True
intCount = intCount + 1
End If
Next intRow

If intCount = 0 Then
Call MsgBox("There were no matching items in List Box 2&quot
End If

hth
Jeff Bridgham
bridgham@purdue.edu

 

[pcdaveh]

Thanks Jeff that worked beautifully!