<已解决>如何将列表（多选）作为查询中的条件参数

hgxly

我一个窗体中有个列表框 a（多选） ，窗体的数据内容是通过查询 b 实现。
请教，怎样在查询b的条件中设定列表框参数？
我采用 “[Forms]![查询窗体]![a]”不行。

能否告诉我应该怎样写？先谢了。

Henry D. Sy

将条件循环叠加

hgxly

能否给详细点说明，谢谢。

fnsmydyang

一段实例的代码,自己消化一下,对你一定有帮助
Private Sub 工地_Click()
Set ctl = Me![工地]
For Each varItm In ctl.ItemsSelected   '取得复选之每一工地名称
       a = a & " or local like " & Chr(39) & ctl.ItemData(varItm) & Chr(39)
Next varItm
If a <> "" Then
    If IsNull(Me![厂商]) Then  '取得日期及厂商名称
       a = "inday =#" & Me![计日] & "#" & Right(a, Len(a) - 4)
   Else
       a = "inday =#" & Me![计日] & "# and fid like " & Chr(39) & _
                 Me![厂商] & Chr(39) & " and (" & Right(a, Len(a) - 4) & ")"
    End If
    Me![厂商别_子窗体].Form.Filter = a
    Me![厂商别_子窗体].Form.FilterOn = True
End If
End Sub