Write a function that accepts the ID as an argument, then open a recordset
using it as the criteria, loop through the records, and concacetenate, store
in a string, and update another table with the concacentated string value.
Here's something I did awhile back:

Function sCostDesc(lcindex As Variant) As Variant

Dim sReturn As Variant
Dim Db As Database, Rs As Recordset

Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("Select * From cDescript Where cindex=" &
lcindex & ";")

Do While Not Rs.EOF
sReturn = sReturn & " " & Trim(Rs![cddesc])
Rs.MoveNext
Loop

sCostDesc = Trim(sReturn)

End Function

"tmwilkin" wrote in message
...
Hello,

I'm working a file with two columns of data. The first column is an ID
number, the second is a description keyword. An example is shown below:

388643 WSPHD170440 PE170IP4 417IPEB
388643 LIPE170IP4 IN004PE170IP4
388643 ZZFAB
388643 VVFL
388643 VVNW
766220 IN004!PE110IP5
766220 VVWV

I want to concatenate the keywords for each unique ID into one row/cell
(col
B). Can anyone assist? I can work with any function that generates
duplicate rows as I could strip them out later.

Thanks in advance,
Todd