无限循环遍历VBA中的记录集

Question

我有一个记录集，我正在循环使用.movenext和所有，但它总是循环！

Dim dbsNu As Database
Dim rsNieuw As DAO.Recordset
Dim rsOld As DAO.Recordset

        Set rsOld = dbsNu.OpenRecordset("SELECT * FROM tblActieElementLink WHERE actieElement = " & Me.actieElementId, dbOpenDynaset)
        Set rsNieuw = dbsNu.OpenRecordset("SELECT * FROM tblActieElementLink", dbOpenDynaset)

        With rsNieuw

            Do While rsOld.EOF = False

                .AddNew
                    !actieElement = rsOld!actieElement
                .Update

                rsOld.MoveNext
            Loop

rsOld.EOF永远不会成立，并且不断添加新记录。

Answer 1

我认为rsOld是一个快照，但是由于我不断通过rsNieuw将记录添加到同一个表中，它陷入了无限循环。