在线求助！根据刘小军师傅的例子做出的查询还是有错，请好心人帮帮我。

jsf2008

在线求助！根据刘小军师傅的例子做出的查询还是有错，代码没有提示出错，但执行时对象没有反映，我找了几天原因，也对比了例子，还是找不出问题所在，现只有求助各位！，

jsf2008

Private Sub 查询_Click()

On Error GoTo Err_查询_Click

Dim strWhere As String '定义条件字符串
strWhere = "" '设定初始值-空字符串
If Not IsNull(Me.供应商) Then
    '有输入
    strWhere = strWhere & "([供应商] like '*" & Me.供应商 & "*') AND"
   End If
   
   '判断【经营项目】条件是否有输入的值
    If Not IsNull(Me.经营项目) Then
        '有输入
        strWhere = strWhere & "([经营项目] like '" & Me.经营项目 & "') AND "
    End If


   '判断【类别】条件是否有输入的值
    If Not IsNull(Me.类别) Then
        '有输入
        strWhere = strWhere & "([类别] like '" & Me.类别 & "') AND "
    End If
   
   
   '判断【联系人】条件是否有输入的值
    If Not IsNull(Me.联系人) Then
        '有输入
        strWhere = strWhere & "([联系人] like '" & Me.联系人 & "') AND "
    End If

Me.供应商查询子窗体.Requery

End Sub

请问问题在哪？

iamee

要改变窗体筛选条件呀
    Me.供应商查询子窗体.Form.Filter = strWhere
    Me.供应商查询子窗体.Form.FilterOn = True
    Me.供应商查询子窗体.Form.Requery

guoanxiang

窗体的数据为空～～～

jsf2008

谢谢了~~~~~~~~~~~~~~