collect all records into a single string
create a query where the records are sorted on Trans#
the code scan thru the list, when the trans# changes, it posts the result of the combined OpsAssigned
Paste the code into a module and run it from a button on a form
usage: getRecs2String "qsMyQuery"
Code:
'----------------
Sub getRecs2String(ByVal pvQry)
'----------------
Dim sSql As String, sBigStr As String
Dim rst 'As Recordset
Dim vPrev, vTxt
vPrev = ""
Set rst = CurrentDb.QueryDefs(pvQry).OpenRecordset 'open the query given
With rst
While Not .EOF
vCurr = .Fields("TransactionNumber").Value
vTxt = .Fields("OperationsAssigned").Value
If vPrev <> vCurr And vPrev <> "" Then 'if trans# then post the results
'remove the last comma
sBigStr = Left(sBigStr, Len(sBigStr) - 1)
'post the result to a table
sSql = "Insert into tTargTable ([TransactionNumber],[OperationsAssigned]) values ('" & vCurr * "','" & sBigStr & "')"
DoCmd.RunSQL sSql
sBigStr = ""
End If
sBigStr = sBigStr & vTxt & ","
vPrev = vCurr
.MoveNext 'next record
Wend
End With
rst.Close
Set rst = Nothing
End Function