Объединение полей

[АлИван]

Информация о членах семьи находится в Таблице «ТблЧленыСемьи», которая состоит из полей:
1. Id_Ch 2. S_Ch (степень родства) 3. Fam_Ch (фамилия члена семьи) 4. Im_Ch (имя ЧС) 5. Ot_Ch (отчество ЧС) 6. DRog_Ch (дата рождения ЧС) 7. Fam (фамилия главы семьи)
Т.е
1. 1 (число)
2. сын (текст)
3. Иванов (текст)
4. Иван (текст)
5. Иванович (текст)
6. 03.06.1988 (дата)
7. Иванов
Строка 2
1. 2
2. дочь
3. Иванова
4. Ирина
5. Ивановна
6. 23.05.1989
7. Иванов
И т.д.
В главной форме «ДанныеЛС» подчиненная форма «ФрмПДЧ_ЧленыСемьи» связаны по фамилии главы семьи (поле Fam)
Все дело в том, что часто эти данные требуется показать в другом формате – то есть в одном поле одной строкой.
Для этого табличной форме «ФрмДанныеЛС» и отчете «ОтчДанныеЛС» эти данные нужно отобразить в одном поле «Члены семьи» примерно в таком формате:
сын – Иванов Иван Иванович, 03.06.1988 г.; дочь – Иванова Ирина Ивановна, 23.05.1989 г. И т.д.
Сложность заключается в том, что объединить нужно не просто несколько полей в одно к примеру Fam & “ “ & Im & “ “ &Ot, а несколько полей в нескольких строках – в одно поле. Помогите, пожалуйста.

[Step_UA]

Если данные должны выводиться в одно поле, то подчиненная форма здесь не нужна. Создаем свободное поле, данные для него "=СоставСемьи([fam])", если fam поле в этой форме содержащее фамилию главы семьи. В модуле прописываем функцию:

Function СоставСемьи(fam As String) As String
  Dim R As Recordset
    Set R = CurrentDb.OpenRecordset("select * from [ТблЧленыСемьи] WHERE [fam]='" & fam & "'")
    While Not R.EOF
        СоставСемьи = СоставСемьи & R.Fields("S_Ch") & " - " & R.Fields("Fam_Ch") & " " & _
            R.Fields("Im_Ch") & " " & R.Fields("Ot_Ch") & ", " & R.Fields("DRog_Ch") & " г.; "
        R.MoveNext
    Wend
    Set R = Nothing
End Function

и что вы будете делать при появлении однофамильцев?

[АлИван]

Спасибо. В примитивном варианте однофамильцев нет! Это конечно ужасно, но в начале пути в Access мы их отличали так: Иванов Иванов* Иванов** Конечно теперь для Fam есть уникальный код Id_Fam. Как я понял в Вашем модуле Fam можно заменить на Id_Fam?
К вечеру опробую Ваш вариант. Очень важно, чтобы все получилось. Ведь азы Access учат разбивать информацию на как можно меньшие части. Но вот часто нужно объединять эти данные в одном поле, например перечислить состав семьи, периоды работы, награды, учебные заведения которые окончил и т.п. А для этого в каждом таком случае нужно писать отдельный модуль, аналогичный Вашему?

[АлИван]

Если ничего не напутал, то для Id_Fam функция будет такой:
Создаем свободное поле, данные для него "=СоставСемьи([Id_Fam])", если fam поле в этой форме содержащее фамилию главы семьи. В модуле прописываем функцию:
Код:

Function СоставСемьи(Id_Fam As String) As String
Dim R As Recordset
Set R = CurrentDb.OpenRecordset("select * from [ТблЧленыСемьи] WHERE [Id_Fam]='" & Id_Fam & "'")
While Not R.EOF
СоставСемьи = СоставСемьи & R.Fields("S_Ch") & " - " & R.Fields("Fam_Ch") & " " & _
R.Fields("Im_Ch") & " " & R.Fields("Ot_Ch") & ", " & R.Fields("DRog_Ch") & " г.; "
R.MoveNext
Wend
Set R = Nothing
End Function

[АлИван]

Ура! С Вашим модулем по Fam все получилось. А вот по Id_Fam выдает ошибку в строке
Set R = CurrentDb.OpenRecordset("select * from [ТблЧленыСемьи] WHERE [Id_Fam]='" & Id_Fam & "'")
помечет ее желтым цветом.
Что-то напортачил?

[Step_UA]

Function СоставСемьи(id_fam As Long) As String 'id_fam скорее всего типа Long
  Dim R As Recordset
    Set R = CurrentDb.OpenRecordset("select * from [ТблЧленыСемьи] WHERE [id_fam]=" & id_fam)
...

[АлИван]

Function СоставСемьи(Id_fam As Long) As String
Dim R As Recordset
Set R = CurrentDb.OpenRecordset("select * from [ТблЧленыСемьи] WHERE [id_fam]=" & id_fam)
While Not R.EOF
СоставСемьи = СоставСемьи & R.Fields("S_Ch") & " - " & R.Fields("Fam_Ch") & " " & _
R.Fields("Im_Ch") & " " & R.Fields("Ot_Ch") & ", " & R.Fields("DRog_Ch") & " г.; "
R.MoveNext
Wend
Set R = Nothing
End Function

Id_Fam действительно число, но функция в этом варианте не работает, в поле пишет #ошибка

[АлИван]

У-у-у-у... Поле в форме ведь надо тоже исправить! =СоставСемьи([Id_fam])!
Вот теперь все получилось!! Огромное Вам спасибо!

[Step_UA]

удаленно ...

[Андрэич]

Сообщение от АлИван

Информация о членах семьи находится в Таблице «ТблЧленыСемьи», которая состоит из полей ...
7. Fam (фамилия главы семьи)
...
В главной форме «ДанныеЛС» подчиненная форма «ФрмПДЧ_ЧленыСемьи» связаны по фамилии главы семьи (поле Fam)
...

Тревожный способ...
1. У вас используется справочник отношений родства (свойства)?
2. Если есть - как он организован, как производится ввод данных?
3. Структура вашей базы ещё подлежит корректированию?