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

作者： (tony --Office中国)

Access DAO使用书签进行搜索并同步窗体，跳转到符合条件的记录

    一般来说，我们在窗体上搜索 可以通过设置

    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

    如果是设置父窗体

     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