Форумы HiProg.com - MS ACCESS, VBA, VB

ник: silich
переходи на Оракл :)

здесь предлагают как то так
http://allenbrowne.com/func-concat.html

ну ил итак вот можно, я попробовал на простом...

Function cct$(key, value) Static avalue$, akey On Error Resume Next If Nz(akey, "") = key Then     avalue = value & "," & avalue Else     akey = key     avalue = value End If cct = avalue End Function

SELECT conc.grp, conc.pole, cct([grp],[pole]) AS cc FROM conc ORDER BY conc.grp, conc.id;

grp    pole    cc 0    один    один 0    два    два,один 0    три    три,два,один 0    четыре    четыре,три,два,один 1    пять    пять 2    шесть    шесть 2    семь    семь,шесть 2    восемь    восемь,семь,шесть 2    девять    девять,восемь,семь,шесть 2    десять    десять,девять,восемь,семь,шесть