• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

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

Вложения

Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab