Multiple Selections write record for each selection

Our purchasing department wants a database created based on multiple vendor's contacts selected.  I have created the form that they are requesting but I am not sure how to create a drop down list to select the vendors, then have the form list the contacts associated to the vendors selected.  The purchaser than can select the contacts they want to email and have the form save each record in the database by vendor.  

I know I can use a list box with multi select set to simple or extended and use duplicate record but how do I duplicate by the vendor selected.

Hopefully this makes sense.....

Attached sample would be great!!
Who is Participating?
als315Connect With a Mentor Commented:
You can also add new contacts if default value of vendorID field in contacts subform will be set to vendorID from vendors subform
Rey Obrero (Capricorn1)Commented:
you can use a combo box (cboVendor) and a list box (lstContacts allow multiselect - simple)
* in the after update event of the combo box (cboVendor) set the rowsource of the listbox

private sub cboVendor_afterupdate()

dim sql as string
sql="select contacts from tblVendor where vendorId= " & me.cboVendor


end sub

post back if you have any question..
Rey Obrero (Capricorn1)Commented:
set the rowsource of the cboVendor to

Select VendorID, VendorName from tblVendors

set the following properties of the combo

Column Count 2
Bound Column 1
Column Widths 0";1"
Cloud Class® Course: Microsoft Windows 7 Basic

This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.

mbizupConnect With a Mentor Commented:
Are you familiar with using subforms?

It sounds like you should have a mainform (Vendors -'one')

And a subform (contacts - 'many')

If you follow the tutorial, your subform Contact records will automatically include the vendor (or vendor ID when saved).

To search/filter for a particular vendor from a combo on the mainform you would use the following in the AfterUpdate event of your combo:

Me.Filter = "Vendor ='" & me.cboVendor & "'"

Or if an ID (numeric) is being stored:

Me.Filter = "VendorID =" & me.cboVendor.Column(0)  '<-- assumes the Vendor ID is in the fist column of the combo
Me.FilterOn = True

Open in new window

With that combo, finding the vendor spcified, your subform records will automatically show the contacts associated with that vendor, and allow you to add new contact records that are automatically associated with that specific vendor.
als315Connect With a Mentor Commented:
I agree with mbizup. May be this example can help you
CompTech810Author Commented:
Some really good examples!  It is a many to many relationship.  The purchaser wants to be able to select multiple vendors then select multiple contacts for those vendors to email RFQ's to.  Then the main RFQ file needs to be updated by the number of vendors selected so there is only one RFQ form filled out but a record written for each vendor selected.
Just making sure that I'm following...

Your structure looks like this:

Main (RFQ - one) ----->  Vendors (Many/RFQ)  ----> Contacts (Many per Vendor)

So your mainform (RFQ) would have a child form (Vendors)  and a 'grandchild'  form (Contacts)

Take a look at the sample and the solution posted by the Original Poster in this thread:
CompTech810Author Commented:
Mbizup, als315.   It looks like the example that als315 provided would work because of the query to select a Vendor than select the email, select another vendor then select email, and so on.  Now, on to figuring out how to create a duplicate RFQ record for each vendor selected and then create an email for each contact....
Can you show example of expected RFQ record?
CompTech810Author Commented:
I'm still working on closing this question but because of my lack of knowledge with VBA I'm stuck.

How do I create a simple loop to loop through a query that is based on selected contacts and print an email for each.  I have been able to get Access to do the emails with atachments but because I'm not familiar with VBA I think I'm confusing the system reserved words with what to use:  exp.  I see that people are using: Dim db As DAO.Database Dim rs As DAO.Recordset etc.....
CompTech810Author Commented:
I thought I closed this.  Thanks all!
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.