Sometimes repeating data sometimes not - How to handle data entry of this?

[illicited]

I have posted a screen of the form I'm working on and its underlying relationship. The form is made up of a main form and a subform, the main form contains general non-changing information about a product and the subform contains data specific to each different plant. This data in the subform has the potential to repeat from plant to plant, but it also can change from plant to plant.





What I would like to do would be to have a command button next to the plant combo box that brings up a form that allows me to select all of the other plants or some of the other plants (multiselect listboxes I believe would work) and copy all the data in the current subform for the current plant to these other plants if need be. I've figured I need to create some sort of command button or append query but my knowledge is rather basic when it comes to append queries and VBA, so if anyone knows of any resources or examples of this they can send me to that would be awesome. The general idea I have in my head is that I need to loop through the plant values in a list box add each value to the table and append all of the current subform values to the same table as well until all of the values in the list box have been run through. Or if there is a better approach to this I'd be grateful.

Thanks,

[ItsMe]

Here is some code to loop through a list box. Once you have one of the selected items, you need to do something with it. Do something within the loop. This is air code so double check it.

dim varEmail as variant
 dim strAnswer as string

 if me.lstSelection.count = 0 then
 exit sub
 else

 for each varEmail in me.lstSelection.itemselection

 strAnswer = strAnswer & me.lstSelection.column (0, varEmail)

 next varEmail

 end if

[illicited]

Thank you ItsMe. I'll look into that for command button code; now to figure out the append query part.

[ItsMe]

Try adding a

debug.print stranswer

or

Msgbox strAnswer

Once you validate the answer you are getting, you can move to the next step. Get the control name and column correct first.