穿过DAO.Recordset-跳过前2540条记录-嗯？

Question

看起来似乎很简单，但结果却很奇怪。

1）记录集基于返回2739条记录的有效查询

2]当我.MoveFirst然后通过.MoveNext单步发送输出到debug.print时，循环似乎跳过了前2540条记录。索引编号与我的查询中的ID值对齐。

3）下面的简化代码如预期般到达了EOF

任何建议可能会发生什么？

Dim rs1 As DAO.Recordset
Dim n As Integer
Dim db As Database

Set db = CurrentDb
Set rs1 = db.OpenRecordset("myQuery")

n = 0

With rs1
    .MoveFirst
    Do Until .EOF
        n = n + 1
        Debug.Print n & " - " & .Fields("INPUT_ID")
        .MoveNext
    Loop
End With

调试结果如下：

2541 - 26023261
2542 - 26023262
2543 - 26023263
<<snip>>
2737 - 26023457
2738 - 26023458
2739 - 26023459

第1到2540行发生了什么？

Answer 1

立即窗口的行数限制为199。因此，它仅显示代码的最后199行结果。