Access DAO使用书签进行搜索并同步窗体的方法

tmtony · 发表于 2013-11-6 21:53:32

Access DAO使用书签进行搜索并同步窗体的方法 (tony --Office中国)

我们在窗体上搜索可以通过设置
me.filter="条件"
me.filteron=true
来实现

但也有另外一种方法,我以前经常使用. 与大家分享一下
  With Me.RecordsetClone
.FindFirst "[字段]=" & Me!搜索的值
If Not .NoMatch Then
   If Me.Dirty Then
      Me.Dirty = False
   End If
   Me.Bookmark = .Bookmark
End If
  End With

如果是通过 recordset 变量,则用下面方法:

  Dim rs As DAO.Recordset

  Set rs = Me.RecordsetClone
  rs.FindFirst "[字段]=" & Me!搜索的值
  If Not rs.NoMatch Then
   If Me.Dirty Then
      Me.Dirty = False
   End If
   Me.Bookmark = rs.Bookmark
  End If
  Set rs = Nothing

littlekey · 发表于 2013-11-6 21:57:40

是筛选的意思吗

tmtony · 发表于 2013-11-6 21:58:27

是搜索定位, 与筛选有一些区别

tmtony · 发表于 2013-11-6 22:02:22

如果是设置父窗体

   With Me.Parent.RecordsetClone '取当前窗体的记录集克隆
      '查找需要的数据
      .FindFirst "[字段]=" & Me!搜索的值
      '如果找到了,就将当前记录集的书签同步给当前窗体
      If Not .NoMatch Then
         If Me.Parent.Dirty Then
            Me.Parent.Dirty = False
         End If
         Me.Parent.Bookmark = .Bookmark
      End If
      End With

轻风 · 发表于 2013-11-6 22:14:25

是能跳转到符合条件的记录？

tmtony · 发表于 2013-11-6 22:15:36

是的.正是.

leonshi · 发表于 2013-11-7 15:18:51

谢谢分享

zhuyiwen · 发表于 2013-11-9 12:40:44

谢谢分享

馨语馨愿 · 发表于 2014-4-28 22:06:44

谢谢楼主分享来自: Android客户端

李力军2 · 发表于 2016-8-4 08:36:36

谢谢分享

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[ADO/DAO] Access DAO使用书签进行搜索并同步窗体的方法

相关帖子

群介绍
主题无相 (随机显示版	同地区群块其他地区)