как производить поиск в access2003

Привет!

Извините за банальный и простой вопрос

как произвоидть поиск в таблице с записью 10тыс строк , например хочу найти строку со словом Петр

нужно сделать так чтобы я ввел - "Петр" - он мне вывел все строки встречающиеся слово петров

1) Петров Иван Иванович
2) Сидоров Василий Петрович
3) Иванов Петр Петрович


помогите с этим запросом


спасибо!

talich2005

нужно сделать так чтобы я ввел - "Петр" - он мне вывел все строки встречающиеся слово петров

talich2005

Привет! Извините за банальный и простой вопрос как произвоидть поиск в таблице с записью 10тыс строк , например хочу найти строку со словом Петр нужно сделать так чтобы я ввел - "Петр" - он мне вывел все строки встречающиеся слово петров 1) Петров Иван Иванович 2) Сидоров Василий Петрович 3) Иванов Петр Петрович помогите с этим запросом спасибо!

SELECT * FROM [ВашаТаблица] WHERE [ВашаТаблица].[Поле по которому ведется поиск] LIKE '*Петр*'

ну там

"нужно сделать так чтобы я ввел - "Петр" - он мне вывел все строки встречающиеся слово петр"

George-III


это ясно, мне нужно сделать в форме поле text.box и кнопку

при нажатии кнопки он выводил - нужные строки

talich2005

ну там "нужно сделать так чтобы я ввел - "Петр" - он мне вывел все строки встречающиеся слово петр"

куда ввЁл??

форма поиска

Отбор записей формы по мере ввода символов в поле
только условие нужно заменить
вместо
..... Like '" & strFind & "*'"
написать
..... Like '*" & strFind & "*'"

вобщем нашел то что нужно ,
но код выдает ошибку

Run-time error '2185' Невозможно обратиться к свойству или методу элемента управления,пока на этот элемент не установлен фокус ввода.

код:

Private Sub Поле7_Change()
Dim strFind As String
strFind = Nz(Me.Поле7.Text, "")
If strFind <> "" Then

Me.Filter = "[Gru_Nombre] Like '*" & strFind & "*'"


Me.FilterOn = True
Me.Поле7.SelStart = 200
Else
Me.FilterOn = False
End If
End Sub


Debug :strFind = Nz(Me.Поле7.Text, "")

в чем может быть

talich2005

вобщем нашел то что нужно , но код выдает ошибку Run-time error '2185' Невозможно обратиться к свойству или методу элемента управления,пока на этот элемент не установлен фокус ввода. код: Private Sub Поле7_Change() Dim strFind As String strFind = Nz(Me.Поле7.Text, "") If strFind <> "" Then Me.Filter = "[Gru_Nombre] Like '*" & strFind & "*'" Me.FilterOn = True Me.Поле7.SelStart = 200 Else Me.FilterOn = False End If End Sub Debug :strFind = Nz(Me.Поле7.Text, "") в чем может быть

в поцедуре - всё правильно
но только, если она срабатывает - только как метод поля Поле7

если вы пытаетесь её вызывать из какой-то другой процедуры
(например - клик кнопки) - то ошибка конечно будет
в этом случае надо вместо Me.Поле7.Text - ставить Me.Поле7.Value