KSV, Спасибо, да через перекрестный запрос была мысль но я в другую сторону полез. У меня к Вам вопрос, а как сделать перенос строки - аналог Chr(10) между соединяемыми значениями?
Я смог собрать такую функцию:
[vba]Код
Function Concatenate_Field()
Dim rcs As DAO.Recordset
Dim strX As String
Dim dbs As DAO.Database
Dim i As Integer
Set dbs = CurrentDb
Set rcs = dbs.OpenRecordset("Concat_Costs", dbOpenDynaset)
i = 0
rcs.MoveFirst
Do Until rcs.EOF
i = i + 1
strX = strX & rcs.Fields("itog").Value & Chr(10)
rcs.MoveNext
Loop
Set rcs = Nothing
Debug.Print (strX)
End Function
[/vba]