MS Access：将多行列数据合并填充至另一表单字段的问题

嘿，我来帮你搞定这两个Access数据库的问题，一步步来：

问题2：为什么INSERT查询要求输入ProductCode（以及正确做法） #

首先得纠正一个小误区：你用INSERT语句是想插入新记录，但你的需求是更新Products表中已有的、ListOfParts为空的记录，所以应该用UPDATE语句而不是INSERT！

原来的INSERT语句会尝试往Products表添加新行，但Products表的ProductCode字段大概率是必填（不允许为空）的，所以数据库会提示你输入这个字段的值。而你要做的是更新已有记录，直接换成UPDATE就对了。

问题1：合并同一ProductCode的PartCode到ListOfParts字段 #

Access不像SQL Server或MySQL有内置的字符串聚合函数（比如STRING_AGG），不过我们有两种简单的方法实现多行PartCode合并：

方法1：用Access内置的ConcatRelated函数（推荐，Access 2010及以上可用） #

ConcatRelated是Access的域聚合函数，专门用来合并同一分组下的字符串。直接结合UPDATE语句就能完成需求：

UPDATE Products
SET ListOfParts = ConcatRelated("PartCode", "Parts", "ProductCode='" & Products.ProductCode & "'")
WHERE Products.ListOfParts Is Null;

• 解释：ConcatRelated("PartCode", "Parts", "ProductCode='OP00P0'")会返回Parts表中ProductCode为OP00P0的所有PartCode，用逗号加空格分隔（默认分隔符）。
• WHERE子句确保只更新ListOfParts为空的记录，避免覆盖已有数据。

方法2：自定义VBA函数（兼容所有Access版本） #

如果你的Access版本不支持ConcatRelated，可以写一个简单的VBA函数来实现合并：

1. 打开Access的VBA编辑器（按Alt+F11），插入一个新模块，粘贴以下代码：

Function ConcatParts(pProductCode As String) As String
    Dim rs As Recordset
    Dim strParts As String
    
    Set rs = CurrentDb.OpenRecordset("SELECT PartCode FROM Parts WHERE ProductCode = '" & pProductCode & "'")
    
    Do While Not rs.EOF
        If strParts <> "" Then
            strParts = strParts & ", " ' 添加分隔符
        End If
        strParts = strParts & rs!PartCode
        rs.MoveNext
    Loop
    
    ConcatParts = strParts
    rs.Close
    Set rs = Nothing
End Function

2. 回到Access查询设计，运行以下UPDATE语句：

UPDATE Products
SET ListOfParts = ConcatParts(Products.ProductCode)
WHERE Products.ListOfParts Is Null;

验证结果 #

运行上面的UPDATE语句后，你的Products表就会变成期望的样子：

（注：NE0301对应的Parts表没有数据，所以ListOfParts还是空的，符合预期）

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