Hi everyone,
I have a combo box which looks up customers in my customers table and fills in the customer details on my orders form. However, the customer information that it enters on the form isn't saved, each time I select a different customer from the combo box that customer's details appear in every record. Here is the after update code I'm using to fill in the details:
Private Sub Cust_AfterUpdate()
Me![CustID] = [Cust].Column(0)
Me![Name] = [Cust].Column(1)
Me![Address] = [Cust].Column(2)
Me![Area] = [Cust].Column(3)
Me![Area2] = [Cust].Column(4)
Me![Town] = [Cust].Column(5)
Me![PostCode] = [Cust].Column(6)
Me![Country] = [Cust].Column(7)
Me![PhoneNo] = [Cust].Column(8)
Me![Advert] = [Cust].Column(9)
End Sub
I hope someone can help, many thanks in advance.
I have a combo box which looks up customers in my customers table and fills in the customer details on my orders form. However, the customer information that it enters on the form isn't saved, each time I select a different customer from the combo box that customer's details appear in every record. Here is the after update code I'm using to fill in the details:
Private Sub Cust_AfterUpdate()
Me![CustID] = [Cust].Column(0)
Me![Name] = [Cust].Column(1)
Me![Address] = [Cust].Column(2)
Me![Area] = [Cust].Column(3)
Me![Area2] = [Cust].Column(4)
Me![Town] = [Cust].Column(5)
Me![PostCode] = [Cust].Column(6)
Me![Country] = [Cust].Column(7)
Me![PhoneNo] = [Cust].Column(8)
Me![Advert] = [Cust].Column(9)
End Sub
I hope someone can help, many thanks in advance.