Microsoft Access多表窗体数据如何保存至主案例历史表留存快照

不要依赖两表动态关联查询取历史值，关联查询永远返回被关联表的最新值，无法满足留痕需求，按以下步骤调整即可：

第一步：调整Cases表结构，新增快照存储字段 #

打开Cases Table的设计视图，新增以下和Employee Table对应字段类型完全一致的字段，专门存储案例创建时点的员工信息快照：

• Company
• Job Family Group
  注意：这两个新增字段不要设置和Employee Table的关联关系，作为Cases Table的独立静态字段存在，后续Employee Table的信息更新不会影响已存储的快照值

第二步：调整录入窗体的控件绑定与自动赋值逻辑 #

你当前窗体上的Company、Job Family Group控件默认绑定的是Employee Table的数据源，按以下规则修改：

1. 保留Employee ID输入控件的原有绑定，关联到Cases Table的[Employee ID]外键字段
2. 将窗体上Company、Job Family Group两个控件的「控件来源」属性，改为绑定到Cases Table刚新增的[Company]、[Job Family Group]快照字段，不再绑定Employee Table的同名字段
3. 给Employee ID控件添加AfterUpdate（更新后）事件，写入以下VBA代码，选完员工ID时自动把当前时点Employee Table里的对应信息填充到快照控件，无需手动录入：

Private Sub Employee_ID_AfterUpdate()
    ' 匹配员工ID后自动填充当前时点的员工属性到快照字段
    If Not IsNull(Me.[Employee ID]) Then
        ' 文本类型Employee ID用以下写法，数字类型ID请去掉字段值两侧的单引号
        Me.Company = DLookup("Company", "Employee Table", "[Employee ID] = '" & Me.[Employee ID] & "'")
        Me.[Job Family Group] = DLookup("[Job Family Group]", "Employee Table", "[Employee ID] = '" & Me.[Employee ID] & "'")
    End If
End Sub

第三步：效果验证 #

调整完成后，窗体录入新案例点击保存时：

• Cases Table会直接存储选入员工那一刻的Company、Job Family Group值，生成永久快照
• 后续员工调岗、变更所属公司/职族时，只要不手动修改Cases Table里的历史记录，原有案例关联的员工信息永远是创建时点的状态，直接查询Cases Table即可获取完整历史数据，不需要再关联Employee Table
• 后续如果需要新增留存部门、对接经理等动态字段，按相同逻辑处理即可：Cases Table加对应快照字段→窗体控件绑定到Cases Table字段→在上述VBA事件里新增一行DLookup赋值语句

该方案是Access搭建业务留痕系统的通用稳妥方案，维护成本低、查询性能高，不需要写复杂的历史版本日志逻辑，新手也能快速落地。

内容的提问来源于stack exchange，提问作者Jose Torres-Jasso