• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

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

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

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)=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), не работает. Нужна помощь спецов. Помогите пожалуйста. Всем спасибо.
 

Вложения

  • Test_07_07_2012.rar
    68,4 КБ · Просмотры: 131
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!