按动态查询的值筛选表单(vba)

Question

首先，很抱歉我的英语，我是法国人。我会尽我最大的努力，我保证！

我有一个子窗体，其中包含要挂载的工具包的详细信息(用于生产目的)。其中几个套件与其他套件共享部件，我进行了一个查询以确定这一点。

所以我们有一个包含我的工具包及其详细信息的子窗体：

Kit Number
----------------------------------------
Kit A
Kit B
Kit C

我有一个查询，其中标识套件共享部件，如套件A与套件A和套件B等…

该查询由子窗体作为Main_Kit的条件进行过滤：[Forms]![frm_Production01].[Form]![q10_KitsToProduced_GroupBy_subform].[Form]![Kit]

通过在我的子窗体(数据表视图)上裁剪一个工具包，我想用相关的共享部件工具包来过滤该子窗体。并且能够不经过滤并将该过滤器应用于另一试剂盒。

现在，我在我的子窗体上创建了一个未绑定的文本框，并带有一个click事件，以根据查询过滤我的工具包：

Private Sub Text30_Click()
    Dim strFilter As String
    strFilter = "[Kit] In('" & "[q27_KitsWithSharedParts_2]![Kit_Number]" & "')"
    Me.Filter = strFilter
    Me.FilterOn = True
End Sub

(套件或套件编号字段不是数字，而是文本。)

所以，我的问题是不工作，导致一个空的子窗体。

你知道怎么做这样的事情吗？

非常提前感谢您。

Answer 1

不要在字段引用两边加上引号。引号表示文字字符串，而您需要字段或控件中的值。Kit是数字字段吗？如果是这样，也不要使用撇号分隔符。可能不需要查询名称前缀。

strFilter = "[Kit] In('" & [q27_KitsWithSharedParts_2]![Kit_Number] & "')"