Multiple, MultiSelect Listboxs that run a Query on a Form

[Redbeard]

I am a newbie running Access 2003. A couple of weeks back a member named ADezil help me write a code that let a , MultiSelect Listboxs that run a Query on a Form (many thanks). I have used this code so much that I am trying to expand it to run off more then one list box. However I can’t get it to work. Original code is below.

Private Sub PhotoSearch1_Click()
Dim strOr As String
Dim strDoc As String
Dim varSelect As Variant
Dim ctl As Control
 
strDoc = "frmDescription"
 
Set ctl = Forms!frmPhotoKeywordSearch.Controls("list1")
 
For Each varSelect In ctl.ItemsSelected
  strOr = strOr & "[Photo Keywords] Like '*" & ctl.ItemData(varSelect) & "*' OR "
Next varSelect
 
'   lose the last ' OR '
strOr = Left(strOr, Len(strOr) - 4)
 
DoCmd.OpenForm strDoc, acNormal, , strOr
DoCmd.Close acForm, "frmPhotoKeywordSearch"
End Sub

Here is what I have been trying but it is not working. "list1" is my first listbox and "list2" is the one I am trying to add. Bothe are Multiselect list boxes.

Private Sub PhotoSearch1_Click()
Dim strOr As String
Dim strDoc As String
Dim varSelect As Variant
Dim ctl As Control
 
strDoc = "frmDescription"
 
Set ctl = Forms!frmPhotoKeywordSearch.Controls("list1")
 
For Each varSelect In ctl.ItemsSelected
  strOr = strOr & "[Photo Keywords] Like '*" & ctl.ItemData(varSelect) & "*' OR "
Next varSelect
 
Set ctl = Forms!frmPhotoKeywordSearch.Controls("list2")
 
For Each varSelect In ctl.ItemsSelected
  strOr = strOr & "[Photo Keywords] Like '*" & ctl.ItemData(varSelect) & "*' OR "
Next varSelect
 
'   lose the last ' OR '
strOr = Left(strOr, Len(strOr) - 4)
 
DoCmd.OpenForm strDoc, acNormal, , strOr
DoCmd.Close acForm, "frmPhotoKeywordSearch"
End Sub

Is this simple and I am missing something or really complicated? Any help would be great.

Thanks

[nico5038]

The code looks OK, but I find it strange that you're selecting the same field from multiple listboxes.
Another thing that can cuase trouble is the limitation of the length of the string. When too long it might get truncated. Use a breakpoint and the F8 to single step through your code to see what string is build.

Nic;o)