ListBox update subform,i.e. add products to it

[burrina]

I hope someone, preferably someone who has my db already and a little familiar with it can direct me in the right path. Right now I am using 4 tables,5 forms and 4 queries for this feature. The tables are Time,Products,Categories,Orders. Queries are QAddProducts,QProductsSub,TimeCards,QTaxableMultiI temSelect and one sql statement. Forms are TimeCards,TimeCatAndProdSub,AddProducts,AddProduct sSubform,FTaxableMultiItemSelect.

Main form is TimeCards and it has a subform on it named TimeAndCatProdSub ' used to add products to a purchase order
AddProducts has a subform on it named AddProductsSubform ' used to add products for each category
FTaxableMultiItemSelect form, a wish for solution to add many items at a time to TimeAndCatProdSub form on TimeCards form.



The db is too large to post in one file so I have to break it down into 4 zips, tables,queries,forms and macros with one module

[burrina]

Note; I did NOT use the implemented changes for my data structure source on the subform TimeAndCatProductsSub, it works fine the way it is for now.

But as you can see, I did implement the changes suggested but they are separate for the time being.

[burrina]

This code does NOT work but am I going in the right direction? It comes from a command button on my new multiselect list box where I can select as many items as I want to, and then at least in theory put on my form TimeCardCatAndProdSub which is a subform on main form Timecards. Multiselect form is a popup form named FCatMultiSelect



Private Sub Command5_Click()
Dim frm As Access.Form
Dim ctl As Control
Dim varItem As Variant

Set db = CurrentDb
Set frm = Form!FCatMultiSelect 'form where product selection is made
Set ctl = frm!TimeCardCatAndProdSub 'form that needs selected records added

For Each varItem In ctl.ItemsSelected
db.Execute "INSERT INTO TimeCardCatAndProdSub(Category Name)" & " VALUES (""" &
ctl.ItemData(varItem) & """)"
Next varItem
End Sub


__________________________________________________ ___________________________
Plan B:
Use a append query like the one I use to add at present one item at a time
The query is named QTimeCardCatAndProdSub

If you look at the pic I uploaded it shows what I want to happen. Main form us loaded with subform on it and popup multiselect form is open.
Any suggestions?

[burrina]

They may not work but here is an attached db with my ideas of how adding multiple items at once could be implemented. View readme and code forms and then open FProductMultiItemSelect.


Thanks,

Dave

[burrina]

I abandoned this project.