通过FILTER来查询,系统显示"您输入的表达式对属性Filter的引用无效。"

lyytang

主窗体输入查询条件,在子窗体显示查询结果,子窗体包含一个无限制条件的查询集合.

在查询按钮的事件里通过FILTER来查询,可是点击按钮系统提示

"您输入的表达式对属性Filter的引用无效。",应该是对FILTER引用的写法有问题,请高手帮忙看看

代码如下:

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 Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    MsgBox strWhere

    Me.存书查询子窗体.Form.Filter = strWhere
    Me.存书查询子窗体.Form.FilterOn = True

代码如上

lyytang

或许是对子窗体的设置有问题?

lyytang

大家帮帮忙啊

海狸先生

上传你的文件吧