Вопрос № 81799: Здраствуйте уважаемые Эксперты. Есть форма с подчиненными формами внутри. В подч. формах есть записи (из запросов). Вверху формы есть поле ввода "Поиск". ВОПРОС: Как сделать поиск в столбце в подч. форме по данным из поля "Поиска"...
Вопрос № 81.799
Здраствуйте уважаемые Эксперты. Есть форма с подчиненными формами внутри. В подч. формах есть записи (из запросов). Вверху формы есть поле ввода "Поиск". ВОПРОС: Как сделать поиск в столбце в подч. форме по данным из поля "Поиска" Огромное спасибо за ваше время.
Отправлен: 09.04.2007, 21:33
Вопрос задал: Netizen (статус: Студент)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Netizen!
Поиск можно осуществить 'пробежавшись' по рекордсету подчиненной формы в поисках критерия:
With Forms.Main.Ctl.Form
.RecordsetClone.FindFirst <критерий>
.Bookmark = .RecordsetClone.Bookmark
End With
и установив на найденую запись указатель.
Использовать в качестве источника строк подчиненной формы, запрос в условии отбора которого будет ссылка на поле ввода критерия:
sSQL="SELECT * ....
if [Поле]<>"" Then sSQL=sSQL & " Where Fld like '" & Me.[Поле] & "'"
Forms.Main.Ctl.Form.RecordSource = sSQL
Этот код привязывается к событию контрола (Dirty, KeyUp,...) для проверки изменения критерия [Поле] и отбора записей удовлетворяющих критерию.
Евгений