当查询结果没有数据时，提示类型不匹配

snryga

Function 查询S()
Dim strWhere As String
    strWhere = ""
    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

    Debug.Print strWhere

    Me.[子窗体].Form.Filter = strWhere
    Me.[子窗体].Form.FilterOn = True

End Function

当查询结果没有数据时，显示下面的提示，可否屏蔽.

snryga

需要增加什么代码呢？

tmtony

出错时 strWhere 内容是什么呢

snryga

出错时，提示就是上面的图片啊。没有其它内容了

roych

如果没记错的话，没有数据时，筛选属性应该改成这样的：
Me.[子窗体].Form.FilterOn = False
如果仍有错误，上传附件吧。