MS Access 2007. Нужно создать запрос на поиск

@Abby · Регистрация: 29.02.2012

Студворк — интернет-сервис помощи студентам

Задача в том, чтобы в кнопочной форме сделать ссылку (кнопку) для создания запроса на поиск по определенному полю, причем поле, где мне нужно установить фильтр должен выбрать пользователь АРМа (желательно, в противном случае, сделаю фильтры на все необходимые поля) и само условие (в моем случае это будет либо фамилия, либо отделение, либо группа студента). Т.е. мне нужно сделать что-то вроде фильтра, а условие при этом должен ввести пользователь по его желанию. Помогите, пожалуйста, разобраться как это сделать и возможно ли сделать нечто подобное, мой преподаватель ничего не объясняет и много требует. Спасибо за внимание.

@Agapov_stas · 18.12.2012, 09:39

Создайте форму, в которой расположите подчиненную форму с данными из таблицы.
На основной форме расположите списки\ПолеСоСписком.
После выбора значения в списке\ПолеСоСписком, фильтруйте данные подчиненной формы.
Пример "сборки" строки фильтрации-->

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'Функция-фильтр данных подчиненной формы, в зависимости от выбранного значения на форме
Private Function strFiltr_2()
Dim strSQL As String
Dim a, b, c, d, e, f, g, h, i ', j
a = Format(Me.plDate1, "DD.MM.YY")
b = Format(Me.plDate2, "DD.MM.YY")
c = Nz(Me.lstStreet.Column(1), 0)
d = Nz(Me.lstHouse.Column(1), 0)
e = Nz(Me.lstRoom.Column(1), 0)
f = Nz(Me.idStatus.Column(1), 0)
g = Nz(Me.idJurnal.Column(1), 0)
h = Nz(Me.idDispatcher.Column(1), 0)
i = Nz(Me.idLive.Column(1), 0)
'j = Forms!frmInvisible!idODC
strSQL = " Select * FROM tblStatement Where 1=1 "
strSQL = strSQL + IIf(IsNull(Me.plDate1), "", " AND CONVERT(nvarchar(8), DateInsert, 104) >= '" & a & "'")
strSQL = strSQL + IIf(IsNull(Me.plDate2), "", " AND CONVERT(nvarchar(8), DateInsert, 104) <= '" & b & "'")
strSQL = strSQL + IIf(Nz(Me.lstStreet.Column(1), 0) = 0, "", " AND idStreet = " & c & "")
strSQL = strSQL + IIf(Nz(Me.lstHouse.Column(1), 0) = 0, "", " AND idHouse = " & d & "")
strSQL = strSQL + IIf(Nz(Me.lstRoom.Column(1), 0) = 0, "", " AND idRoom = " & e & "")
strSQL = strSQL + IIf(Nz(Me.idStatus.Column(1), 0) = 0, "", " AND idStatus = " & f & "")
strSQL = strSQL + IIf(Nz(Me.idJurnal.Column(1), 0) = 0, "", " AND idJurnal = " & g & "")
strSQL = strSQL + IIf(Nz(Me.idDispatcher.Column(1), 0) = 0, "", " AND idDispatcher = " & h & "")
strSQL = strSQL + IIf(Nz(Me.idLive.Column(1), 0) = 0, "", " AND idLive = " & i & "")
strSQL = strSQL + IIf(fncStr() = "", "", " AND idODC IN(" & fncStr() & ")")
 
'Debug.Print strSQL
strFiltr_2 = strSQL
End Function

@Abby · 18.12.2012, 10:51 **[ТС]**

Спасибо. Если у Вас есть на это время можете против строки кода написать что где делается?

@Agapov_stas · 18.12.2012, 11:13

На такое времени точно нет. Хотя там и объяснять то нечего. Просто собирается строка фильтрации.
Проще будет, чтобы Вы выложили пример БД (желательно в формате MDB, так как у меня офис 2003).

@Abby · 18.12.2012, 11:29 **[ТС]**

А куда его выложить?

@Agapov_stas · 18.12.2012, 11:33

Обычно сюда, на форум..
1. Создайте новую чистую БД (mdb)
2. Импортируйте таблицы и формы, которые касаются заданного вопроса
3. Заархивируйте файл базы данных
4. Приложите (Управление вложениями) архив сюда

Новые блоги и статьи Все статьи Все блоги /
Программный отбор значения справочника Maks 21.03.2026 Процедура ВодителиНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) / / Отключаем стандартную обработку (стандартное открытие формы выбора без фильтров) . . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:

@Abby 1 / 1 / 0 Регистрация: 29.02.2012 Сообщений: 42

	MS Access 2007. Нужно создать запрос на поиск 18.12.2012, 09:31. Показов 4670. Ответов 5 Метки нет (Все метки) Задача в том, чтобы в кнопочной форме сделать ссылку (кнопку) для создания запроса на поиск по определенному полю, причем поле, где мне нужно установить фильтр должен выбрать пользователь АРМа (желательно, в противном случае, сделаю фильтры на все необходимые поля) и само условие (в моем случае это будет либо фамилия, либо отделение, либо группа студента). Т.е. мне нужно сделать что-то вроде фильтра, а условие при этом должен ввести пользователь по его желанию. Помогите, пожалуйста, разобраться как это сделать и возможно ли сделать нечто подобное, мой преподаватель ничего не объясняет и много требует. Спасибо за внимание. 0

@Abby 1 / 1 / 0 Регистрация: 29.02.2012 Сообщений: 42
	18.12.2012, 10:51 [ТС]
	Спасибо. Если у Вас есть на это время можете против строки кода написать что где делается? 0

@Agapov_stas 3357 / 1776 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	18.12.2012, 11:13
	На такое времени точно нет. Хотя там и объяснять то нечего. Просто собирается строка фильтрации. Проще будет, чтобы Вы выложили пример БД (желательно в формате MDB, так как у меня офис 2003). 0

@Abby 1 / 1 / 0 Регистрация: 29.02.2012 Сообщений: 42
	18.12.2012, 11:29 [ТС]
	А куда его выложить? 0

@Agapov_stas 3357 / 1776 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	18.12.2012, 11:33
	Обычно сюда, на форум.. 1. Создайте новую чистую БД (mdb) 2. Импортируйте таблицы и формы, которые касаются заданного вопроса 3. Заархивируйте файл базы данных 4. Приложите (Управление вложениями) архив сюда 1