Set Focus to Next ListBox Item

[burrina]

If user selects a item, it then asked for the Qty after clicking the command button to add the item. This could get very confusing since you wont have a way to determine which item you are entering a Qty for! Here is my code for the process; How do I advance to the next selected item after entering a Qty for the previous selected item?

Set ctl = Me.ListOne
For Each varItem In ctl.ItemsSelected
rs.AddNew
rs![Category ID] = ctl.ItemData(varItem)
rs![Product Name] = ctl.ItemData(varItem)
rs!OtherValue = InputBox("Enter a Numeric Quantity") ' It asks you for a Qty, I assume this is where the code would go
' rs!OtherValue = Me.txtOtherValue ' How about if I move Next varItem up one before rs.Update ???
rs.Update
Next varItem

[June7]

Tell the user which product the quantity is for. Your code will not pull data from each column of the selected items. Review http://allenbrowne.com/ser-50.html

Dim varItem As Variant
Dim ctl As Control
Set ctl = Me.List0ne
For Each varItem In ctl.ItemsSelected
   rs!.AddNew
   rs![Category ID] = ctl.Column(0, varItem)
   rs![Product Name] = ctl.Column(1, varItem)
   rs!OtherValue =  InputBox("Enter a Numeric Quantity for product " & ctl.Column(1, varItem))
Next

You don't show code to declare, set, open recordset - assume you do have that in procedure.

[burrina]

Thanks so much. Maybe I can get there from here!