Cascading Combo Boxes

[Lou_Reed]

I really need an answer to this question since it is holding up the whole process for me. I am using the form that was offered to me in post #5. I put in the choices in the drop box as explained by
that post. It says that the record source does not exist. I am not sure where to take this. In other words how do I fix this?



Any help appreciated. Thanks in advance.

Respectfully,

Lou Reed

[Lou_Reed]

This is the row of code in question.

Me!cboAssoc_Gov.RowSource = "NADP;Pathways;Pathways 640"

I changed it by dropping the pair of double quotes on the rhs. It still gave me an error. I also changed in the previous line
"Gov" to "gov" , but again got nothing. This one has me confused in that I cannot see what I am doing wrong.

Any help appreciated. Thanks in advance.

Respectfully,

Lou Reed

[Lou_Reed]

double post removed

[John_G]

Did you make sure to change the Row Source Type property of Combo2 to Value List? That is the most likely source of the error.

[Lou_Reed]

Yes, that did it. Just change Row Source Type for Combo2 to 'Value List".

I have another problem here. If I start entering government workers and their associations, say I do it for 5 government workers. Then, when I enter a six worker who is not a government, but a contractor, I still get the choices for a government worker. This should not happen. There should be no choices for contr workers . Those choices are a holdover from putting in the government workers and they should be gone. Simply changing to a new worker who is a contr worker should offer no choices at all.

I am guessing that the way to correct this is to use a requery statement. But where?

I guess that I should put it immediately at the end of the government choices in the If-Endif section.

It would be something like this.

Old code

Private Sub cboGov_or_Contr_AfterUpdate()
   If Me!cboGov_or_Contr = "gov" Then
   Me!cboAssoc_Gov.RowSource = "NADP;Pathways;Pathways 640"
   End If
   Me!cboAssoc_Gov.Requery

New code

Private Sub cboGov_or_Contr_AfterUpdate()
   If Me!cboGov_or_Contr = "gov" Then
   Me!cboAssoc_Gov.RowSource = "NADP;Pathways;Pathways 640"
   Me!cboAssoc_Gov.Requery
   End If

Is this correct? Any help appreciated. Thanks in advance.

Respectfully,

Lou Reed

[John_G]

Not quite. The AfterUpdate procedure changes the list when you select "gov", but it doesn't do anything if you select something else, so this list in combo2 just stays there. What you need to do is clear the list if the other option is selected from combo1:

Private Sub cboGov_or_Contr_AfterUpdate()
   If Me!cboGov_or_Contr = "gov" Then
     Me!cboAssoc_Gov.RowSource = "NADP;Pathways;Pathways 640"
   else
     Me!cboAssoc_Gov.RowSource = ""   
   End If
   Me!cboAssoc_Gov.Requery