• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

I can`t make the last TextBox to display information from ListBox. Help please.

Hello. I am making a small project. It is almost finished but for some reason, the last TextBox is not displaying the information from the ListBox. I don`t know what I am doing wrong but I have tried several times and nothing. Please help. Thank you in advance. And please forgive me for being so dumb in this issue.

I am attaching the original file of my project.
 

Attachments

p45cal

Well-Known Member
change
Code:
Private Sub LB_00_Click()
  For i = 0 To 2
    Me("T_0" & i) = LB_00.Column(i)
  Next
  Cmd_00.Enabled = False
  Cmd_01.Enabled = True
End Sub
to:
Code:
Private Sub LB_00_Click()
For i = 0 To 3
  If i = 3 Then    ' this is a cheat, you should, for future clarity, rename your textboxes on the form!
    Me("T_0" & 4) = LB_00.Column(i)
  Else
    Me("T_0" & i) = LB_00.Column(i)
  End If
Next
Cmd_00.Enabled = False
Cmd_01.Enabled = True
End Sub
 
Top