Поиск записи в Access

[monrus]

Как сделать, чтобы при вводе данных в поле на форме - находилась похожая строка в базе и выводилась на форму КАК В СТРОКЕ СОСТОЯНИЯ ФОРМЫ В ACCESS 2007?

[RXL]

monrus, после каждого введенного символа выполняй поиск с LIKE. Только какая от этого польза?

[monrus]

Просто у меня на форме в Акцессе 2007 есть поле "поиск" (см. рисунок - №1), где по первым введенным буквам отображается на форме нужная запись. А в Акцессе 2003, который на работе - такого поля нет. Хотелось бы такое же реализовать с обычным полем (см. рис.- №2). Чтобы не нажимать постоянно для поиска Ctrl+F

[HandKot]

что-то типа этого

Код:

Private Sub MyTextBox_Change()
    Dim rst As DAO.Recordset, intI As Integer

    Set rst = Form.Recordset
    rst.FindFirst "[MyField] like '" & MyTextBox.Text & "*'"
    Debug.Print rst.NoMatch
    MyTextBox.SelStart = Len(MyTextBox.Text)
    
End Sub

[monrus]

HandKot, большое спасибо!!!

[monrus]

А как сделать чтобы он во всех полях искал?

[HandKot]

А как сделать чтобы он во всех полях искал?

попробуйте так
rst.FindFirst "[MyField] like '" & MyTextBox.Text & "*' OR [MyField2] like '" & MyTextBox.Text & "*'"

[monrus]

спасибо. это получается надо все поля прописывать?

[HandKot]

спасибо. это получается надо все поля прописывать?

а вы как думали
Если взять, к примеру вас, тоже ведь глазами будете пробегать все поля
а комп ничем не лучше, по крайней мере, телепатией и предсказаниями не владеет

[monrus]

. Извиняюсь - я имел ввиду, чем каждый раз новое поле прописывать, можно было бы как в SQL типа all или *. Но все равно большое спасибо что помог!!!

[monrus]

Еще один вопрос - этот метод ищет в строке с первого символа. а как слелать чтобы с любогоместа в строке искал.

[HandKot]

Еще один вопрос - этот метод ищет в строке с первого символа. а как слелать чтобы с любогоместа в строке искал.

поставить символ "звездочка" в начале

Код:

rst.FindFirst "[MyField] like '*" & MyTextBox.Text & "*' OR [MyField2] like '*" & MyTextBox.Text & "*'"

[monrus]

Огромное спасибо!

[corvin-nik]

monrus, HandKot,  Везет же людям, все у них заработало. А я уже второй день бьюсь и ничего кроме ошибки 3077 (пропущен оператов в выражении) ничего не получается, если же поставить одиночные кавычки, вроде как по правилам, то вообще ничего не ищется.
Помогите пожалуста понять, что может быть не так? Изначальный пример кода не работает.

[Алексей++]

corvin-nik,
rst.FindFirst "[MyField] like '*" & MyTextBox.Text & "*' OR [MyField2] like '*" & MyTextBox.Text & "*'"

corvin-nik, тоже в ИЕ сидишь ? )

[corvin-nik]

corvin-nik,
rst.FindFirst "[MyField] like '*" & MyTextBox.Text & "*' OR [MyField2] like '*" & MyTextBox.Text & "*'"

corvin-nik, тоже в ИЕ сидишь ? )

Спасибо! Сижу, блином Билли эдак и так р-р-р-р

[corvin-nik]

Еще один вопрос: как можно выделять найденные символы, чтоб не шарить глазами по строкам?

[daikmax]

Может уже не актуально, но всетаки интересно, как сделать такойже поиск, но по двум полям, дапустим имя и фамилия???

[daikmax]

Может уже не актуально, но всетаки интересно, как сделать такойже поиск, но по двум полям, дапустим имя и фамилия???

задача такова: два поля даля ввода текста на поиск, сам поиск по одной колонке, только так как в примере сверху... Так сказатй поиск в реалйном времени )

[RXL]

daikmax, поиск по N поляд делается почти точно также, как и поиск по одному полю: ищем по первому, совпадения проверяем по остальным полям.

[daikmax]

Private Sub MyTextBox_Change()
    Dim rst As DAO.Recordset, intI As Integer

    Set rst = Form.Recordset
    rst.FindFirst "[MyField] like '*" & MyTextBox.Text & "*' OR [MyField2] like '*" & MyTextBox.Text & "*'"
    Debug.Print rst.NoMatch
    MyTextBox.SelStart = Len(MyTextBox.Text)
   
End Sub

этот код выполняет поиск по двум разным полям базы, каждый раз когда я набераю символ в  один текстбокс?! Верно?
У меня немного другая задача, таблица дапустим в две колонки, 1-я имя, 2-а фамилия! Надо
идентичный поиск, если я ввел фамилию, и в базе фамилии одинаковые, то я ввожу есчо и имя!
Как сделать правелйый провеку, и возможена ли реализацыя такова поиска?!

[HandKot]

попробуйте так

Код:

'где вводим фамилию
Private Sub MyTextBoxFamily_Change()
    Dim rst As DAO.Recordset, intI As Integer

    Set rst = Form.Recordset
    rst.FindFirst "[MyField_Family] like '*" & MyTextBoxFamily.Text & "*' AND [MyField_Name] like '*" & MyTextBoxName.Text & "*'"
    Debug.Print rst.NoMatch
    MyTextBoxFamyly.SelStart = Len(MyTextBoxFamily.Text)
End Sub

'где вводим имя
Private Sub MyTextBoxName_Change()
    Dim rst As DAO.Recordset, intI As Integer

    Set rst = Form.Recordset
    rst.FindFirst "[MyField_Family] like '*" & MyTextBoxFamily.Text & "*' AND [MyField_Name] like '*" & MyTextBoxName.Text & "*'"
    Debug.Print rst.NoMatch
    MyTextBoxName.SelStart = Len(MyTextBoxName.Text)
End Sub

[LexandrIII]

А как сделать поиск, чтобы в таблице оставались толке записи, которые набираешь в отдельном поле поиска?

[HandKot]

не совсем понятен вопрос
возможно Вы имели ввиду св-во Filtr объекта RecordSet

[LexandrIII]

HandKot, возможно. Есть таблица и есть поле ввода. Мне нужно, чтобы в таблице оставались только записи соответствующие тому, что набирается в поле ввода. Соответствие допустим будет по полю Name таблицы.

[HandKot]

на событие изменения в поле (txtFilter) ввода пишете, что-то похожее на это
sub txtFilter_Change
  myRecordset.Filtr = "Name like '" + txtFilter + "*'"
 
end sub

[EnergyUzh]

Код:

Private Sub Поиск_Change()
Dim rst As DAO.Recordset, intI As Integer
    Set rst = Form.Recordset
    rst.FindFirst "Инструкции like '*" & Поиск.Text & "*'"
    Debug.Print rst.NoMatch
    Поиск.SelStart = Len(Поиск.Text)
End Sub

Выбивает ошибку 3070 "Инструкции" не распознается ядром базы даных Microsoft Jet

[HandKot]

 а такое поле вообще есть в таблице/рекордсете ?

так же попробуйте обернуть "брикетами"

Код:

rst.FindFirst "[Инструкции] like '*" & Поиск.Text & "*'"

[EnergyUzh]

Спасибо, не заметил ошибку в написании. И еще одно можно ли как-то переделать этот код что бы в поле можно было писать не только одно слово, и пользоваться пробелом...

[HandKot]

не понял