Здравствуйте !
1) Есть проблема: необходимо вычислить сколько пробелов в строке ! С помощью какой функции это можно сделать ?
Т.е.: "БЕНЗИН АВТОМОБИЛЬНЫЙ С СОДЕРЖАНИЕМ СЕРЫ" как посчитать, что внутри строки 4 пробела и затем вычленить слова: "бензин" "автомобильный" "содержанием" "серы" ???
Причем, как именно выдернуть подстроки ???
Дайте пример пожалуйста, если можно ! Очень пожалуйста - не получается разобраться :-(

Где надо исправить, штобы вадавался не последний элемент массива (последняя подстрока разделенная пробелом), а по очереди все элементы строки, мне нужно сделать выборку по каждому слову в строке ("шла Саша по шоссе" выбрать:
Select Field Like "шла"
потом
Select Field Like "Саша" )
затем
Select Field Like "по"
затем
Select Field Like "шоссе"

Function SearchSurPlus(ByVal vstrIn As String) As String
Dim i As Long
Dim Arr
Arr = Split(vstrIn)
For i = 0 To (UBound(Arr))
vstrIn = Arr(i)
Next
SearchSurPlus = Trim$(vstrIn)
End Function


Как модифицировать функцию ??

Вы знаете - не разобрался! С удалением мусора все понятно пробенаем строку посимвольно и т.д. А вот как изменить функцию чтобы на входе была целая строка, а на выходе все вхождения разделенные пробелами ? Извиняюсь если надоел уже этим вопросом - он для меня жизненно важен, огромная просьба объясните поподробнее ПОЖАЛУЙСТА !

Продолжая разговор :
В строке условие в конструкторе пишу следующее:

Like SearchSurPlus([nom_dvi_bp]![Inom1]),

где [nom_dvi_bp]![inom1] - запрос, выборка по которому содержит полей 20 !!!

Function SearchSurPlus(ByVal vstrIn As String) As String
Dim i As Long
Dim Arr
Dim strSQL As String
Arr = Split(vstrIn)
strSQL = "'" & trim$(arr(0)) & "'"
If (UBound(Arr)) = 1 Then
strSQL=strSQL + "Union"
End If
For i = 1 To (UBound(Arr))
strSQL = strSQL & "Select * from Skmtr Where Skmtr.Поле3 like '" & Trim$(Arr(i)) & "'"
If i < UBound(Arr) Then strSQL = strSQL & " UNION "
Next
SearchSurPlus = strSQL & ";"
End Function

Допустим значение поля [Inom1] равно "лампа электрическая",
то по идее запрос должен иметь вид:

Select Поле3 From Skmtr where skmtr.поле3 like 'лампа' Union
Select Поле3 From Skmtr where skmtr.поле3 like 'электрическая';

Должно работать - а не работает ((((((
Подскажите пожалуйста в чем может быть проблема ???

Вообщем проблема следующая:
Есть одна таблица Table1 в ней текстовое поле Field1, есть вторая таблица Table2 в ней текстовое поле Filed2. Во второй таблице содержаться значения, допустим такие:
"лес пиловочник","опора вала","олифа комбинированная"
В первой таблице находятся заведомо правильные обозначения:
"пиловочник хвойный","опора вала в сборе","опора вентеля","олифа комбинированная светлая" ну и т.д. Важно что: выбрать из таблицы Table1 поля Field1 все значения в которых есть вхождения хотя бы одного слова из поля Field2 таблицы Table2.
То есть: если у нас в поле Field2 таблицы Table2 есть значение "олифа комбинированная" или "лес пиловочник", то из таблицы Table1 из поля Field1 нужно выбрать все записи где есть слова: "олифа", "комбинированная", "олифа комбинированная", "лес", "пиловочник", "лес пиловочник".
Причем потом выборку засунуть в таблицу!

В функции пишу :

Dim rst As DAO.Recordset

User-defined type not defined

Как определить этот самый тип, и вообще где можно почитать для новичков про использование ADO и DAO ???

Блин не договорил, вылазит следующая ошибка :

User-defined type not defined

Как ее победить ?