如何遍历表的记录,用这代码提示错误

secowu

Rs.Open "select * from full ", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do While Not Rs.EOF
MsgBox Rs.Fields("全部成功导出!")
Rs.MoveNext
Loop
Set Rs = Nothing

todaynew

试试这个循环：
for i=1 to rs.Recordcount
      .........
      rs.movenext
next

secowu

谢谢楼上的,改成这样OK了

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

复制代码

wufeng980114

路过，学习了