Passing a value from listbox to textbox when listbox has 2 values :( ?

[VBKid04]

I have a listbox, that I want to pass a .text value from to a textbox.
Problem is, The listbox is holding two values (as passed by 2 fields from a recordset) like this...

For i = 0 To rstCust.RecordCount - 1

lstCust.AddItem rstCust.Fields(0).Value & " " & rstCust.Fields(1).Value
rstCust.MoveNext

Next

Which displays the list like this:

001 Smith
002 Jones
003 Black

etc.


When I click on the listbox, I want the value I click on to go to a textbox called txtCustID, but I dont want to send both values to it.

I only want to send the rstCust.Fields(0).Value to the textbox (which would be 001, 002, 003 etc. but not the name).


Can anyone help me do this?

Thanks

[ahara]

Couple of ways to go here...you could use the split function which returns an array. It takes as a paremeter the delimiter which in the example you gave is a space. Are all the second column values only one word?

dim strArray as Variant

strArray = Split(ListBox1.List(ListBox1.ListIndex), " ")
Text1.Text = strArray(0)

if there are spaces on the second column, I have done this in the past:

when adding items to the listbox concatenate like so:

ListBox1.AddItem rs.Fields(0).Value & vbTab & rs.Fields(1).Value

...
'then you could do

strArray = Split(ListBox1.List(ListBox1.ListIndex), vbTab)

...

'or you could use the ListBox.ItemData property which is also a collection like .Item:

ListBox1.AddItem rs.Fields(0).Value & " " & rs.Fields(1).Value
ListBox1.ItemData(ListBox1.NewIndex) = rs.Fields(0).Value

'so when they click on the item, you pass the index of the listbox to the ItemData collection

ListBox1.ItemData(ListBox1.ListIndex)

'the ItemData way is my personal favorite

hope that helps - cheers