LISTBOX VALUES TO TEXT BOXES

[Songoku]

Hi

I have a form which consists of 2 listboxes and a combo box. the combo box
allows the user to select a table name. When the Table is selected in
Listbox1 the fields for that Table Appear.

I have a button that when pressed moves the contents of listbox 1 to list
box 2. What I would like to be able to have is 4 hidden controls (textboxes)
that each contain a a row name from listbox 2 ie

listbox2
1
2
3
4

txtbox 1 = 1, textbox 2 = 2 etc

any suggestions appreciated....

Thnx is Advance

 

[strive4peace]

Hi Songoku,

what is your reason for needing this?

Warm Regards,
Crystal

Access Basics
8-part free tutorial that covers essentials in Access
http://www.AccessMVP.com/strive4peace

*
have an awesome day
*

 

[Klatuu]

Dim varItm As Variant
Dim lngX As Long

lngX = 1
For Each varItm In Me.ListBox2.ItemsSelected
If lngX > 4 Then
Exit For
End IF
Me.Controls("TextBox" & Cstr(lngX)) = Me.ListBox2.ItemData(varItm)
lngX = lngX + 1
Next varItm

 

[Songoku]

Hi Thanks for the quick response

how about if the list box contains text ?

life savers!!!!

 

[Klatuu]

Doesn't matter. All data in controls is held as text. It is only converted
to the bound field's data type when saved.