cannot limit 3rd cascding combo box

[davidadowns]

selection in cboSkillSet limits cboSubSkills. But selection in cboSubSkills will not limit cboSubSkills2. Entire tblsubSkills2 is returned in cboSubSkills2 box, Any item can be selected and written to the table I need it in, But I can't limit it to the selection in the SubSkill2 box



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!cboSubSkillList2) Then
.RowSource = ""


Else
.RowSource = "SELECT [SubSkill2] " & _
"FROM SubSkillList2 " & _
"WHERE [subSkillID]=" & Me!cboSubSkillList **(have also tried adding ![SubSkillID] here)**

End If
Call .Requery
End With

End Sub

[ItsMe]

...But selection in cboSubSkills will not limit cboSubSkills2...

I do not see an event handler for cboSubSkills. It sounds like you need to add an afterupdate event for cboSubSkills and include a WHERE clause (that considers the value cboSubSkills) to the RowSource of cboSubSkills2.

[John_G]

Private Sub cbosubSkillList_AfterUpdate()
    With Me![cboSubSkillList2]
         If IsNull(Me!cboSubSkillList2) Then
          .RowSource = ""
        Else
             .RowSource = "SELECT [SubSkill2] " & _
                            "FROM SubSkillList2 " & _
                            "WHERE [subSkillID]=" & Me!cboSubSkillList   **(have also tried adding ![SubSkillID] here)**

         End If
      .Requery
    End With

 End Sub

You are checking the wrong combo box in the red highlight - it should be Me!cboSubSkillList (without the "2"), because it's the selection in that combo that determines the list in cboSubSkillList2.