如何合并MS Access表中的动态记录？电脑库存管理场景需求

嘿，结合你用条码扫描做电脑库存盘点的场景，我来给你一步步拆解怎么在Access里实现动态记录合并——这个需求我之前帮同行处理过，思路很清晰：

首先得确保你的表之间有明确的关联关系，不然合并会乱。根据你的描述，至少需要这三张表：

• 扫描记录表：存储每次扫描的房间条码、电脑条码、扫描时间（这个字段非常重要，用来区分动态的盘点记录），如果需要分批次盘点，还可以加个盘点批次字段（比如用日期或者自定义批次号）
• 电脑信息表：以电脑条码为主键，存储电脑类型（实验室/行政）、所属人员、移机日期这些固定/半固定信息
• 房间信息表：以房间条码为主键，存储房间编号、名称这些基础信息

Access里的查询是实现记录合并的最佳方式，分两种常见场景：

场景1：实时合并最新扫描记录与电脑/房间信息 #

如果你想随时看到最新的盘点结果（比如扫完就能看到某房间里的电脑明细），直接创建一个联合查询，用SQL写的话更灵活：

SELECT 
    s.扫描时间,
    r.房间名称,
    c.电脑条码,
    c.电脑类型,
    c.所属人员,
    c.移机日期
FROM 
    (扫描记录表 s
    INNER JOIN 房间信息表 r ON s.房间条码 = r.房间条码)
    INNER JOIN 电脑信息表 c ON s.电脑条码 = c.电脑条码
ORDER BY 
    s.扫描时间 DESC;

这个查询会把每次扫描的记录和对应的房间、电脑信息自动关联，按扫描时间倒序排列，最新的记录直接顶在最前面，完全匹配你动态盘点的需求。

场景2：按盘点批次合并记录（统计每次盘点的结果） #

如果需要统计每次完整盘点的房间电脑情况（比如对比本月和上月的库存变化），先给扫描记录表加个盘点批次字段（每次盘点前手动输入批次号，或者用Date()函数自动生成当天日期作为批次），然后用分组查询：

SELECT 
    s.盘点批次,
    r.房间名称,
    COUNT(c.电脑条码) AS 房间电脑总数,
    ConcatTypes(s.盘点批次, r.房间条码) AS 电脑类型分布
FROM 
    (扫描记录表 s
    INNER JOIN 房间信息表 r ON s.房间条码 = r.房间条码)
    INNER JOIN 电脑信息表 c ON s.电脑条码 = c.电脑条码
GROUP BY 
    s.盘点批次, r.房间名称;

这里的ConcatTypes是个自定义VBA函数，用来把同批次同房间的电脑类型合并成一串（Access没有原生的合并函数），你可以在Access的VBA编辑器里添加这个函数：

Public Function ConcatTypes(strBatch As String, strRoomBarcode As String) As String
    Dim rs As DAO.Recordset
    Dim result As String
    Dim sql As String
    
    ' 拼接查询SQL，获取当前批次当前房间的所有电脑类型
    sql = "SELECT 电脑类型 FROM 电脑信息表 WHERE 电脑条码 IN " & _
          "(SELECT 电脑条码 FROM 扫描记录表 WHERE 盘点批次='" & strBatch & "' AND 房间条码='" & strRoomBarcode & "')"
    
    Set rs = CurrentDb.OpenRecordset(sql)
    Do While Not rs.EOF
        result = result & rs!电脑类型 & ", "
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    
    ' 去掉最后多余的逗号
    If Len(result) > 0 Then
        ConcatTypes = Left(result, Len(result) - 2)
    Else
        ConcatTypes = "无记录"
    End If
End Function

• 如果要实时查看扫描结果：基于上面的查询创建一个表单，把表单的记录源设置为这个查询，再添加一个“刷新”按钮，点击按钮执行Me.Requery就能加载最新的扫描记录。
• 如果要做盘点对比：创建交叉查询，把盘点批次作为列，房间名称作为行，房间电脑总数作为值，就能直观看到各房间不同批次的库存变化。

如果扫描到不在电脑信息表里的电脑，用左连接代替内连接，这样陌生电脑也会显示出来，还能自动标记提示：

SELECT 
    s.扫描时间,
    Nz(r.房间名称, "未知房间") AS 房间名称,
    s.电脑条码,
    Nz(c.电脑类型, "未录入库存") AS 电脑类型,
    Nz(c.所属人员, "未分配") AS 所属人员
FROM 
    (扫描记录表 s
    LEFT JOIN 房间信息表 r ON s.房间条码 = r.房间条码)
    LEFT JOIN 电脑信息表 c ON s.电脑条码 = c.电脑条码
ORDER BY 
    s.扫描时间 DESC;

这里的Nz函数会把空值替换成友好的提示，帮你快速识别需要补录的电脑或房间信息。

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