访问:移至下一条记录,直到EOF

Question

我需要通过移动到记录集中的下一条记录来遍历表单.

我正在使用Form_Current事件来循环.我使用了几个陈述并且有不同的结果.

这个有时崩溃并给出错误消息:"你不能去指定的记录."

DoCmd.GoToRecord , , acNext

这个只有72个记录并停止.

DoCmd.RunCommand acCmdRecordsGoToNext

这个只有129个记录并停止.

Me.Recordset.MoveNext

尝试查找将转到下一条记录的指令,直到它到达文件结尾.我使用Access 2010(Access 2002 -2003文件格式mdb)作为前端.记录源是SQL Server 2008链接的视图.

Answer 1

从当前记录循环到结束:

While Me.CurrentRecord < Me.Recordset.RecordCount
    ' ... do something to current record
    ' ...

    DoCmd.GoToRecord Record:=acNext
Wend

要检查是否可以转到下一条记录:

If Me.CurrentRecord < Me.Recordset.RecordCount Then
    ' ...
End If