Office中国论坛/Access中国论坛

标题: ACCESS项目的模糊查询 [打印本页]

作者: fisher1013 时间: 2007-5-23 22:45
标题: ACCESS项目的模糊查询
神啊99我吧  现在使用ACCESS 项目 (以前是单机的)
遇到不好解决的问题代码目的是想通过在文本框输入产品编号,通过模糊查询,查询某种系列的产品.
单机版代码(刘小军查询改的已通过):
Dim strWhere As String  '定义条件字符串

strWhere = "" '设定初始值－空字符串

If Not IsNull(Me.请输入产品编号) Then
      '有输入
      strWhere = strWhere & "([product_code] like '*" & Me.请输入产品编号 & "*') AND "
End If

If Len(strWhere) > 0 Then
      '有输入条件
      strWhere = Left(strWhere, Len(strWhere) - 5)
End If

Me.产品列表.Form.Filter = strWhere
Me.产品列表.Form.FilterOn = True

项目版:
Dim strWhere As String

strWhere = Null

If (Me.[请输入产品编号]) <> Null Then

      strWhere = strWhere & "([product_code] like'% me.请输入产品编号%')"

End If

'If Len(strWhere) > 0 Then
   ' strWhere = Left(strWhere, Len(strWhere) - 5)
End If

   Me.产品列表.Form.Filter = strWhere
   Me.产品列表.Form.FilterOn = 1

通过调试其他几处经过修改都通过了问题是项目版的
"%me.请输入产品编号%"  SQL 不识别
如果换成"%J%" "%E%" 程序可以通过能查询

但是我要的是我在文本框的输入能传递到LIKE中

跪求解答~~

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