查询时 跳出对象不支持该属性或方法 （头都大了）

转体118

{:soso_e127:}
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.员工ID) Then
strWhere = strWhere & "([员工ID] like '*" & Me.员工ID & "*') AND "
End If
If Not IsNull(Me.名称) Then
trWhere = 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
If Not IsNull(Me.开始日期) Then
strWhere = strWhere & "([销售日期] >= #" & Format(Me.开始日期, "yyyy-mm-dd") & "#) AND "
End If
If Not IsNull(Me.结束日期) Then
strWhere = strWhere & "([销售日期] <= #" & Format(Me.结束日期, "yyyy-mm-dd") & "#) AND "
End If
If Len(strWhere) > 0 Then
strWhere = Left(strWhere, Len(strWhere) - 5)
End If

Me.销售查询子窗体.Form.Filter = strWhere
Me.销售查询子窗体.Form.FilterOn = True


Exit_查询_Click:
    Exit Sub

Err_查询_Click:
    MsgBox Err.Description
    Resume Exit_查询_Click
   
End Sub

转体118

大大们，看看啊，在线等，急用啊

Henry D. Sy

传例子

转体118

没权限啊

转体118

{:soso_e126:}

Henry D. Sy

什么意思？

转体118

这么传例子？

转体118

新手，不好意思啊

转体118

没人可以回答吗?

Henry D. Sy

转体118 发表于 2011-10-9 14:15
没人可以回答吗?

回复里有个附件，你点击他就可以上传附件！
没有附件看不出问题的，