Access命令按钮需求：按当前视图位置跳至匹配条件的下一条记录

嘿，这个问题太常见了！原来的代码大概率是从记录集的最开头找第一条符合条件的空记录，而不是从你当前正在处理的位置往后找——这就是为什么跳过后总会回到最早跳过的那条。咱们来改改代码，让它精准定位到当前记录之后的下一条空记录。

核心思路 #

要实现这个需求，关键是先锁定当前记录的位置，然后从这个位置开始，往后搜索符合“空记录”条件的第一条记录。这里给你两种实用的实现方式，按需选择：

方法一：利用主键高效查找（推荐）

如果你的表有主键（比如ID字段），这种方法效率更高，不用逐条遍历：

Private Sub cmdFindNextEmpty_Click()
    Dim rs As DAO.Recordset
    Dim currentRecordID As Long
    
    ' 先确认当前有记录
    If Me.Recordset.EOF Or Me.Recordset.BOF Then
        MsgBox "当前没有可操作的记录！"
        Exit Sub
    End If
    
    ' 获取当前记录的主键值（替换成你实际的主键字段名）
    currentRecordID = Me!ID.Value
    
    ' 用RecordsetClone操作，不影响窗体当前的记录显示
    Set rs = Me.RecordsetClone
    
    ' 从当前记录的主键之后，查找第一条空记录（替换[EmptyField]为你的空字段名）
    rs.FindFirst "ID > " & currentRecordID & " AND [EmptyField] IS NULL"
    
    If rs.NoMatch Then
        ' 如果当前记录之后找不到空记录，提示用户
        MsgBox "当前记录之后已经没有空记录啦！"
    Else
        ' 定位到找到的记录
        Me.Bookmark = rs.Bookmark
    End If
    
    ' 清理资源
    rs.Close
    Set rs = Nothing
End Sub

方法二：逐条遍历当前记录之后的记录

如果你的表没有主键，或者不想依赖主键，可以用这种遍历的方式：

Private Sub cmdFindNextEmpty_Click()
    Dim rs As DAO.Recordset
    
    ' 用RecordsetClone复制当前窗体的记录集
    Set rs = Me.RecordsetClone
    
    ' 先定位到当前正在查看的记录
    rs.Bookmark = Me.Bookmark
    
    ' 先移动到下一条记录，从这里开始查找
    rs.MoveNext
    
    ' 循环往后找符合条件的空记录
    Do Until rs.EOF
        ' 替换[EmptyField]为你要判断的空字段名
        If IsNull(rs![EmptyField]) Then
            ' 定位到找到的记录
            Me.Bookmark = rs.Bookmark
            Exit Do
        End If
        rs.MoveNext
    Loop
    
    ' 如果遍历到末尾都没找到，提示用户
    If rs.EOF Then
        MsgBox "后面已经没有空记录了！"
    End If
    
    ' 清理资源
    rs.Close
    Set rs = Nothing
End Sub

注意事项 #

• 记得把代码中的[EmptyField]替换成你实际用来判断“空记录”的字段名称；
• 如果用方法一，要确保ID是你表的主键字段，类型如果不是长整型（比如文本型），要调整代码里的判断逻辑（比如加引号："ID > '" & currentRecordID & "' AND..."）；
• 测试的时候可以故意跳过几条记录，再点击按钮，就能看到它会从当前位置往后找，不会跳回之前的空记录了。

内容的提问来源于stack exchange，提问作者Joel Coehoorn