Фильтрация по выделенному без контекстного меню

@Braser · Регистрация: 16.03.2013

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

Добрый день! Подскажите возможно ли организовать фильтрацию данных по "выделенному" фрагменту записи в поле или по всему содержимому поля, но не с помощью контекстного меню, а по событию, допустим, кнопкой.
Пробуем использовать в работе Access Runtime 2007, у него отсутствует возможность фильтрации в поле с помощью контекстного меню. Может есть иные механизмы?

mobile · 09.01.2017, 09:33

Можно. Но проблема в том, что после нажатия на кнопку выделение пропадает и его надо сохранять. Например в публичной переменой. Пример для ленточной формы без подформы
1. Образуем публичную переменную в общем модуле. Пусть для определенности называется txt

Visual Basic

1	Public txt

2. На событии Кнопка вверх (MouseUp) или Клавиша вверх (KeyUp) нужного поля запоминаем в переменной выделенный текст

Visual Basic

1
2
3

Private Sub НужноеПоле_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    txt = Me.НужноеПоле.SelText
End Sub

3. На кнопке устанавливаем фильтр

Visual Basic

Private Sub МояКнопка_Click()
    Me.Form.Filter = "[НужноеПоле] like '*" & txt & "*'"
    Me.Form.FilterOn = True
End Sub

Для поиска в подформе практически то же самое, но кнопка в главной форме, соответственно адреса надо писать для подформы

@Braser · 09.01.2017, 12:09 **[ТС]**

Может чего то не так понял, не получается, фильтр вроде срабатывает на поле, а значение не берется в расчет,
вот собственно шаблон, может на примере покажете....буду очень признателен

shanemac51 · 09.01.2017, 14:38

присвоила форме ленточный тип --все работает
больше ничего не меняла

@Braser · 10.01.2017, 05:35 **[ТС]**

Виноват, лопухнулся... Мне собственно для ленточной и надо было.... СПАСИБО!

Добавлено через 1 минуту
Подскажите пожалуйста, а как на эту же кнопку по второму клику сброс фильтра повесить?

@texnik-san · 10.01.2017, 09:45

Попробуйте заменить строчку

Visual Basic

1	Me.Form.FilterOn = True

на

Visual Basic

1	Me.Form.FilterOn = not Me.Form.FilterOn

@Braser · 11.01.2017, 08:25 **[ТС]**

ОК! Спасибо, то что надо!

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,491
		1
	Фильтрация по выделенному без контекстного меню 09.01.2017, 08:59. Показов 904. Ответов 6 Метки нет (Все метки) Добрый день! Подскажите возможно ли организовать фильтрацию данных по "выделенному" фрагменту записи в поле или по всему содержимому поля, но не с помощью контекстного меню, а по событию, допустим, кнопкой. Пробуем использовать в работе Access Runtime 2007, у него отсутствует возможность фильтрации в поле с помощью контекстного меню. Может есть иные механизмы? 0

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,491
	10.01.2017, 05:35 [ТС]	5
	Виноват, лопухнулся... Мне собственно для ленточной и надо было.... СПАСИБО! Добавлено через 1 минуту Подскажите пожалуйста, а как на эту же кнопку по второму клику сброс фильтра повесить? 0

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,491
	11.01.2017, 08:25 [ТС]	7
	ОК! Спасибо, то что надо! 0