用什么命名,实现,自动下一条记录?直到没有数据?

secowu

用什么命令,实现,自动移到下一条记录?直到没有数据?
用于代替人工不断点击下一条?
谢谢

todaynew

for i=1 to rs.Recordcount
      .........
      rs.movenext
next

secowu

Private Sub 全部导出_Click()
MsgBox "时间比较长,请耐心等候!", vbInformation, "提醒"
Dim rs As DAO.Recordset
Set rs = Form.Recordset
Do While Not rs.EOF
rs.MoveNext
Loop
MsgBox "导出完成.请查看程序目录下", vbInformation, "提醒"
End Sub