VBA의 레코드 세트를 무한 루프로 반복

Question

레코드 집합이 있습니다. .movenext와 all을 사용하여 루핑 할 수 있지만 항상 루프됩니다.

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를 통해 동일한 테이블에 레코드를 계속 추가했기 때문에 무한 루프에 걸렸습니다.