Office中国论坛/Access中国论坛

标题: Access DAO使用书签进行搜索并同步窗体的方法 [打印本页]

作者: tmtony 时间: 2013-11-6 21:53
标题: Access DAO使用书签进行搜索并同步窗体的方法
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
是筛选的意思吗

作者: tmtony 时间: 2013-11-6 21:58
是搜索定位, 与筛选有一些区别

作者: tmtony 时间: 2013-11-6 22:02
如果是设置父窗体

   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
是能跳转到符合条件的记录？

作者: tmtony 时间: 2013-11-6 22:15
是的.正是.

作者: leonshi 时间: 2013-11-7 15:18
谢谢分享

作者: zhuyiwen 时间: 2013-11-9 12:40
谢谢分享

作者: 馨语馨愿 时间: 2014-4-28 22:06
谢谢楼主分享

作者: 李力军2 时间: 2016-8-4 08:36
谢谢分享

作者: 使者 时间: 2016-8-23 15:17
学习学习

作者: 1920206 时间: 2017-3-28 15:46
谢谢分享！

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