make a field BLOCK in manager table ,
make query qsBlocks that shows Person, CoD , and sorts the Person
the code below will scan the list and collect the 'block' of CoD codes and update the table with the group of CoD per person.
then add the 'block' to your summation query.
Code:
Public Sub CollectTags()
Dim rst
Dim vPrevName, vName, vID, vBlock
HrGlass
Set rst = CurrentDb.OpenRecordset("qsBlocks")
vPrevName = ""
With rst
While Not .EOF
vID = .Fields("ClientID").Value & ""
vName = .Fields("LastFirst").Value & ""
vWord = .Fields("CoD").Value & ""
If vName <> vPrevName And vPrevName <> "" Then 'post new rec
sSql = "update tManagers set [block] ='" & vBlock & "' where [LastFirst]='" & vPrevName & "'"
DoCmd.RunSQL sSql
vBlock = ""
End If
vBlock = vBlock & vWord & ","
vPrevName = vName
.MoveNext
Wend
End With
sSql = "update tResults set [block] ='" & vBlock & "' where [LastFirst]='" & vPrevName & "'"
DoCmd.RunSQL sSql
HrGlass False
MsgBox "Done"
Set rst = Nothing
End Sub