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

[АлИван]

Я думаю справочник (или данные в другой какой-то форме) по членам семьи работника используется практически в любой базе, связанной с персоналом. В примитиве как правило это просто поле "члены семьи". Дело в том что различные организации в каком только формате не требуют эти данные данные. То просто имена детей, то еще год рождение (или полную дату), то фамилия, имя, отчество - вобщем фантазии хватает. Вот поэтому возник такой справочник с разбивкой информации на составляющие. Просто соединить информацию можно практически всегда, а вот разбить... Там могут быть и данные о документах, удостоверяющих родство (св.о рождении, решения суда и т.п.) Ведь кроме детей могут быть иждевенци и т.п.
А что касается структуры, когда ее создаешь сам она постоянно совершенствуется...

[GrawnUp]

Здравствуйте

В главной форме есть "подчиненная форма Keywords" -
Создана запросом
SELECT Keywords.Код, Keywords.Адрес, Keywords.Слово
FROM Keywords;

Код, в данном случае - ключевое неповторяющееся поле из Keywords
Адрес - поле объединения с текущим полем главной формы
Слово - уникальное String

Что хочется:
1. В отдельном поле главной формы необходимо вывести строку из всех "слов" входящих
в подчиненную форму Keywords с разделителем ", "


Самостоятельно не смог, заблудился в синтаксисе Access совершенно

[GrawnUp]

Сделал так:

Данные =СоставСемьи([Адрес])

Модуль

Function СоставСемьи(Адрес As String) As String
Dim R As Recordset
Set R = CurrentDb.OpenRecordset("select [Слово] from [Keywords] WHERE [Адрес]='" & Адрес & "'")
While Not R.EOF
СоставСемьи = СоставСемьи & R.Fields("Слово") & ", "
R.MoveNext
Wend
Set R = Nothing
End Function

Не работает: #Имя?

видимо я не способен, сделайте мне за "пиво" плз

[Myhaylo]

Function СоставСемьи(Адрес As String) As String
Dim S As String
Dim R As Recordset
Set R = CurrentDb.OpenRecordset("select [Слово] from [Keywords] WHERE [Адрес]='" & Адрес & "'")
While Not R.EOF
S = S & R!Слово & ", "
R.MoveNext
Wend
СоставСемьи = S
Set R = Nothing
End Function

[GrawnUp]

Опс. Спасибо. Заработало.

[GrawnUp]

Hi, вдруг возник вопрос))

Если получаю результат более 255 символов, как присвоить самой Функции типа данных Memo и оный же для S.
Компилятор Аксес ругается на Memo.. или это просто не возможно?

спс

[Myhaylo]

Нічого не збагнув...
Кто - Memo, кто - String, а кто - 255 символов?
Покажите текст программы, текст сообщения об ошибке и место её возникновения...

[GrawnUp]

#14

Function СоставСемьи(Адрес As String) As Memo
Dim S As Memo
Dim R As Recordset
Set R = CurrentDb.OpenRecordset("select [Слово] from [Keywords] WHERE [Адрес]='" & Адрес & "'")
While Not R.EOF
S = S & R!Слово & ", "
R.MoveNext
Wend
СоставСемьи = S
Set R = Nothing
End Function

Там где исправил String на Memo - и ругается

Текст - Compile error. User deined type not defined

[Myhaylo]

И правильно ругается - ведь в VBA не существует типа Memo для переменных... Такой тип данных есть только в таблицах.
А что Вы делаете? Какова цель сбора длинной текстовой последовательности?

[GrawnUp]

Здравствуйте, Myhaylo

базку нарисовал для : генерирую комбинации ключевых слов по сайту. Для каждой страницы (адрес) получается набор уникальных ключевых слов (Слово). Далее вывожу поле для копипаста текстом из последовательности Слов чрез запятую.
Поле выводится в виде гиперссылки для последующего копирования в 1 клик.
Иногда комбинация получается длинная и не все влезает..!!??