Combo Box Reference issue

[evocube]

I have a combo box I am using to fill bound text fields but for some reason it is only filling the first 2 text fields. Here is my code not sure what the issue is. I have modified it many times and cannot get it to poplulate the other fields.

Private Sub ccbo_AfterUpdate()
Me.Customer.Value = Me.ccbo.Column(1)
Me.Billing_Address.Value = Me.ccbo.Column(2)
Me.City.Value = Me.ccbo.Column(3)
Me.State.Value = Me.ccbo.Column(4)
Me.Zip_Code.Value = Me.ccbo.Column(5)
Me.Contact.Value = Me.ccbo.Column(6)
Me.Phone_1.Value = Me.ccbo.Column(7)
Me.Phone_2.Value = Me.ccbo.Column(8)
Me.Fax.Value = Me.ccbo.Column(9)
Me.Other.Value = Me.ccbo.Column(10)

End Sub

Thanks,

 

[boblarson]

Not sure what the problem is from your description but I can see that you are storing redundant data. You should not be storing this data more than once. It should remain in the current place and you should ONLY be storing the ID number of the contact record and not storing all of those other fields over and over again. That is non-normalized data and it is not necessary to do so. You store the appropriate ID in the second table and then you have the values when you use a query (which can be used in approx 99.9% of the places you would use a table).

 

[evocube]

I completely agree with you but am at a loss on how to do it. Its been a long time since i have done access and table relationships were never my strong point.