Access中能否实现档案表字段取值为关联人员表最大记录ID？

首先明确两个核心结论：

• 你当前的按单人员独立建表的设计属于反数据库范式设计，无论用哪种数据库都极其不推荐，后续维护、查询、扩展成本都会非常高
• 如果坚持要按这个设计实现，Access完全可以做到，不需要更换其他数据库工具，但需要用到VBA+动态SQL，无法通过原生SQL直接实现你设想的select max(name.lastrecord)逻辑

设计方案问题说明 #

你现在的设计存在明显缺陷：

• 新增人员就要手动创建对应数据表，重复工作量极大
• 跨人员的统计、查询需要拼接大量表名，几乎没法做统一分析
• 用姓名作为表名关联，一旦出现重名、姓名修改的场景，整个关联逻辑会直接崩溃

更推荐的通用设计（Access和所有关系型数据库都适用）：

• 保留Archives总表存储人员基础信息，新增一个人员ID字段作为主键
• 新增一张统一的人员业务记录表，字段包含：记录ID（主键）、人员ID（外键关联Archives的主键）、其他你需要存储的单条业务记录字段
• 不需要单独存储last_record字段，需要取最新记录时直接用关联查询即可，如果一定要冗余存储，只用给人员业务记录表加插入后触发的数据宏/触发器，自动更新Archives对应人员的最新记录ID即可，完全不需要动态SQL，维护成本极低

按原需求的Access实现方案 #

如果坚持要按单人员建表的逻辑实现，操作步骤如下：

1. 因为Access原生SQL不支持把字段值直接解析为表名，你需要先写VBA函数实现动态查询最大ID：

Function GetLastRecordID(personName As String) As Long
    Dim rs As DAO.Recordset
    Dim sql As String
    ' 拼接动态SQL，表名加中括号兼容带特殊字符的姓名
    sql = "SELECT MAX(ID) AS max_id FROM [" & personName & "]"
    Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)
    If Not rs.EOF Then
        ' 空表默认返回0
        GetLastRecordID = Nz(rs!max_id, 0)
    End If
    rs.Close
    Set rs = Nothing
End Function

2. 要更新Archives总表的last_record字段时，执行以下更新查询即可：

UPDATE Archives SET last_record = GetLastRecordID([name]);

3. 如果需要新增人员表记录时自动更新总表，可以给每个人员表加插入后数据宏，或者在新增记录的表单提交事件里调用上面的VBA函数更新对应记录即可。

其他数据库的实现说明 #

如果换成MySQL、SQL Server等其他数据库，你的原设计同样可以实现，逻辑和Access方案一致：都是通过存储过程/动态SQL拼接表名查询最大ID，再更新总表，但同样不推荐这种反范式的设计。

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