模糊查询失败，请助解决，谢谢！

钟庆泉　发表于：2016-03-09 15:08:36 　

Dim stDocName As String
Dim WhereCondition As String
stDocName = "frm_KF整机档案(改)"
WhereCondition = "[整机编号] like ' * " & [Forms]![frm_KF服务管理]![整机编码] & " * '" '模糊条件查询
DoCmd.OpenForm stDocName, acNormal, , WhereCondition, acFormReadOnly

End Sub

Top

朱先生发表于：2016-03-10 09:22:46

Dim stDocName As String
Dim WhereCondition As String
stDocName = "frm_KF整机档案(改)"
WhereCondition = ""
If Not IsNull(Me.整机编码) Then '这一句的整机编码可以不输入内容，同样可以打开窗体，但也不能缺少，原因待研究
WhereCondition = WhereCondition & "[整机编号] like ' * " & [Forms]![frm_KF服务管理]![整机编码] & " * '"

'End If
DoCmd.OpenForm stDocName, acNormal, , WhereCondition, acFormReadOnly
End Sub
将红字部分加上试试

Top

钟庆泉发表于：2016-03-11 11:45:54

不行哦,打开都是空白窗体

Top

qiecaiban 发表于：2016-03-11 15:21:42

If Not IsNull(Me.整机编码) then `改为 If Not IsNull([Forms]![frm_KF服务管理]![整机编码]) then

看看。

Top

钟庆泉发表于：2016-03-14 15:43:05

还是不行，一样空白窗体

Top

朱先生发表于：2016-03-14 23:24:46

打开窗体是不是只显示筛选的一条且是第一条记录？

是要打开 frm_KF整机档案(改) 这个窗体吧

这个窗体的记录源（表的名称）是什么？

表中的字段有一字段名是整机编号就这样吗？表名、字段名在

WhereCondition = "[整机编号] like ' * " & [Forms]![frm_KF服务管理]![整机编码] & " * '" 要用到

DoCmd.OpenForm stDocName, acNormal, , WhereCondition, acFormReadOnly 改成
DoCmd.OpenForm stDocName, acNormal, WhereCondition,， acFormReadOnly

如果要显示所有筛选记录，余还没做到

Top

钟庆泉发表于：2016-03-15 09:15:18

回复5楼，按2楼的做法，显示的是空白窗体，没有任何记录

stDocName = "frm_KF整机档案(改)" ‘这个是窗体名称

按你的做法，只能显示全部所有记录，起不到筛选目的

但还是很感谢你的回复。

Top

朱先生发表于：2016-03-15 18:54:13

可以进行模糊查询筛选，我已做出来了

将表上传，不需要多少记录有两三条即可，如恐泄密，可将数据进行更改

窗体也上传

Top

钟庆泉发表于：2016-03-16 09:26:47

点击下载此附件

已上传附件，哪位大侠帮改下，感激不尽

Top

竹笛发表于：2016-03-16 10:15:02

Private Sub Command35_Click()
Dim stDocName As String
Dim WhereCondition As String
stDocName = "frm_KF整机档案(改)"
WhereCondition = "[整机编号] like '*" & [Forms]![frm_KF服务管理]![整机编码] & "*'"      '模糊条件查询
DoCmd.OpenForm stDocName, acNormal, , WhereCondition, acFormReadOnly
End Sub

Top

钟庆泉发表于：2016-03-16 10:18:03

谢谢竹笛老师

Top

钟庆泉发表于：2016-03-16 10:26:56

原来是多了几个空格，查了我老半天

Top

总记录：11篇页次：1/1 9 1 :

Access交流中心

模糊查询失败，请助解决，谢谢！