Запрос через форму в БД с динамическим поиском.

[andrushkiv72]

Доброе время суток всем. После двух дней поиска обращаюсь с просьбой. В Аccesse я работал немного. Кроме как заносил данные в таблицы. Вот и возникла проблема. Есть база Access (будет с большим числом строк) в таблице есть данные которые выводятся через форму frmTest в которой и задается поиск. Также есть podFrmTest в которой и отображаются данные по поиску. Проблема в написании кода.

Private Sub btnFind_Click()
On Error Resume Next
Dim sQ As String

sQ = " SELECT tblTest.* " & _
" FROM tblTest " & _
" WHERE (((tblTest.IdentificationCode)=Form s!frmTest!lstIdentificationCode) or Forms!frmTest!lstIdentificationCode is null)" & _
" AND (((tblTest.SeriesNumberAct) Like '*" & Forms!frmTest!lstSeriesNumberAct & "*') or Forms!frmTest!lstSeriesNumberAct is null) " & _
" AND (((tblTest.KadNamber) Like '*" & Forms!frmTest!lstKadNamber & "*') or Forms!frmTest!lstKadNamber is null) " & _
" AND (((tblTest.Surrname) Like '*" & Forms!frmTest!lstPIP & "*') or Forms!frmTest!lstPIP is null) "


Me![podFrmTest].Form.RecordSource = sQ
Me![podFrmTest].Form.Requery
End Sub

По окне "Призвіще" не идет динамический поиск, так как по другим окнам. В коде ...AND (((tblTest.Surrname) Like '*" & Forms!frmTest!lstPIP & "*') or Forms!frmTest!lstPIP is null) "... Вместо (tblTest.Surrname) нужно как то прописать группу столбцов(Surrname, Names, SecondName, SurrnameJur, SurrnameСoowner2, NameСoowner2, SecondNameСoowner2, SurrnameСoowner3, NameСoowner3, SecondNameСoowner3, SurrnameСoowner4, NameСoowner4, SecondNameСoowner4, SurrnameСoowner5, NameСoowner5, SecondNameСoowner5). Не получается.
P.S.Пробовал создать таблицу запросов, вместо (tblTest.Surrname) писал (BD.PIP), не работает. Нужна помощь спецов. Помогите пожалуйста. И еще, что поменять, в коде, чтобы поиск шел не по клику а сразу динамически, при введении ФИО или других критериев поиска. Всем спасибо.

[Аватар]

Не только на этом форуме вижу ваш вопрос. И ни где не отвечают. А знаете в чем беда? Вы везде свой вопрос помещаете не в профильном разделе. В вашем вопросе гораздо больше VBA, чем собстВенно SQL-языка. Вот и поместили бы в раздел Access-а. Лучше модератора попросить что-бы переместил

[Serge_Bliznykov]

Вот и поместили бы в раздел Access-а. Лучше модератора попросить что-бы переместил

я перенёс...

[Teslenko_EA]

Здравствуйте andrushkiv72.
в коде есть небольшой комментарий.

Успехов Вам.
Евгений.
P.S. для удобочитаемости выкладываемый код заключайте в тэги [соde] ... [/соde].
для этого на панели инструментов расположена кнопка - #

[shanemac51]

посмотрите пример

поиск по любому полю

[andrushkiv72]

Спасибо всем. Это немного не то что мне надо, но есть пример, теперь буду изучать что тут. С podFormTest убрали те данные которые нужны для отображения(ФИО и т.д). Поиск по другим критериям идет когда задан полный параметр, а не часть параметра. Ну и с кодом я вообще запутался. Но будем учится.

[shanemac51]

немного по вашей теме

не сделала
--поиск по родственникам
--динамический

сделала
--главная форма --поля поиска без списков
--при клике на зеленом поле в строке--показ подробно по выбранной позиции