Запрос Через Форму В Бд С Динамическим Поиском.

  • Автор темы andrushkiv72
  • Дата начала
A

andrushkiv72

Гость
#1
Доброе время суток всем. После двух дней поиска обращаюсь с просьбой. В Аccesse я работал немного. Кроме как заносил данные в таблицы. Вот и возникла проблема. Есть база Access (будет с большим числом строк) в таблице есть данные которые выводятся через форму frmTest в которой и задается поиск. Также есть podFrmTest в которой и отображаются данные по поиску. Проблема в написании кода.
Код:
Private Sub btnFind_Click()
On Error Resume Next
Dim sQ As String

sQ = " SELECT tblTest.* " & _
" FROM tblTest " & _
" WHERE (((tblTest.IdentificationCode)=Forms!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), не работает. Нужна помощь спецов. Помогите пожалуйста. Всем спасибо.
 

Вложения