Question

我不经常使用Access，但我发现自己正在使用一个数据库，我有一个带有以下代码的命令按钮：

ListView

这有点......它确实前进到下一个空记录，但前提是用户按顺序处理了所有记录。如果用户需要在继续时因某种原因跳过记录，它总会跳回到他们跳过的第一个记录。

我需要这段代码才能知道当前视图中的记录位置，然后跳转到之后那个位置的下一条记录。

我该怎么做？

Answer 1

简单的解决方法是使用.FindNext代替.FindFirst：

Me.Recordset.FindNext "[new_org_id] IS NULL"

更高级/可自定义的解决方案可能如下：

Dim rs As Recordset
Set rs = Me.RecordSetClone 'Open a clone
rs.Bookmark = Me.Bookmark 'Navigate to the current record
rs.FindNext "[new_org_id] IS NULL"
If rs.NoMatch Then
   'No record matching that criterium
Else
    Me.Bookmark = rs.Bookmark 'Move to the found record
End If

转到当前视图匹配条件中的下一条记录

1 个答案: