ComboBox with multiple columns

[rkm360]

Hi everyone, I need some help (obviously!)



I have a simple database for entering sample requests.

In my sample request entry form (tblSampleOrders) I have a combobox that selects from a table with our sales reps information (name, phone & e-mail.)

What I can't seem to figure out seems like it should be very simple:
When I choose a given sales rep in the combo box, how can I copy the two additional fields in the table to two additional fields on the entry form?

i.e...I choose Sales Rep Norm from the combo box. This then copies the saved phone & e-mail for Norm to the Phone & E-mail fields on the Entry form. This information would be saved in the tblSampleOrders fields named RequestedByPhone & RequestedByEmail.

I found another post in this forum that seemed to be on the right track, but when I installed the code it did not work:

AfterUpdate_RequestedBy combo box
Me.SalesRepEmail = Me.RequestedBy.Column(1)(zerobased)
Me.SalesRepPhone = Me.RequestedBy.Column(2)(zerobased)

I appreciate any help you can offer!

[pbaldy]

It looks like you're on the right track. Make sure the fields are included in the combo row source and that the combo's Column Count property is correct.

[rkm360]

I double-checked both, fields are included in the row source and the column count is correct. Still no luck though! I don't get any errors or anything, it just doesn't work yet....

[pbaldy]

Can you post the actual code, or the db itself?

[rkm360]

I'd be happy to send you the DB, but would prefer to send PM if possible.

[pbaldy]

That's fine.

[rkm360]

I don't think I can attach something to a PM, and it is slightly too big to attach to a post. I'm sorry! Can I send it to you directly?

Thanks again,
Robert

[pbaldy]

Sure

removed

[pbaldy]

For starters, the "ZeroBased" bit can't be there. Second, there is no control named "SampleID_SalesRepEmail". Third, it looks like you just typed in the code; it's not associated with the control and the control name is misspelled. If I correct all that, this works:

Me.CustomerE_Mail = Me.RequestedBy.Column(2)

If you're not familiar with how to associate the code:

http://www.baldyweb.com/FirstVBA.htm

[rkm360]

Paul, thank you very much! I am sorry for not responding I did not get notice that you had answered this already last week. Thank you for your time, it works perfectly now and is exactly what I needed!

Regards,
Robert Monroe

[pbaldy]

Happy to help, Robert. Glad we got it working.