Поиск в базе данных

[GAL]

Привет!
Помогите кто может... Кто может помогите..
Есть база, нужно сделать поиск по базе, но чтобы искал по сокращенным словам. Вот мой код
Private Sub cmdSearch_Click()
Data1.Recordset.FindFirst " Name = '" _
& Trim(InputBox("Введите имя:")) & "'"
If Data1.Recordset.NoMatch Then MsgBox "Имя не найдено"
End Sub
Но он ищет только целое слово, если вместо Андрея написать Анд не находит...
Подскажите как сделать. В поиске по форуму копался что-то не нашел..
Заранее спасибо.

[Konst_One]

* в конце поставь

[GAL]

Где именно поставить?

[GSerg]

В конце Анд.


География, блин

[GAL]

Пробовал - не хочет.. не ищет, все тоже - MsgBox "Имя не найдено"
Еще есть способы?

[sash]

может так??

Код: Выделить всё


Data1.Recordset.Filter = "Name like 'Анд*'"
If Data1.Recordset.RecordCount = 0 Then MsgBox "НЕМА!"


[Konst_One]

если юзаешь FindFirst , то не забудь указывать с какой записи начинать поиск, иначе, ищется с последней выбранной строки рекордсета

[GAL]

У меня работает по целым словам нормально, а по начальным буквам не ищет.
Подскажите что-то конкретное.
Если, конечно, можете...

[Konst_One]

куда уж конкретнее, то
см предыдущие посты и проверяй

для тех, кто в танке , повторяю:

Код: Выделить всё

Private Sub cmdSearch_Click()
Data1.Recordset.FindFirst " Name Like '" & Trim(InputBox("Введите имя:")) & "*'"
If Data1.Recordset.NoMatch Then MsgBox "Имя не найдено"
End Sub

[GAL]

Все. Разобрался.
Всем - большое человеческое спасибо!