分组合并查询

按照你的要求，创建了一个能满足要求的查询，设计了一个函数

Function hebing(bm, tj)
Dim dbs As Database  '定义引用数据库的变量。
Dim rst As Recordset '定义引用记录集的变量。
Set dbs = CurrentDb()
s = "select * from " & bm & " where " & tj
Set rst = dbs.OpenRecordset(s)                 '设置记录集
hebing = ""
While Not rst.EOF
 hebing = hebing & rst("球员") & "、"
 rst.MoveNext
Wend
hebing = Mid(hebing, 1, Len(hebing) - 1)
End Function

设计的查询

SELECT Sheet.球队, "队中球员有：" & hebing("sheet","球队='" & [球队] & "'") AS 备注
FROM Sheet
GROUP BY Sheet.球队, "队中球员有：" & hebing("sheet","球队='" & [球队] & "'")
HAVING (((Sheet.球队) Is Not Null))
ORDER BY Sheet.球队;

结果

具体可参考附件：

点击下载此附件