如何在Access连续表单中添加支持每行输入唯一值的非绑定列

为啥会出现这问题 #

连续表单里的非绑定控件是同一个控件的多个“影子副本”，所有行共用同一个控件实例，你在任何一行输入的值都会同步到所有行——这是连续表单的固有机制，调控件属性或者写简单VBA根本没用。

靠谱的解决步骤 #

1. 先在Access里建个实际产量本地表

   • 新建本地表，至少包含这些字段：计划ID（得和Excel计划表里的唯一标识对应，比如订单号、产品编号）、实际产量、录入日期。
   • 把计划ID设为外键，和链接进来的Excel计划表的主键字段关联，保证每条实际产量都能对应到正确的计划条目。

2. 做个关联查询当表单数据源

   • 新建查询，将链接的Excel计划表和刚建的实际产量表通过计划ID关联，选择计划表的所有字段，再加上实际产量表的实际产量字段（没录入过实际产量的行，这个字段会显示为空，不影响后续输入）。
   • 把查询的唯一值属性改成“否”，确保所有计划记录都能正常显示。

3. 把表单改成绑定控件模式

   • 打开原来的连续表单，将数据源切换为刚才创建的关联查询。
   • 删除原来那个非绑定的“实际产量”控件，重新添加一个绑定到查询中实际产量字段的数值框（产量是数值类型，用数值框更合适）。
   • 调整控件布局，和计划字段对齐即可。

4. 自动补全空记录（可选优化）

   • 要是不想每次手动新增实际产量记录，可以在表单的Current事件加段VBA：

     Private Sub Form_Current()
         If IsNull(Me.实际产量) Then
             ' 检查当前计划是否已有对应实际产量记录，没有则自动新增
             If DCount("*", "实际产量表", "计划ID = '" & Me.计划ID & "'") = 0 Then
                 Me.Recordset.AddNew
                 Me.计划ID = Me.计划ID ' 这里的计划ID来自链接的Excel表
                 Me.Recordset.Update
                 Me.Requery ' 刷新表单显示新增的记录
             End If
         End If
     End Sub
     

   • 这样点击某条计划记录时，会自动创建对应的实际产量行，直接输入数值就能保存。

临时凑合用的方案（不推荐长期使用） #

要是暂时不想建本地表，也可以用数组存储每行的输入值，但这种方法容易丢数据，操作起来麻烦：

• 在表单模块开头声明数组：Dim arrActual() As Variant
• 表单加载时根据记录集行数初始化数组
• 在“实际产量”控件的AfterUpdate事件里，根据当前记录的索引把值存入数组对应位置
• 在表单的Current事件里，把数组对应位置的值赋给控件
  但这种方法要处理记录刷新、排序变化等情况，稳定性差，优先推荐前面的本地表关联方案。

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