Доброго времени суток всем!
Кто сможет помочь? Есть у меня в таблице 1 поле MEMO. В нём через разделители Chr(13) & Chr(10) записаны следующие строки:

-------------------------
Title: ###
First Name: #######
Last Name: #######
Suffix: #######
Job Title: ##
Company: ######### #######
Street: ########
City: #########
-------------------------

Заголовки строк повторяются - в каждой записи присутствуют идентичные Title, First Name и т.д.; строки разделены стандартной последовательностью Chr(13);Chr(10). Можно ли как-то "разбить" это одно поле MEMO на части - то есть в запросе получить таблицу, содержащую не одно поле MEMO, а 8 текстовых полей? Заранее спасибо!

Karfagen, спасибо! Я по этому пути идти и собирался. Но не совсем понимаю, как мне лучше разделять строки. Нашёл и попробовал что-то типа этого:


'============================================================================='Функция возвращает массив элементов из строки, разделенных разделителем
'=============================================================================
Public Function Разбор_строки_в_массив(Строка As String, Разделитель As String) As Variant

Dim МассивСлов() As Variant
Dim i As Integer
Dim k As Integer 'счетчик элементов массива
Dim j As Integer 'начальная позиция слова в строке
Dim КоличествоСлов As Integer
Dim ПозицияНайденногоСлова As Integer
Dim Str As String

k = 1
j = 1
ПозицияНайденногоСлова = 0

'подсчет кол-ва слов в строке
КоличествоСлов = Число_слов_в_строке(Строка, Разделитель)


'Если строка состоит из 1 слова
If КоличествоСлов = 1 Then
'Выйти из функции с соответствующим значением
Разбор_строки_в_массив = Строка
Exit Function
ElseIf КоличествоСлов = 0 Then
Разбор_строки_в_массив = Null
Exit Function
End If

'создание соответствующей размерности в массивах
ReDim МассивСлов(1 To КоличествоСлов)

'Цикл по символам в строке
For i = 1 To Len(Строка) - Len(Разделитель) + 1
If Mid(Строка, i, Len(Разделитель)) = Разделитель Then
'Занести в массив слово
МассивСлов(k) = Mid(Строка, j, i - j)
k = k + 1
j = i + Len(Разделитель)
End If
Next i

'Занесение последнего слова
МассивСлов(k) = Mid(Строка, j, i - j + Len(Разделитель) - 1)

'Возврат значения
Разбор_строки_в_массив = МассивСлов

End Function


Массив не всегда одинаковый, вот в чем проблема. Встречаются строки, где юзеры втулили пару лишних "энтеров", и на этом я стопорюсь...

Karfaqen, большое Вам спасибо, всё получается именно как надо!