遍历Form绑定记录与Recordset对比：使用Me!和DoCmd.GoToRecord是否为不良实践

你给出的通过Me!控件绑定+DoCmd.GoToRecord移动指针遍历记录的实现确实属于不良实践，核心问题如下：

• 性能损耗严重：每次调用DoCmd.GoToRecord移动窗体当前记录时，都会触发窗体Current事件、控件更新事件、绑定数据同步等一系列隐式操作，记录量超过100条时执行速度会比直接操作数据集慢数倍，数据量越大性能差距越明显。
• 稳定性不足，易出现逻辑错误：
  • 遍历过程中如果有其他操作修改了窗体绑定的记录源，会出现记录计数偏差、漏处理/重复处理记录的问题
  • 遇到被锁定的记录时，DoCmd.GoToRecord会直接抛出运行时错误中断执行，错误处理灵活度远低于直接操作记录集
  • 末尾调用Me.Requery会重置窗体的记录指针、滚动位置、选中状态，会打断用户的操作状态，使用体验很差
• 代码存在不规范隐患：
  • 变量RecordCount未声明数据类型，默认作为Variant处理，容易出现类型转换错误
  • 控件直接用名称tbRefresh赋值，没有显式绑定到当前窗体，存在和模块级重名变量冲突导致逻辑异常的可能，建议统一写为Me.tbRefresh
  • 无防护调用DoEvents释放控制权，遍历过程中用户点击其他控件会触发意外操作，容易出现不可预料的错误
• 功能逻辑冗余：末尾执行Me.Requery会重新拉取所有记录，你前面遍历更新的窗体绑定值会被全部重置，等于前面的更新操作完全无效，需要持久化的更新应该直接作用于底层数据集，不需要先更新窗体绑定值再刷新。

推荐替代实现 #

建议直接操作窗体的RecordsetClone对象完成遍历，既不会影响窗体当前的操作状态，性能和稳定性都有明显提升，参考代码如下：

Private Sub cmdRefresh_Click()
    Dim rs As DAO.Recordset
    Dim processCnt As Long, totalCnt As Long
    
    Set rs = Me.RecordsetClone
    If rs.RecordCount = 0 Then
        Me.tbRefresh = "Last Update: " & Date
        Exit Sub
    End If
    
    ' 先获取总记录数
    rs.MoveLast
    totalCnt = rs.RecordCount
    rs.MoveFirst
    
    ' 遍历所有记录
    Do Until rs.EOF
        processCnt = processCnt + 1
        Me.tbRefresh = "Searching for new RMDs... " & Int((processCnt / totalCnt) * 100) & "%"
        ' 计算并更新字段
        rs.Edit
        rs!RMD_Met = RMDCalculate
        rs.Update
        rs.MoveNext
        DoEvents
    Loop
    
    ' 资源释放
    rs.Close
    Set rs = Nothing
    
    Me.tbRefresh = "Last Update: " & Date
End Sub

内容的提问来源于stack exchange，提问作者MaybeOn8