Cascading List Boxes

[Gee]

I do not understand what I am doing wrong with this code.
It is supposed to work like this:
Click on one or more from the Manu list, which determines what is on the Segu list and Modu list.

Private Sub ListManu_AfterUpdate()
Me.ListSegu.RowSource = "SELECT Seg" & "FROM BAMVtbl" & "WHERE Manufacturer=" & Nz(Me.ListManu)
Me.ListModu.RowSource = "SELECT Model" & "FROM BAMVtbl" & "WHERE Seg=" & Me.ListManu
End Sub

Thank you in advance for any help you can give me.

[June7]

Need to requery the dependent comboboxes.

Me.ListSegu.Requery
Me.ListModu.Requery

[Gee]

Just stick those tow requeries on to the end?
I'm lost on this one.

[June7]

Yes. Could even put the SQL statements directly in the RowSource property of controls, like:
SELECT Model FROM BAMVtbl WHERE Seg=
[ListManu]

You actually have more concatenation than necessary:
Me.ListModu.RowSource = "SELECT Model FROM BAMVtbl WHERE Seg=" & Me.ListManu

[Gee]

I did make some mods, I only have the ListManu now, It contains the Manufacturer and Seg.
I still can't figure out how to get it to work.
What I need is:f
If they click on a selection in ListManu, then ListModu should only show those Models whos record's Manufacturer and Seg fields match the data in ListManu.

I tried puting that code into the RowSource, and it gave me a box to input the Model before the form would open and that's not what I need.
I know I'm getting close...any other suggestions?

[Gee]

Private Sub ListManu_AfterUpdate()
Me.ListModu.RowSource = "SELECT Model FROM BAMVtbl WHERE Seg & Manufacturer=" & Me.ListManu
Me.ListModu.Requery
End Sub

[June7]

That sql syntax is wrong.

Show the sql for ListManu RowSource. Is there a unique ID field?

Review http://datapigtechnologies.com/flash...combobox2.html

[Gee]

SELECT DISTINCT [dbo_BAMVtbl].[Seg], [dbo_BAMVtbl].[Manufacturer] FROM dbo_BAMVtbl ORDER BY [Seg], [Manufacturer];

[June7]

So there is no unqiue ID field in the ListManu combobox RowSource. This complicates.

Are Seg and Manufacturer text or number fields? If text use apostrophe delimiters.

Try:
Me.ListModu.RowSource = "SELECT Model FROM BAMVtbl WHERE Seg='" & Me.ListManu.Column(0) & "' AND Manufacturer='" & Me.ListManu.Column(1) & "'"

[Gee]

No, that didn't work.
The problem isnt' really in the row sources....it's in the AfterUpdate.
The user clicks on the row in ListManu that contains the Seg and Manufacturer they want, and ListModu is supposed to populate (narrow down the list) with the records that match...Seg and Manufacturer to Model.
Before I do anything both List Boxes are populated correctly, but when I click on a selection in ListManu, ListModu doesn't narrow down.

[June7]

It should work.

If you want to provide db for analysis, follow instructions at bottom of my post.

[Gee]

I wish I could but I can't. It's proprietary data ... even the names of the fields have been changed to protect my employment.
I put that into the ListModu Rowsource and it said the record source was mispelled etc.

[June7]

Don't care about data, structure is the issue. If you can't make copy and scrub or delete data or extract relevent objects to another file, can't help because I don't know your database. If spelling is wrong then need to figure out correct spelling. You have example of the technique, need to apply to your situation.

I will be unable to work with database files for two weeks starting tomorrow.

[Gee]

Thank you for trying.