1. Сбор средств "Вместе двинем codeby". Деньги будут потрачены на рекламу, PR проекта и покупку сайтов нашей тематики. Подробнее ...

    Скрыть объявление

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

Тема в разделе "SQL", создана пользователем andrushkiv72, 9 июл 2012.

Наш партнер Genesis Hackspace
  1. andrushkiv72

    andrushkiv72 Гость

    Доброе время суток всем. После двух дней поиска обращаюсь с просьбой. В Аccesse я работал немного. Кроме как заносил данные в таблицы. Вот и возникла проблема. Есть база Access (будет с большим числом строк) в таблице есть данные которые выводятся через форму frmTest в которой и задается поиск. Также есть podFrmTest в которой и отображаются данные по поиску. Проблема в написании кода.
    Код (LotusScript):
    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), не работает. Нужна помощь спецов. Помогите пожалуйста. Всем спасибо.
     

    Вложения:

Загрузка...

Поделиться этой страницей