DAO.Recordset，无法在表对象中使用MoveNext

Question

目标：我正在编写一个循环来逐行查看表，评估字段是否相互匹配，然后移动到下一个记录（行）并重新评估。 我最终想要从中构建一个不断增长的字符串，但是现在我无法让代码进入下一个循环。 值显示代码仅评估第一个记录，并重复自身。

我已经尝试将行'ExDif.MoveNext'移入/移出循环，在结束之前/之后如果没有变化。

Option Compare Database
Option Explicit

Sub Export_Library_Compare_Process()

'Identify the variables
Dim Tang As DAO.Database
Dim ExDif As DAO.Recordset
Dim Field01a As DAO.Field
Dim Field01b As DAO.Field
Dim ID As DAO.Field

'Set the database and recordsets to database and tables
Set Tang = CurrentDb
Set ExDif = Tang.OpenRecordset("Staging_LOG_ExportDifferences")
Set Field01a = ExDif.Fields("a_Client Name")
Set Field01b = ExDif.Fields("b_Client Name")
Set ID = ExDif.Fields("ID")

'Start a series to look to see what matches
Do While Not ExDif.EOF

    'Move to first row in table
    ExDif.MoveFirst

    'Field 01 - Client Name
    If Field01a.Value <> Field01a.Value Then
        MsgBox "Client Name does not match"
    Else: MsgBox "Client Name matches"

    'Move to next record (row) in table
    ExDif.MoveNext

    'End the Else - If
    End If

'End Loop
Loop

Answer 1

我的工作中有一些不寻常的安全限制，我指责这不起作用。 但我查看了一些Access编程板，发现这篇文章[ https://access-programmers.co.uk/forums/showthread.php?t=171138]让我知道我可以使用“Do While “或”直到“。 当我尝试将循环样式切换为“Do Until”时，它工作正常。

直到ExDif.EOF

Answer 2

几个问题。

 Set ExDif = Tang.OpenRecordset("Staging_LOG_ExportDifferences") Set Field01a = ExDif.Fields("a_Client Name") Set Field01b = ExDif.Fields("b_Client Name") Set ID = ExDif.Fields("ID") 

此代码在知道有记录之前就开始读取记录集。 如果记录集为空（即记录集是BOF和EOF ），则这些后续分配将失败并显示错误。 这些分配应该在记录阅读器循环中。

 ExDif.MoveFirst 

你已经在第一张唱片了; 在每次迭代时无条件地将光标移回第一条记录，这就是为什么你的循环卡在第一条记录上的原因。 删除此行。

 If Field01a.Value <> Field01a.Value Then 

这个表达式总是会被评估为False ，这是一个启发式的常量表达，可能是一个错字。 是否意味着将Field01a与Field01b进行比较？

 Else: MsgBox "Client Name matches" 'Move to next record (row) in table ExDif.MoveNext 'End the Else - If End If 

这种缩进是非常误导的，非常非常容易出错。 考虑：

Else
    MsgBox "Client Name matches"
    ExDif.MoveNext
End If

现在， .MoveNext是有条件的（有点 - 参见关于条件表达式的前一点），这是一个问题： 无论循环体中发生了什么 ，你都希望在完成后进入下一条记录。 所以.MoveNext永远不应该是有条件的。

---

这应该解决它：

Set exportDiffs = Tang.OpenRecordset("Staging_LOG_ExportDifferences")
Do Until exportDiffs.EOF

    Dim clientNameA As String
    clientNameA = exportDiffs.Fields("a_Client Name").Value

    Dim clientNameB As String
    clientNameB = exportDiffs.Fields("b_Client Name").Value

    If clientNameA <> clientNameB Then
        'client name mismatch
        GoTo Skip
    End If

    Dim id As Long
    id = exportDiffs.Fields("ID").Value

    ' do stuff...

Skip:
    exportDiffs.MoveNext
Loop