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

转体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

是控件方面的错误，我将主窗体上面的控件全部用表生成，然后去掉绑定，就可以了{:soso_e113:}
绕了个大弯啊，又回来了

Henry D. Sy

转体118 发表于 2011-10-11 10:35
刚试过更改日期的参数了，控件的属性都保持默认了，还是出现同样的问题。

默认是在属性窗口里设定的。
而您的情况分明是在代码里用错了，方法或属性！

转体118

刚试过更改日期的参数了，控件的属性都保持默认了，还是出现同样的问题。

转体118

我也猜{:soso_e118:}

Henry D. Sy

控件的属性或者方法使用错误！
跟这些查询语句应该无关，没有例子大家只能猜！

tzh16000

转体118 发表于 2011-10-9 16:06
还是同样的问题

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 "
=========
如果[销售日期]是DATE型,把这一段改成
If Not IsNull(Me.开始日期) Then
strWhere = strWhere & "([销售日期] >= #" & Me.开始日期 & "#) AND "
End If
If Not IsNull(Me.结束日期) Then
strWhere = strWhere & "([销售日期] <= #" & Me.结束日期 & "#) AND "
同时把窗体上的开始日期\结束日期控件属性格式也改成与[销售日期]一样的日期格式试试看

转体118

{:soso_e153:}

yanghua1900363

确实很郁闷  ACCESS2010没有提供向前兼容的功能

转体118

没有其它版次啊