Using a Combobox to Populate a textbox

[atrodden]

This one is really bugging me, I have a table filled with company contacts and form with a combo box containing the contacts names.

When a contact is selected I want it to show their Telephone, Mobile and email address in text boxes below. But it only shows the telephone number and the other two fields stay blank.

Any idea what I'm doing wrong ?

I have this code assigned to the combobox:

Private Sub MainContact_Change()
Me.Text169 = Me.MainContact.Column(3)
Me.Text167 = Me.MainContact.Column(2)
Me.Text177 = Me.MainContact.Column(1)
End Sub

And this is the row source:

SELECT tbl_Contacts.Salutation & " " & tbl_Contacts.ContactForename & " " & tbl_Contacts.ContactSurname AS MainContact, tbl_Contacts.ContactTelephone, tbl_Contacts.ContactMobile, tbl_Contacts.ContactEmail
FROM tbl_Contacts
WHERE (((tbl_Contacts.ID_Company)=[tbl_CompanyBookings].[ID_Company]));

Thanks in advance

 

[bob fitz]

Try your code in the After Update event of the combo box.

 

[nanscombe]

Have you changed the Column Count of the ComboBox MainContact to 4 so the values are available?

Have you also checked that there is data available in the records you have chosen.

 

[atrodden]

Have you changed the Column Count of the ComboBox MainContact to 4 so the values are available?

Have you also checked that there is data available in the records you have chosen.

My Column count was set to 1, changing it to 4 appears to have fixed the problem! Thank you so much!

 

[Mile-O]

You don't even need code. Just set the ControlSources of your text boxes.

ie

=[MainContact]
=[MainContact]
=[MainContact]