求助，查询按钮代码

qp370982

求助，查询按钮代码请各位老师帮忙写一下查询按钮代码
要求就是在主窗体上设置查询条件（可同时对多项条款进行条件设置），在子窗体上显示符合查询条件的记录

Henry D. Sy

Private Sub 查询_Click()
    Dim strCriteria As String
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            If Not IsNull(ctl) Then
                strCriteria = strCriteria & ctl.Name & " like '*" & ctl & "*' AND "
            End If
        End If
    Next
    If strCriteria <> "" Then
        strCriteria = Left(strCriteria, Len(strCriteria) - 5)
    End If
    Me.档案子窗体.Form.Filter = strCriteria
    Me.档案子窗体.Form.FilterOn = True
End Sub

qp370982

老师无法对“曾经接受过的接教育”、“身份”、“毕业形式”三项进行条件设置查询，这三项是关联表上的内容，这也是我犯愁的地方，请老师在帮在下一下（学历已改为曾经接受过的教育）

Henry D. Sy

什么意思

qp370982

老师，子窗体的每一条记录前都有一个加号，点击加号才会出现“曾经接受过的接教育”、“身份”、“毕业形式”等内容，也就是说“曾经接受过的接教育”、“身份”、“毕业形式”三项是子表上的内容，而主表上没有。
而在主窗体上对“曾经接受过的接教育”、“身份”、“毕业形式”三项进行条件设置查询时，并不能在子窗体上筛选出符合条件的记录。这也是我犯愁的地方，请老师在帮在下一下（学历已改为曾经接受过的教育）

qp370982

请各位老师帮忙

qp370982

请各位老师帮忙

qp370982

请哪位老师在帮忙看看

qp370982

那位老师在，请帮忙一下

qp370982

等待中