Private Sub Command2_Click()
Dim I As Integer
Dim vItm As Variant
If Me.List0.ItemsSelected.Count > 0 Then
For Each vItm In Me!List0.ItemsSelected
Me.text1 = Me.List0.ItemData(vItm)
Me.text2 = Me.List0.Column(3)
Me.Text3 = Me.List0.Column(2)
MsgBox "You must select at lease one Physician Name from the list."
I want to see the text1, text2, and text3 boxes change on the form as it loops thru the records... I am seeing text1 change, but not the text2 and text3 boxes. It remembers the values from the first record on text1 and just repeats that... so... value changes in 1, but remains the same in 2 and 3... Any ideas?