Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 505
от 15.04.2007, 02:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 251, Экспертов: 44
В номере:Вопросов: 1, Ответов: 1


Вопрос № 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,...) для проверки изменения критерия [Поле] и отбора записей удовлетворяющих критерию.
Евгений

Ответ отправил: Тесленко Евгений Алексеевич (статус: 6-ой класс)
Ответ отправлен: 09.04.2007, 23:33


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.49 от 14.04.2007
Яндекс Rambler's Top100

В избранное