Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Поиск в а...

Тема: Поиск в анкетах

15.06.2007 19:58:19

SergeApp1

30 сообщения

Тема: Поиск в анкетах

Подскажите, каким образом можно осуществить поиск в анкетах из формы, если ответы на вопросы анкеты выполнены в виде да/нет (формат поля логический)
Можно ли выбрав в форме необходимые ответы, получить отчет с фамилиями, где есть совпадения просто нажав на кнопку "Посмотреть отчет"?

P.S. Поиск в формах
Автор: SergeApp от 26.11.2001 10:03:52 Источник ...

15.06.2007 19:58:19

All

4316 сообщения

RE: Поиск в анкетах

Можно написать функцию булевского типа, которая возвращает TRUE в тех случаях, которые необходимы по ходу дела. Ее параметрами могут быть поля вопросов анкеты. Если полей много, то можно разбить вопросы на группы и сочинить несколько функций. Эти функции надо разместить в запросе и сделать фильтр по их значениям.

P.S. Поиск в формах
Автор: Мак от 0:00:00 Источник ...

15.06.2007 19:58:19

SergeApp1

30 сообщения

RE: Поиск в анкетах

А как это сделать практически, если сложно приведите пример
Спасибо

P.S. Поиск в формах
Автор: SergeApp от 26.11.2001 11:33:02 Источник ...

15.06.2007 19:58:20

All

4316 сообщения

RE: Поиск в анкетах

Создаем модуль, в котором пишем

Dim glbПараметр1 As Variant ' Для хранения первого параметра
Dim glbПараметр2 As Variant ' Для хранения второго параметра

Sub SetParameters(Параметр1 As Variant, Параметр2 As Variant)
' Вызываем в обработчике нажатия кнопки в форме ввода шаблона отбора
'
glbПараметр1 = Параметр1
glbПараметр2 = Параметр2
End Sub

Function GetParameters(Поле1 As Variant, Поле2 As Variant) As Boolean
' обращаемся из запроса
GetParameters = (Поле1 = glbПараметр1) And (Поле2 = glbПараметр2)
End Function

Только необходимо позаботиться об обработке значений NULL

P.S. Поиск в формах
Автор: Мак от 0:00:00 Источник ...

15.06.2007 19:58:20

SergeApp1

30 сообщения

Спасибо!