Combo Box Auto Populate-Applies to EVERY Record

[AccessNewb11]

Hello,
I am having a problem with my DB. I am building a database to help me register people for law enforcement classes. I created tables with info., and a master form to use to register students. Please see my attached database as a sample of what I am talking about.

Please open the form titled "April 30". On this form, I created a combo box for Agency Info., Contact Name and Date of Class. When I select an agency and a contact person, for instance "Police Department" and "Jane Doe", it automatically fills in all of the relevant information. However, it is applying those selections to both my records. Why is it doing this?! i.e. if I were to select "Police Department" and "Jane Doe" for record 1, and "Sheriff Department" and "John Doe" for record 2, they won't stay that way-the selections are being applied to ALL records. Does this make sense? Please view my database to get a view of what I mean.

Please help!
Thank you!



~Access Newb~

[burrina]

I did not download your db but I suspect the problem is with your code to populate the lookup fields. Assuming your form(s) are linked correctly and you have a Primary Key.
Also, I assume your fields are bound controls.





HTH

[AccessNewb11]

No, the fields are unbound.

Here is my code to populate the fields:

Private Sub cmbAgencyInfo_AfterUpdate()
Me.txtCounty.Value = Me.cmbAgencyInfo.Column(1)
Me.txtAddress.Value = Me.cmbAgencyInfo.Column(2)
Me.txtCity.Value = Me.cmbAgencyInfo.Column(3)
Me.txtState.Value = Me.cmbAgencyInfo.Column(4)
Me.txtZipCode.Value = Me.cmbAgencyInfo.Column(5)
End Sub

Private Sub cmbagencycontact_AfterUpdate()
Me.txtphone.Value = Me.cmbagencycontact.Column(2)
Me.txtEmailAddress.Value = Me.cmbagencycontact.Column(3)
Me.txtTitle.Value = Me.cmbagencycontact.Column(4)

End Sub

And yes, I believe they are linked correctly and there are Primary Key's.

Don't know what I'm doing wrong....hm.

Thanks.

[June7]

What is purpose of April30 form? Which table do you want to populate? Are you trying to create new records in Individual table? The form is bound to Individual table.

The Agency combobox is not bound to a field. What purpose does this combobox serve? Same for the Contact, Name of Class, Date of Class comboboxes.

The RecordSource for this form includes the Notes table and should not. Notes should be a subform.

I suspect you are really trying to create records for Jointbl_Individ_ClassID. Data entry options are:

1. single form bound to Jointbl_Individ_ClassID with comboboxes to select IndividualID and DateOfClassID

2. main form bound to Individual and subform bound to Jointbl_Individ_ClassID with combobox to select class/date

3. main form bound to tblDateOfClass and subform bound to Jointbl_Individ_ClassID with combobox to select individual

Instead of using code to populate textboxes with the values from comboboxes, use expression in textbox ControlSource: =[cmbAgencyInfo].[Column](1)