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

ник: osmor
В общем виде решение может быть таким
1-й запрос на создание ноыой таблицы с таким же набором полей, и записями с уникальным ключем из исходной таблицы:

SELECT Есть.[Код больного], First(Есть.[Дата рождения]) AS [Дата рождения], First(Есть.[Дата обследования]) AS [Дата обследования], Null AS [UnionОбъем правой доли], Null AS [UnionОбъем левой доли], Null AS UnionПерешеек, Null AS [UnionУзловые образования], Null AS UnionДлина, Null AS UnionШирина, Null AS UnionЛокализация INTO Новая FROM Есть GROUP BY Есть.[Код больного];

Второй запрос который заполнит таблицу созданную запросом один данными из разных записей с одинаковым ключем:

UPDATE Новая INNER JOIN Есть ON Новая.[Код больного]=Есть.[Код больного] SET Новая.[UnionОбъем правой доли] = ([UnionОбъем правой доли]+", ") & [Объем правой доли], Новая.[UnionОбъем левой доли] = ([UnionОбъем левой доли]+", ") & [Объем левой доли], Новая.UnionПерешеек = ([UnionПерешеек]+", ") & [Перешеек], Новая.[UnionУзловые образования] = ([UnionУзловые образования]+", ") & [Узловые образования], Новая.UnionДлина = ([UnionДлина]+", ") & [Длина], Новая.UnionШирина = ([UnionШирина]+", ") & [Ширина], Новая.UnionЛокализация = ([UnionЛокализация]+", ") & [Локализация];

После запуска обеих запросов получим таблицу в нужными данными
ПРимер см. в аттаче
теорию можно почитать тут
http://hiprog.com/index.php?option=com_content&task=view&id=334&Itemid=35
я использовал метод 3