Office中国论坛/Access中国论坛

标题: 关于查找功能的问题[求助] [打印本页]

作者: 小白 时间: 2003-5-12 18:15
标题: 关于查找功能的问题[求助]
我作了一个姓名查询，在输入姓名参数后，查询会根据输入内容自动筛选出记录，只是有一点不太方便，查询出来后前后记录不能翻阅。如果用ACCESS自带的查找工具，这个问题倒是可以解决，不过也有点不方便，每次还要指定查询字段，内容找到后查找窗体也不会自动消失。我想请教各位高手如何输入姓名等参数后，窗体中的记录自动跳到符合输入内容的记录，谢谢！

作者: QINGSOLI 时间: 2003-5-13 07:15
用FindFirst方法找到后，

再用BookMark定位。

如：

Me.RecordSetClone.FindFirst "姓名=" & "'" & me.txtName & "'"
If Not Me.RecordSetClone.NoMatch Then
Me.BookMark=Me.RecordSetClone.BookMark
Else
Msgbox "Cann't find record!"
End If

作者: 小白 时间: 2003-5-13 23:50
QINGSOLI,谢谢你的帮忙，回去后我按你说的做了。我另做了一个窗体查询窗，在

查询窗上设了一个文本框txt0,另设了一个按钮，然后手动设置了按钮的代码。我

对VB可以说是基本上不懂，所以能做的只是依样画葫芦，下面就是我依你说的画

的一个葫芦，请帮忙看看哪儿有问题。

Private Sub 命令2_Click()

Me.RecordsetClone.FindFirst "[forms]![登记窗]![姓名]=" & "'" & Me.

[Forms]![查找窗]![txt0] & "'"
If Not Me.RecordsetClone.NoMatch Then
Me.Bookmark = Me.RecordsetClone.Bookmark
Else
MsgBox "Cann't find record!"
End If

End Sub

作者: QINGSOLI 时间: 2003-5-14 15:35
Private Sub 命令2_Click()

Me.RecordsetClone.FindFirst "[姓名]=" & "'" & Forms![查找窗]![txt0] & "'"

If Not Me.RecordsetClone.NoMatch Then
Me.Bookmark = Me.RecordsetClone.Bookmark
Else
MsgBox "Cann't find record!"
End If

End Sub

'注意你的查找窗是不是打开的，这里要求你的查询窗是打开的，而且，当前窗口是登记窗

作者: 小白 时间: 2003-5-14 19:00
还是不行啊，我把文件上传了，请帮忙看看！[attach]429[/attach]

作者: QINGSOLI 时间: 2003-5-14 21:56
看看是不是这样：）

作者: QINGSOLI 时间: 2003-5-14 21:57
忘了传数据库：）

作者: 小白 时间: 2003-5-14 22:23
我等你，多谢了！

作者: skylark 时间: 2003-5-15 02:48
To 小白:
Right?
[attach]435[/attach]

__________________________
Do Our Job Well Try Anything Once

作者: 小白 时间: 2003-5-16 23:26
太感谢了，skylark，不愧是高手！这正是我所想要的，再次感谢！

作者: 小白 时间: 2003-5-17 00:18
不好意思，还有一点小问题要麻烦您！比如有一个人叫小白，那么我要查找的话就要输入小白两字，但是万一我只知道这个人的名字中有一个小字，那该怎么作才能实现模糊查找的功能？我原以为只要把代码：
Forms.登记窗.RecordsetClone.FindFirst "[姓名]='" & Me.文本0 & "'"
改成
Forms.登记窗.RecordsetClone.FindFirst "[姓名]='" & Me.Like "＊" & [文本0] & "＊" & "'"
就可以了，没想到Like "＊" & [文本0] & "＊" & 在查询中可用，在VB中就失灵了！
大侠，再帮一次吧！谢谢！

作者: skylark 时间: 2003-5-17 03:21
To 小白:
好象只能这样。
[attach]455[/attach]
_____________________________
Do Our Job Well Try Anything Once

作者: 小白 时间: 2003-5-19 18:47
skylark，有劳了！谢谢！回的查找到是实现模糊功能了，不过问题是结果出来后，不合条件的全消失了，就象是用查询功能一样。能不能只在原窗体中移动记录到符合条件的记录，也就是说它是找到记录而不是筛选出记录，这样可以实现吗？

作者: skylark 时间: 2003-5-20 04:33
To 小白:
RigHt! 筛选后，请单击姓名。

[attach]480[/attach]
——————————————
Do Our Job Well Try Anything Once

作者: 小白 时间: 2003-5-20 16:45
呵呵，果然可以，多谢了!

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