You want a pick list in a listbox. make a tPicked table to hold the items picked.
make a form, 2 list boxes.
1 lstAvail, holds the items to pick from
2. lstPicked, holds the items user picked to be in the query
User dbl-clicks from the lstAvail list, which runs an append query, and appends this option in a 'pick list' table.
NOTE, ALWAYS refresh the listbox after the query runs (can be done in a macro too)
Then when all items are picked , put a button at the bottom to run the main query.
This query joins the tPicked table to the Data table and only those items will show.
Code:
sub lstAvail_dblclick()
docmd.setwarnings false
docmd.openquery "qaAdd1Item"
lstpicked.requery 'refresh list
end sub
NO CODING.
just a few queries.
1 append query to add the user's pick
1 del query to erase only 1 selected item in the list
1 del query to erase all items in the list