List box selection to textbox 1

[uncchcs]

I have a list box with the following columns:
| Product | ProductID | Category |
On the same form, I have a textbox for each column in the listbox.
I want the user to be able to select a row from the listbox and automatically update(fill-in) the textboxes for each control.

 

[zerosandones]

Your goal can be accomplished as follows given the following assumptions:

1) List Box named "lstProduct" with a RowSource similar to "SELECT Product, ProductID, Category from tblProduct" assuming the name of the underlying table is "tblProduct"
2) Text Boxes named "txtProduct", "txtProductID" and "txtCategory"


This solution does not get into the issue of whether or not your form fields are bound to an underlying record source, however, this solution applies under any condition.

In the AfterUpdate event of the form's lstProduct control, the VB code would read as follows:

Private Sub lstProduct_AfterUpdate()

Me.txtProduct = Me.lstProduct.Column(0)
Me.txtProductID = Me.lstProduct.Column(1)
Me.txtCategory = Me.lstProduct.Column(2)

End Sub


Hope this points you in the right direction.