Help with a listbox

[EAB1977]

I have a listbox that has the multiselect property set to none. I want
to select a item in a listbox to display some information to the user
based on the selection he/she made. How do I do this? The below code
seems to not work.

Dim lst as Listbox

Set lst = Me.lstPlant
For intCurrentRow = 0 To lst.ListCount - 1
If lst.Selected(intCurrentRow) Then
Me.numStandardsCreated.Value = lst.Column(2,
intCurrentRow)
End If
Exit For
Next intCurrentRow

 

[Marshall Barton]

I have a listbox that has the multiselect property set to none. I want
to select a item in a listbox to display some information to the user
based on the selection he/she made. How do I do this? The below code
seems to not work.

Dim lst as Listbox

Set lst = Me.lstPlant
For intCurrentRow = 0 To lst.ListCount - 1
If lst.Selected(intCurrentRow) Then
Me.numStandardsCreated.Value = lst.Column(2,
intCurrentRow)
End If
Exit For
Next intCurrentRow

That's not how the Selected property works. Rather than go
into that, here's a simpler (one line of code) way to do
what you want:

Me.numStandardsCreated = lst.Column(2)