Question

在access窗体中，如何用程序代码将光标从记录集的第一行开始逐渐移动到最后一行？

以命令按钮列举实例

Answer 1

Private Sub 按钮_Click()
dim db as database
dim rst as recordset
dim sql as string
set db = currentdb
sql = "select * from 表"
set rst = db.openrecordset(sql)
if rst.eof and rst.bof then exit sub
rst.movefirst
line:if rst.eof then exit sub
rst.movenext
goto line
end sub

Answer 2

11111