Office中国论坛/Access中国论坛

标题: 在线求助！根据刘小军师傅的例子做出的查询还是有错，请好心人帮帮我。 [打印本页]

作者: jsf2008 时间: 2008-2-22 16:59
标题: 在线求助！根据刘小军师傅的例子做出的查询还是有错，请好心人帮帮我。
在线求助！根据刘小军师傅的例子做出的查询还是有错，代码没有提示出错，但执行时对象没有反映，我找了几天原因，也对比了例子，还是找不出问题所在，现只有求助各位！，

作者: jsf2008 时间: 2008-2-22 17:06
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 时间: 2008-2-22 20:20
要改变窗体筛选条件呀
Me.供应商查询子窗体.Form.Filter = strWhere
Me.供应商查询子窗体.Form.FilterOn = True
Me.供应商查询子窗体.Form.Requery

作者: guoanxiang 时间: 2008-2-22 21:11

窗体的数据为空～～～

作者: jsf2008 时间: 2008-2-23 13:40
谢谢了~~~~~~~~~~~~~~

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)