VBA 代码实现模糊查找定位记录

旺彩童子　发表于：2009-06-24 13:16:36 　

复制

窗体有一表记录（DATASHEET) 三个字段（凭证号，月份，来源）N 多条记录数。现在窗体头添加一文本控件和一命令按扭。

要求实现功能：在文本框输入凭证号中的某几个字符（凭证号挺长的）。按下命名按钮。凭证号字段根据文本的数据实现模糊查找。并吧指针指向满足该条件记录的第一条。

求代码。不晓得如何应用 Docmd.findrecord。。。也许有更好的代码。。

Top

竹笛发表于：2009-06-24 14:03:51

在命令按钮的单击事件中写代码：

me.recordsource="select * from 表名称 where 凭证号 like *" & me.文本框名称 & "*"

Top

旺彩童子发表于：2009-06-24 14:38:57

谢谢

这段代码只是把符合条件的记录在子窗体过滤出来。其它的蕴藏起来了。我要的是早到符合条件的第一条记录并把当前指针跳到这条记录上。其它的记录不蕴藏。。

Top

点燃一支烟发表于：2009-06-24 17:17:47

上传库，以便减少示例的工作量

Top

赵泽彬发表于：2009-06-24 21:15:10

比如说在凭证号文本框里查找凭证号

a = me.凭证号
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "select * from DATASHEET"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
For i = 1 To rs.RecordCount
If rs("凭证号") Like "*" & a & "*" Then
i = 1 + rs.RecordCount
Else
rs.MoveNext
End If
Next i
找到的话就停在那了

别忘了最后加入set rs=nothing 撤销RS

Top

周金涛发表于：2009-06-24 21:38:43

这是刘小军mvp的一个查询例子,给你一个抛砖引玉的作用,不知是否是你要的

点击下载此附件

Top

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

Access交流中心

[5分]VBA 代码实现模糊查找定位记录