Фильтр по форме по нескольким логическим полям с использованием кнопки Общий фильтр

@XXXa-n · Регистрация: 13.11.2019

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

Здравствуйте!

Есть простая таблица и созданная форма. Идея в том, чтобы ставя галки осуществлять поиск (с помощью кнопки общий фильтр в форме) по созданным в таблице записям, удовлетворяющим условиям поиска. Подразумевается использование VBA.

Мне нужно это для примера, чтобы потом все перенести на основную БД (наглядный образец для копипаста с минимальными правками).

P.S. Я понимаю, что похожих тем много, но самому с кодом разобраться не получилось, а сделать БД уже бы хотелось.

primer.rar

mobile · 15.11.2019, 16:58

Используйте Option Explicit. Помогает при завороте кода.

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
Option Compare Database
Option Explicit
 
Private Sub FilterAll_Click()
Dim sl
 
sl = "True " '"select * from tabl where true " 'Фильтр это только часть Where, но без слова Where
 
If Not IsNull(Me.NN) Then
sl = sl & " and NN=" & Me.NN
End If
 
If Not IsNull(Me.K) Then
sl = sl & " and K=" & Me.K
End If
 
If Not IsNull(Me.P) Then
sl = sl & " and P=" & Me.P
End If
 
Me.Filter = sl
Me.FilterOn = True
 
End Sub

Не хватало пробелов, слипались части кода. Не была указана процедура в свойствах формы

@Eugene-LS · 15.11.2019, 16:59

Сообщение от XXXa-n

Мне нужно это для примера, чтобы потом все перенести на основную БД (наглядный образец для копипаста с минимальными правками).

Логика не совсем ясна т.к. у чекбоксов нет нейтрального положения.

Нечто такое:
Option Explicit ' Не забываем!

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
Private Sub FilterAll_Click()
Dim sl As String
 
    If Not IsNull(Me!fNN) Then
        sl = sl & " AND NN=" & Me!fNN
    End If
 
    If Not IsNull(Me!fK) Then
        sl = sl & " AND K=" & Me!fK
    End If
 
    If Not IsNull(Me.P) Then
        sl = sl & " AND P=" & Me!fP
    End If
 
    If Len(sl) > 6 Then
        sl = Mid(sl, 6)
        Me.Filter = sl
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If
 
End Sub

shanemac51 · 15.11.2019, 17:12

Сообщение от Eugene-LS

у чекбоксов нет нейтрального положения.

у свободных чек-боксов на форме есть три состояния -есть нейтральное
можно выбирать только TRUE или только FALSE или оба

@Eugene-LS · 15.11.2019, 17:19

Сообщение от shanemac51

у чек-боксов на форме есть три состояния -есть нейтральное

Может быть (в принципе) - всё верно.
В примере у всех выставлено значение по умолчанию = 0 (False)
... что я и имел ввиду

@XXXa-n · 15.11.2019, 22:38 **[ТС]**

Спасибо большое!

Проблема решена, все работает))

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@XXXa-n 0 / 0 / 0 Регистрация: 13.11.2019 Сообщений: 2

	Фильтр по форме по нескольким логическим полям с использованием кнопки Общий фильтр 15.11.2019, 16:36. Показов 3020. Ответов 5 Метки access (Все метки) Здравствуйте! Есть простая таблица и созданная форма. Идея в том, чтобы ставя галки осуществлять поиск (с помощью кнопки общий фильтр в форме) по созданным в таблице записям, удовлетворяющим условиям поиска. Подразумевается использование VBA. Мне нужно это для примера, чтобы потом все перенести на основную БД (наглядный образец для копипаста с минимальными правками). P.S. Я понимаю, что похожих тем много, но самому с кодом разобраться не получилось, а сделать БД уже бы хотелось. primer.rar 0

@XXXa-n 0 / 0 / 0 Регистрация: 13.11.2019 Сообщений: 2
	15.11.2019, 22:38 [ТС]
	Спасибо большое! Проблема решена, все работает)) 0