Combo's limited by other combo value

[David30184]

I have three tables (SkillList), (SubSkillList), and (SubSkillList2) to populate 3 combo boxes - cboSkillList, cboSubSkillList and cbosubSkillList2. I want each limited by the proceeding. The first works fine (SubSkillList) IS limited by (SkillList). I'm unable to get the third to return a value. It's returning...

Syntax error (missing operator) in query expression '[SubSkillID] = Class A'

where "Class A" is the text of the selected value in the table (SubSkillList) - can't determine where it's failing (?) Any guidance is appreciated!!

Code as follows:

Private Sub cboSkillList_AfterUpdate()


With Me![cboSubSkillList]
If IsNull(Me!cboSkillList) Then
.RowSource = ""
Else
.RowSource = "SELECT [SubSkill] " & _
"FROM SubSkillList " & _
"WHERE [SkillID]=" & Me!cboSkillList
End If
Call .Requery
End With
End Sub



Private Sub cbosubSkillList_AfterUpdate()

With Me![cboSubSkillList2]
If IsNull(Me!cboSubSkillList) Then
.RowSource = ""
Else
.RowSource = "SELECT [SubSkill2] " & _
"FROM SubSkillList2 " & _
"WHERE [subSkillID]=" & Me!cboSubSkillList
End If
Call .Requery
End With


End Sub

[ranman256]

You've gone the long way on this. Each combo should connect to a query.

SkillList.rowsource = qsList1

cbosubSkillList.rowsource = "qsList2" where the query qsList2: should reference the combo : SkillList as criteria

same with the 3rd combo
THEN the only code needed is

cbosubSkillList_AfterUpdate()
   cbosubSkillList.requery
end sub

Whenever you change a combo value, run a REQUERY on the other combos. (not big blocks of code)

[John_G]

If the combo box values are text and not numeric valies, you need quotation marks around the values:

.RowSource = "SELECT [SubSkill2] " & _
"FROM SubSkillList2 " & _
"WHERE [subSkillID]='" & Me!cboSubSkillList & "'"

and it appears the values in Me!cboSubSkillList are text values.

HTH

John

[David30184]

I'll try that out - Thanks!!