cascading list boxes for query

  • Thread starter Thread starter Robert Painter
  • Start date Start date
R

Robert Painter

Hi
have grabbed code for cascading list/cbo boxes and adapted to hopefully
suit.
lstCategory from tblcategories.categorydescription
lstSkill from tblskill.skilldescription

using the following code:

Private Sub lstCategory_AfterUpdate()
Dim strCateg As String
Dim varSelected As Variant

If Me.lstCategory.ItemsSelected.Count > 0 Then
For Each varSelected In Me.lstCategory.ItemsSelected
strCateg = strCateg & "'" & Me.lstCategory.ItemData(varSelected) & "',
"
Next varSelected
strCateg = Left(strCateg, Len(strCateg) - 2)
Me.LstSkill.RowSource = "SELECT SkillDescription " & _
"FROM tblSkills " & _
"WHERE tblCategory IN (" & strCateg & ") " & _
"ORDER BY SkillDescription"
End If

I cannot get rowsource populated hence nothing showing in lstSkill

Any ideas of what i am doing wrong.

Have managed to cascade but done another way but lst only refreshes when
focused.

Robert
 
Thanx for the assistance. Have managed to now get it working correctly..
once again thankyou

Robert
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

List Box Selection 3
Print list box on a report 3
Trouble with Multi List Box 1
Multi Select List box to filter data on Continues form 3
List box selection with date selection 1
Listbox with selection of start and end date 6
Using MultiSelect List Box to pull records of selected IDs from a report 4
query not working right 3

Back
Top