Combo Box Lookup ???

[Dave Elliott]

I have a table called tblzipcode
It has 6 fields
CityID Autonumber Primary Key
City
Zip
State
Area Code
County

I have a form called ZipCodes which I use to lookup the matching
zip,city,state,etc...
The Combo that does the lookup correctlu shows the one that i want with the
matching city,state,zip, etc...
But the other fields on the form; Zip and State do not show the one that I
chose via the Combo
The second Textbox is supposed to show the matching zip for the city chosen
It's control source is =City1.Column(1)
The other Textbox is supposed to show the matching state for the city chosen
It's control source is =City1.Column(2)

Here is the problem:
After I choose the one that I want from the Combo Drop Down Box (City) , it
does not input the correct matching
zip and state, it does however fill in a city with the same name that I
selected with the matching
zip and state.

Example, I choose Freeport, Texas 77541
It fills in Freeport, Minnesota 56331

 

[Jacco]

I have a table called tblzipcode
It has 6 fields
CityID Autonumber Primary Key
City
Zip
State
Area Code
County

I have a form called ZipCodes which I use to lookup the matching
zip,city,state,etc...
The Combo that does the lookup correctlu shows the one that i want with
the matching city,state,zip, etc...
But the other fields on the form; Zip and State do not show the one that
I chose via the Combo
The second Textbox is supposed to show the matching zip for the city
chosen
It's control source is =City1.Column(1)
The other Textbox is supposed to show the matching state for the city
chosen
It's control source is =City1.Column(2)

Here is the problem:
After I choose the one that I want from the Combo Drop Down Box (City) ,
it does not input the correct matching
zip and state, it does however fill in a city with the same name that I
selected with the matching
zip and state.

Example, I choose Freeport, Texas 77541
It fills in Freeport, Minnesota 56331

What kind of info is inside the combobox?

You can use the On Change event for the combo box.

Private Sub ComboBoxName_Change()
[Zip].Value= DoCmd.RunSQL "SELECT zip FROM tblzipcode WHERE combobox = value
End Sub

Jacco