findrecord的用法请问哪位有实例呀？

swjia8315 · 发表于 2011-8-25 17:10

新打开一个窗口中，里面列出数据库一张表中的所有数据，就是前后翻页的那种。

我现在需要做的是打开这张表的时候，给其一个参数，比如ID = 5,然后打开表直接跳到ID=5的这条记录上，但是其他的记录仍然能够前后翻页看到，所以不能用filter，我想请问下应该用什么方法来达到这个目的，谢谢！

听网上有人说可以用findrecord，但是找不到实例，只有一个句型，所以特此求助，谢谢！

roych · 发表于 2011-8-25 19:40

这个问题，Roy曾经曰过的，用Bookmark和FindFirst很容易实现的：

Private Sub Combo27604_AfterUpdate()
Dim rs As Object
'设置为当前窗体的记录集
Set rs = Me.Recordset.Clone
'查找记录集第一条记录。条件为
rs.FindFirst "[ID] = " & Me![Combo27604]
'如果找到，则返回书签。即当前记录
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] findrecord的用法请问哪位有实例呀？