TablaOrigen:


Id serviciopersona actividad
1 10 josé con
2 10 josé cat
3 10 josé ena
4 10 josé ren
5 10 josé unc
6 10 josé ampo
7 11 pablo nos
8 11 pablo eco
9 11 pablo mo

Código:

Function Concatenar()

Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset
Dim vser As String
Dim vper As String
Dim vact As String

Set db = CurrentDb

Set rs = db.OpenRecordset("Select TablaOrigen.* from TablaOrigen order by servicio,persona,id")

Do While Not rs.EOF

vser = rs!servicio
vper = rs!persona
vact = ""

Do While Not rs.EOF And vser = rs!servicio And vper = rs!persona

vact = vact + rs!actividad
rs.MoveNext

If rs.EOF Then
Exit Do
End If
Loop


Set rs1 = db.OpenRecordset("TablaDestino")

rs1.AddNew
rs1!servicio = vser
rs1!persona = vper
rs1!actividad = vact
rs1.Update

Loop

End Function

TablaDestino:


serviciopersona actividad
10 josé concatenarenuncampo
11 pablo nosecomo