combo box choices based on first combo box

[Eric]

I know this may be pretty basic and has been covered before, but I can't
remember how to get this to work.

Right now I have 2 combo boxes set up with 2 tables for each.
Combo box 1 has 3 choices, A, B, C.
For Combo box 2 I want the list of choices to be dependent on choice from
combo box 1. Say I choose 'A' from combo box 1, then I only want those
options related to A to be available choices for combo box 2 'List 1'. If I
choose 'B' then 'List 2'. etc.


Thanks for the input,
Eric

 

[Arvin Meyer [MVP]]

Have a look at the sample database at:

http://www.accessmvp.com/Arvin/Combo.zip

which uses listboxes, but the code and methods are identical.

 

[Al Campagna]

Eric,
Use the value from cbo1 to filter the query behind cbo2.
For example, given a combo named cboLetter, with 3 possible values
(A,B,C)...
In the query (RowSource) behind cboTwo, use the following criteria
against the field Letter...
=Forms!frmYourForm!cboLetter
Also, use the AfterUpdate event of cboLetter to Requery cboTwo, so
whenever cboLetter changes, cboTwo's selections stays in synch.
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."

 

[Eric]

I'm not getting it to work quite right.

I should have metioned that I'm using Access 2000.
Does this make a difference?
Eric

 

[Al Campagna]

Eric,

I'm not getting it to work quite right.

Unfortunately that doesn't tell us anything.
Do you get an error?
Did you try Arvin's solution?

Please describe in detail what problem you're having, how you have cbo1
and cbo2 set up, and cut and paste any code you're using in your reply.
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."

 

[Eric]

I tried to modify Arvins list box example to fit my combo box.
After selecting from cbo1 there is error message Field "Issues.Problems"
can't be zero length string


Private Sub Problem_Area_AfterUpdate()
Me.Problem_Area = "" (debug goes to this line)
Me.Problem_Area.Requery
Me.Requery

End Sub


Private Sub Combo93_AfterUpdate()
Me.Requery
End Sub

 

[Al Campagna]

Eric,
I think you'll have to work that out. That's probably not related to
Arvins code.
Check your table to see if you have the bound field for that control set
to AllowZeroLength to YES.

I asked for details about your combo boxes. (their names, columns,
column widths, bound to fields)

I do notice that you haven't incorporated Arvin's code correctly. The
Problem_Area After Update code is supposed to operate against your second
combo, not itself.
Otherwise... we need more details to go further...
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."

 

[haunt]

http://itlinks.co.cc/difference-between-cisco-memory-modules-and-third-party-counterparts/
http://itlinks.co.cc/10-quick-tips-to-speedup-windows-xp/
http://itlinks.co.cc/how-to-help-prevent-computer-viruses/
http://itlinks.co.cc/advanced-troubleshooting-tips-for-general-usb-problems-in-windows-xp/
http://itlinks.co.cc/making-the-usb-thumb-drive-bootable/
http://itlinks.co.cc/where-to-download-free-anti-virus-and-anti-spyware-software/
http://itlinks.co.cc/how-to-remove-the-virus-and-spyware/
http://itlinks.co.cc/virus-in-windows-system-registry/
http://itlinks.co.cc/how-to-remove-the-spyware-or-adware/
http://itlinks.co.cc/uninstall-spyware-programs-from-control-panel/
http://itlinks.co.cc/how-to-use-msconfig/
http://itlinks.co.cc/how-to-start-windows-xp2000-in-safe-mode/