ListBox Loop not working

[RunTime91]

I'm trying to use the ListBox.ControlTipText to display text from a very long entry in a Listbox.



I've looked at previous versions of Loops just like this and they seem to work just fine - This one, however, does not work at all.

Here are a couple versions I've tried - the row selected in the Listbox is row 6
What happens is the Loop never connects to the 'Then' statement -
However, if I manually place the code on that line - the ControlTipText displays the correct text.
Clearly I'm not seeing something ??

Thank You!!!

Private Sub LstRePubQs_Click()

  Dim i As Integer
  Dim str As String
  For i = 0 To Me.LstRePubQs.ListCount - 1
      If (Me.LstRePubQs.Selected(i) = True) Then
          str = Me.LstRePubQs.Column(1, i)
          Exit For
      End If
  Next
  Me.LstRePubQs.ControlTipText = str
  Debug.Print str

End Sub

Private Sub LstRePubQs_Click()

  Dim i As Integer
  Dim str As String
  For i = 0 To Me.LstRePubQs.ListCount - 1
      If Me.LstRePubQs.Selected(i) Then
          str = Me.LstRePubQs.Column(1, i)
          Exit For
      End If
  Next
  Me.LstRePubQs.ControlTipText = str
  Debug.Print str

End Sub

[RunTime91]

Update ~

Okay - not sure why, but if I place the same code as the second example above on a CommandButton click event - it works perfectly...

Now, one thing I did notice when I was stepping through the code the ListBox goes blank until End Sub then it re-populates

Any ideas?

I would like for the code to work when the end user clicks on the row which they can't read the whole entry because it is too long

Thanks

[pbaldy]

Is the listbox multiselect? If not, I wouldn't bother looping, just set the value in the after update event. You might consider a textbox too, though obviously that would take up some space.

[moke123]

As PBaldy suggests, all you need in afterupdate is

Me.LstRePubQs.ControlTipText = Me.LstRePubQs.Column(1)

[RunTime91]

Paul & Moke ~

Thank You!!

Seeing the solution makes me just shake my head -

I honestly wish there was a way I could improve my ability to 'think' like a developer...

But then I suppose if I could do that then I wouldn't get to come here and bug you guys - lol

Thanks again you two! - Have a Great Weekend!