Combo Box Error in Row Source

[Proaccesspro]

I have a subform with 2 drop down boxes. The choices in the 2nd drop down box depend on the value of the first . When I run the subform on its own, it all works beautifully. However, when the I run the main form that calls the subform, I get a one of those parameter input required messages. As Greg Brady would say, "what gives"? Here is the code (query) from the subform:

SELECT SecondaryDisord er.[Secondary Disorder]
FROM SecondaryDisord er
WHERE (((SecondaryDis order.[Primary Disorder])=[forms]![case subform]![combo86]));

[Rabbit]

You would put it in the after update event of the combo box that should trigger a change.

Take a look at this tutorial.

[Proaccesspro]

Are you trying to do this from the after update event of the combobox? Because that's where you have to do it from.

You can't just set the control source of the combobox to that SQL statement because it will never update.

And you said the "code (query) from the subform", I assume this is in reference to the row source of the combo box.

Yes.... the first box is titled combo86...I have this code in the after update event. The second combo box is titled combo90. what do i need to add?

Me![Combo90] = Null
Me![Combo90].Requery


[Forms]![case subform].Form.[Combo86]

End Sub

[Proaccesspro]

Yes.... the first box is titled combo86...I have this code in the after update event. The second combo box is titled combo90. what do i need to add?

Me![Combo90] = Null
Me![Combo90].Requery


[Forms]![case subform].Form.[Combo86]

End Sub

Here is the code I created.....It' s not quite working...

Private Sub Combo86_AfterUp date()
With Me![Combo86]
If IsNull(Me!Combo 90) Then
.RowSource = ""
Else
.RowSource = "Select[Secondary Disorder] FROM SecondaryDisord er WHERE [Primary Disorder]=" & Me!Combo86

End If
Call .Requery
End With


Ed Sub

[Proaccesspro]

Here is the code I created.....It' s not quite working...

Private Sub Combo86_AfterUp date()
With Me![Combo86]
If IsNull(Me!Combo 90) Then
.RowSource = ""
Else
.RowSource = "Select[Secondary Disorder] FROM SecondaryDisord er WHERE [Primary Disorder]=" & Me!Combo86

End If
Call .Requery
End With


Ed Sub

Here is my latest code....When run, the second combo box does not have any choices...in other words, i guess it is not finding a match

[Rabbit]

You're using the wrong combo boxes. And some of your spacing is wrong. And this assumes that Combo86 and [Primary Disorder] are numbers.

Private Sub Combo86_AfterUpdate()
With Me![Combo90]
   If IsNull(Me!Combo86) Then
      .RowSource = ""
   Else
      .RowSource = "Select [Secondary Disorder] FROM SecondaryDisorder WHERE [Primary Disorder]=" & Me!Combo86
   End If
   Call .Requery
End With
End Sub

[Proaccesspro]

You're using the wrong combo boxes. And some of your spacing is wrong. And this assumes that Combo86 and [Primary Disorder] are numbers.

Private Sub Combo86_AfterUpdate()
With Me![Combo90]
   If IsNull(Me!Combo86) Then
      .RowSource = ""
   Else
      .RowSource = "Select [Secondary Disorder] FROM SecondaryDisorder WHERE [Primary Disorder]=" & Me!Combo86
   End If
   Call .Requery
End With
End Sub

They are NOT numbers.

[Rabbit]

They are NOT numbers.

That's what your original code implied.

You'll need to use single quotes to tell it that it's text.

"Select [Secondary Disorder] FROM SecondaryDisorder WHERE [Primary Disorder]='" & Me!Combo86 & "'"

[Proaccesspro]

That's what your original code implied.

You'll need to use single quotes to tell it that it's text.

"Select [Secondary Disorder] FROM SecondaryDisorder WHERE [Primary Disorder]='" & Me!Combo86 & "'"

Here is what I have:

Private Sub Combo86_AfterUp date()
With Me![Combo90]
If IsNull(Me!Combo 86) Then
.RowSource = ""
Else
.RowSource = "Select [Secondary Disorder] FROM SecondaryDisord er WHERE [Primary Disorder]='" & Me!Combo86 & "'"
End If
Call .Requery
End With
End Sub

[Proaccesspro]

That's what your original code implied.

You'll need to use single quotes to tell it that it's text.

"Select [Secondary Disorder] FROM SecondaryDisorder WHERE [Primary Disorder]='" & Me!Combo86 & "'"

Here is what I have. Still no data in Combo90

Private Sub Combo86_AfterUp date()
With Me![Combo90]
If IsNull(Me!Combo 86) Then
.RowSource = ""
Else
.RowSource = "Select [Secondary Disorder] FROM SecondaryDisord er WHERE [Primary Disorder]='" & Me!Combo86 & "'"
End If
Call .Requery
End With
End Sub

[Proaccesspro]

Here is what I have. Still no data in Combo90

Private Sub Combo86_AfterUp date()
With Me![Combo90]
If IsNull(Me!Combo 86) Then
.RowSource = ""
Else
.RowSource = "Select [Secondary Disorder] FROM SecondaryDisord er WHERE [Primary Disorder]='" & Me!Combo86 & "'"
End If
Call .Requery
End With
End Sub

I copied EXACTLY what you wrote.....still NO cigar!!!

Private Sub Combo86_AfterUp date()
With Me![Combo90]
If IsNull(Me!Combo 86) Then
.RowSource = ""
Else
.RowSource = "Select [Secondary Disorder] FROM SecondaryDisord er WHERE [Primary Disorder]='" & Me!Combo86 & "'"
End If
Call .Requery
End With
End Sub