如何遍历Microsoft Access连续窗体行，用VBA为对应行未绑定文本框赋值

方案1：本地临时表中转（性能最优，适配需要长期编辑的场景） #

• 创建结构与原绑定表完全一致的本地临时表，额外新增column1、column2两个自定义字段，字段类型匹配你的计算结果类型（文本/数字/日期均可）
• 窗体加载时先将原表数据全量同步插入临时表，再运行线上数据库查询逻辑，直接更新临时表中对应行的自定义字段值
• 将窗体数据源绑定为该本地临时表，此时所有字段包括新增的自定义列均支持编辑，不会修改原数据库表结构，如需同步编辑结果到原表，单独写VBA做数据同步即可

方案2：字典缓存+窗体Current事件赋值（无需修改数据源，适配轻量场景） #

连续窗体的未绑定文本框默认全局统一，是因为所有行共用同一个控件实例，可通过行切换事件动态赋值解决：

• 声明全局字典对象，窗体加载时运行线上查询逻辑，将每行主键ID作为键、对应计算结果作为值存入字典，仅需查询一次即可缓存所有结果
• 绑定窗体的Current事件，每次切换到对应行时，从字典中匹配当前行主键对应的结果赋值给未绑定文本框

代码示例：

' 窗体模块顶部声明全局字典
Dim resultCache As Object

Private Sub Form_Load()
    Set resultCache = CreateObject("Scripting.Dictionary")
    ' 此处插入你的线上查询计算逻辑，逐行将结果存入字典
    ' 示例：resultCache.Add 当前行主键值, 对应计算结果
End Sub

Private Sub Form_Current()
    If Not IsNull(Me.你的主键字段名) And resultCache.Exists(Me.你的主键字段名) Then
        Me.你的未绑定文本框名称 = resultCache(Me.你的主键字段名)
    Else
        Me.你的未绑定文本框名称 = Null
    End If
End Sub

该方案性能远高于逐行调用DLookup，无需修改原有数据源结构。

方案3：断开连接的ADODB记录集 #

• 通过ADODB查询原表数据后，手动追加自定义字段，再断开记录集与数据库的连接，此时自定义字段也支持编辑
• 直接将断开连接的记录集绑定为窗体数据源即可，代码示例：

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
' 查询原表数据
rs.Open "select * from 原表名称", CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic
' 追加自定义字段
rs.Fields.Append "column1", adVarChar, 255
rs.Fields.Append "column2", adVarChar, 255
rs.Requery
' 断开与数据库的连接
Set rs.ActiveConnection = Nothing
' 此处插入你的计算逻辑，逐行给column1、column2赋值
' 绑定到窗体
Set Me.Recordset = rs

你之前使用查询新增别名占位列的方式无法编辑，是因为Access查询中的表达式别名字段默认为只读属性，上述三种方案均可规避该问题，同时不会影响窗体原有编辑能力。

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