Народ, а как в VBA в форме фильтр задать? / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Народ, а как в VBA в форме фильтр задать?

25 сообщений из 26, страница 1 из 2

все

Народ, а как в VBA в форме фильтр задать?

#32204768

Перец

Гость

Народ, а как в VBA в форме фильтр задать?

...

Рейтинг:

0 / 0

10.07.2003, 16:32

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32204859

Nick987

Гость

Me.Filter = "Country = 'USA'"
Me.FilterOn = True

...

Рейтинг:

0 / 0

10.07.2003, 17:36

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32204863

wara

Участник

Откуда: парень из п. АНДРЕЕВКА

Сообщения: 654

Рейтинг: 0 / 0

sub applyFilter()
Me.filter="условие для фильтра"
Me.filteron=true
end sub
Вроде

...

Рейтинг:

0 / 0

10.07.2003, 17:37

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32206709

Перец

Гость

У меня тут есть поле, в котором вводится дата. Фильтр задается по этому полю. Вопрос в следующем... Если поле пустое, то фильтр надо убрать. Пишу следующее:

Код: plaintext

1.
2.
3.
4.
5.

   If [Forms]![Form1]![FilterDate] =  "" Then
Me.FilterOn = False
 Else 
Me.Filter = " Date=[Forms]![Form1]![FilterDate]"
Me.FilterOn = True
End If

Не работает...

...

Рейтинг:

0 / 0

14.07.2003, 09:52

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32206734

Senin Viktor

Участник

Откуда: Подмосковье

Сообщения: 4 871

Рейтинг: 0 / 0

вместо Me.Filter = "Date=[Forms]![Form1]![FilterDate]"

надо
Me.Filter = "Date=#" & [Forms]![Form1]![FilterDate] & "#"

...

Рейтинг:

0 / 0

14.07.2003, 10:06

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32206742

sasha_1

Участник

Откуда: Санкт-Петербург

Сообщения: 1 613

Рейтинг: 0 / 0

маленькая деталь:

Me.Filter = "Date=#" & format( [Forms]![Form1]![FilterDate ],"mm/dd/yy") & "#"

...

Рейтинг:

0 / 0

14.07.2003, 10:13

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32206821

Перец

Гость

Не, мужики, итак фильтр работал. А вот если я в поле фильтра все убираю, то вместо того, чтобы показать мне все записи, вообще ни одной не выдает :(

...

Рейтинг:

0 / 0

14.07.2003, 11:00

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32206945

wara

Участник

Откуда: парень из п. АНДРЕЕВКА

Сообщения: 654

Рейтинг: 0 / 0

Значит там не "", а что-то другое, null например, а программа идет по старой ветке, где фильтр применяется...

...

Рейтинг:

0 / 0

14.07.2003, 12:17

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32207235

rootadmin

Гость

во-во.
посмотри отладчиком что там.

...

Рейтинг:

0 / 0

14.07.2003, 14:42

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

Народ, а как в VBA в форме фильтр задать?

#32781203

Isengrim

Гость

А как написать составной фильтр?
К примеру что-то такое (Аксес ругается, но смысл понятен):
MyFrm.Filter = "country='USA'" + "year='1990'"
MyFrm.FilterOn = True
Т.е. чтобы фильтрация была по двум/нескольким условиям.

...

Рейтинг:

0 / 0

14.11.2004, 11:02

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32781204

AlTis

Участник

Откуда: Penza - Moscow

Сообщения: 944

Рейтинг: 0 / 0

2 Isengrim
AND OR

...

Рейтинг:

0 / 0

14.11.2004, 11:06

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32781207

Isengrim

Гость

MyFrm.Filter = "country='USA'" AND "year='1990'"
MyFrm.FilterOn = True

выдает type mismatch

...

Рейтинг:

0 / 0

14.11.2004, 11:24

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32781211

AlTis

Участник

Откуда: Penza - Moscow

Сообщения: 944

Рейтинг: 0 / 0

MyFrm.Filter = "country='USA' AND year=1990"

...

Рейтинг:

0 / 0

14.11.2004, 11:36

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32781212

Isengrim

Гость

А в этом случае Run-time error '2001': предыдущая перация была прервана пользователем.

...

Рейтинг:

0 / 0

14.11.2004, 11:41

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#32781215

Isengrim

Гость

Хотя, стоп, все правильно. Ошибка найдена и устранена.
AITis, огромное спасибо!

...

Рейтинг:

0 / 0

14.11.2004, 11:55

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

Народ, а как в VBA в форме фильтр задать?

#39438514

Rikozenit

Участник

Сообщения: 144

Рейтинг: 0 / 0

Всем доброго утра!
Подскажите пожалуйста, можно ли пойти следующим путём:
В форме я создал дополнительное поле Ф_на_дату (которого нет в таблице, на которую строится форма) и хочу в него вносить какие-либо даты, чтобы весь столбец с датами (на_дату) фильтровался по этому полю.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Private Sub Ф_на_дату_Change()
On Error GoTo KeyDownERR
Me.Filter = "[на_дату]=[Ф_на_дату]"
Me.FilterOn = True
Me.Requery
Me.Refresh
KeyDownERR:
    KeyCode = 0
    Err.Clear
End Sub

...

Рейтинг:

0 / 0

14.04.2017, 10:27

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#39438564

Анатолий ( Киев )

Гость

Можно, но:
1. событие не Change, а AfterUpdate.
2. Me.Requery и Me.Refresh - лишние
3. Причем здесь KeyCode?

...

Рейтинг:

0 / 0

14.04.2017, 11:19

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#39438592

Rikozenit

Участник

Сообщения: 144

Рейтинг: 0 / 0

Анатолий ( Киев ),
keyCode чтобы ошибки не выскакивали.
Всё дело в том, что к сожалению этот скрипт, не работает:

Код: vbnet

1.
2.
3.
4.

Private Sub Ф_на_дату_AfterUpdate()
Me.Filter = "[на_дату]=[Ф_на_дату]"
Me.FilterOn = True
End Sub

...

Рейтинг:

0 / 0

14.04.2017, 11:50

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#39438596

-SWAN-

Гость

Rikozenit,

Код: sql

1.
2.
3.
4.

Private Sub Ф_на_дату_AfterUpdate()
Me.Filter = "[на_дату]=" & Ф_на_дату
Me.FilterOn = True
End Sub

...

Рейтинг:

0 / 0

14.04.2017, 11:54

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#39438610

Rikozenit

Участник

Сообщения: 144

Рейтинг: 0 / 0

-SWAN-, не работает(

...

Рейтинг:

0 / 0

14.04.2017, 12:14

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#39438612

-SWAN-

Гость

Rikozenit, попробуй так:

Код: sql

1.
2.
3.
4.

Private Sub Ф_на_дату_AfterUpdate()
Me.Filter = "clng([на_дату])=" & clng(Ф_на_дату)
Me.FilterOn = True
End Sub

...

Рейтинг:

0 / 0

14.04.2017, 12:17

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#39438615

Rikozenit

Участник

Сообщения: 144

Рейтинг: 0 / 0

-SWAN-, Заработало!!! Спасибо большущее!

...

Рейтинг:

0 / 0

14.04.2017, 12:19

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#39438626

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Rikozenit,

Код: vbnet

Me.Filter = "[на_дату]=" & Format(Ф_на_дату,"\#mm\/dd\/yyyy\#")

...

Рейтинг:

0 / 0

14.04.2017, 12:32

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#39438628

Анатолий ( Киев )

Гость

Rikozenit-SWAN-, Заработало!!! Спасибо большущее!

Код: vbnet

Me.Filter = "clng([на_дату])=" & clng(Ф_на_дату)

Это - костыль, и на большом массиве работает гораздо медленнее.
Правильное решение:

Код: vbnet

Me.Filter = "[на_дату]=" & Format([Ф_на_дату], "\#MM\/DD\/YYYY\#")

...

Рейтинг:

0 / 0

14.04.2017, 12:36

| Ответить | Цитировать | Написать

Народ, а как в VBA в форме фильтр задать?

#39438632

-SWAN-

Гость

Анатолий ( Киев ), не спорю)

...

Рейтинг:

0 / 0

14.04.2017, 12:39

| Ответить | Цитировать | Написать

25 сообщений из 26, страница 1 из 2

все

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Народ, а как в VBA в форме фильтр задать?

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

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

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39438514&tid=1612551]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	46ms
get topic data:	9ms
get forum data:	3ms
get page messages:	58ms
get tp. blocked users:	1ms
others:	324ms

total:	472ms