Passing a value to a text box from a list box

[webstaff]

Hi Guys,

I have a list box on a form with a text box.

The list box draws names using DAO from my database, and I want to click on a name in the list box and in doing so I want that records id number to appear in the text box.

Is that possible?

Thanks again In advance
les

The code im using to feed my List box is as follows:

'lists code1
Dim rs3 As Recordset
Dim db3 As Database

Set db3 = OpenDatabase("C:\Documents and Settings\webstaff\Desktop\sbtProgramme\sbt2.mdb&quot
Set rs3 = db3.OpenRecordset("select * FROM males " & _
"ORDER By field_kcname&quot
Set passmale = rs3.Fields("field_id&quot
Do Until rs3.EOF
staffylistmales.AddItem rs3.Fields("field_title&quot & ", " & _
rs3.Fields("field_kcname&quot & _
" [" & rs3.Fields("field_id&quot & "]"

rs3.MoveNext
Loop
rs3.Close
Set rs3 = Nothing
' end of lists code1

 

[kel1981b]

Private Sub List1_Click()
Text1 = List1.Text
End Sub

Is that you want?

 

[LazyMe]

Assuming that the record's ID number is of an integer datatype, you could set the itemdata propery of each field in the listbox to the id number of the record.

i.e:

lstRecords.AddItem(your_item_stuff)
lstRecords.ItemData(lstRecords.NewIndex) = your_record_id

And then in on_click:

txtID.Text = CStr(lstRecords.ItemData(lstRecords.ListIndex))

Greetings,
Rick

 

[webstaff]

Thanks, that looks good,

I got there in the end by using a combo cox instead of a list:

TextBox(5) = Mid(Combomales, InStr(Combomales, "[&quot + 1, InStr(Combomales, "]&quot - InStr(Combomales, "[&quot - 1)