Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Народ, а как в VBA в форме фильтр задать? / 25 сообщений из 26, страница 1 из 2
  1  все
10.07.2003, 16:32
    #32204768
Перец
Перец
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Народ, а как в VBA в форме фильтр задать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2003, 17:36
    #32204859
Nick987
Nick987
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Me.Filter = "Country = 'USA'"
Me.FilterOn = True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2003, 17:37
    #32204863
wara
wara
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
sub applyFilter()
Me.filter="условие для фильтра"
Me.filteron=true
end sub
Вроде
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2003, 09:52
    #32206709
Перец
Перец
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
У меня тут есть поле, в котором вводится дата. Фильтр задается по этому полю. Вопрос в следующем... Если поле пустое, то фильтр надо убрать. Пишу следующее:
Код: 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, 10:06
    #32206734
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
вместо Me.Filter = "Date=[Forms]![Form1]![FilterDate]"

надо
Me.Filter = "Date=#" & [Forms]![Form1]![FilterDate] & "#"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2003, 10:13
    #32206742
sasha_1
sasha_1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
маленькая деталь:

Me.Filter = "Date=#" & format( [Forms]![Form1]![FilterDate ],"mm/dd/yy") & "#"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2003, 11:00
    #32206821
Перец
Перец
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Не, мужики, итак фильтр работал. А вот если я в поле фильтра все убираю, то вместо того, чтобы показать мне все записи, вообще ни одной не выдает :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2003, 12:17
    #32206945
wara
wara
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Значит там не "", а что-то другое, null например, а программа идет по старой ветке, где фильтр применяется...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2003, 14:42
    #32207235
rootadmin
rootadmin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
во-во.
посмотри отладчиком что там.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
14.11.2004, 11:02
    #32781203
Isengrim
Isengrim
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
А как написать составной фильтр?
К примеру что-то такое (Аксес ругается, но смысл понятен):
MyFrm.Filter = "country='USA'" + "year='1990'"
MyFrm.FilterOn = True
Т.е. чтобы фильтрация была по двум/нескольким условиям.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2004, 11:06
    #32781204
AlTis
AlTis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
2 Isengrim
AND OR
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2004, 11:24
    #32781207
Isengrim
Isengrim
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
MyFrm.Filter = "country='USA'" AND "year='1990'"
MyFrm.FilterOn = True

выдает type mismatch
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2004, 11:36
    #32781211
AlTis
AlTis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
MyFrm.Filter = "country='USA' AND year=1990"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2004, 11:41
    #32781212
Isengrim
Isengrim
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
А в этом случае Run-time error '2001': предыдущая перация была прервана пользователем.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2004, 11:55
    #32781215
Isengrim
Isengrim
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Хотя, стоп, все правильно. Ошибка найдена и устранена.
AITis, огромное спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
14.04.2017, 10:27
    #39438514
Rikozenit
Rikozenit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Всем доброго утра!
Подскажите пожалуйста, можно ли пойти следующим путём:
В форме я создал дополнительное поле Ф_на_дату (которого нет в таблице, на которую строится форма) и хочу в него вносить какие-либо даты, чтобы весь столбец с датами (на_дату) фильтровался по этому полю.

Код: 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, 11:19
    #39438564
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Можно, но:
1. событие не Change, а AfterUpdate.
2. Me.Requery и Me.Refresh - лишние
3. Причем здесь KeyCode?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2017, 11:50
    #39438592
Rikozenit
Rikozenit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Анатолий ( Киев ),
keyCode чтобы ошибки не выскакивали.
Всё дело в том, что к сожалению этот скрипт, не работает:

Код: vbnet
1.
2.
3.
4.
Private Sub Ф_на_дату_AfterUpdate()
Me.Filter = "[на_дату]=[Ф_на_дату]"
Me.FilterOn = True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2017, 11:54
    #39438596
-SWAN-
-SWAN-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Rikozenit,
Код: sql
1.
2.
3.
4.
Private Sub Ф_на_дату_AfterUpdate()
Me.Filter = "[на_дату]=" & Ф_на_дату
Me.FilterOn = True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2017, 12:14
    #39438610
Rikozenit
Rikozenit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
-SWAN-, не работает(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2017, 12:17
    #39438612
-SWAN-
-SWAN-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Rikozenit, попробуй так:
Код: sql
1.
2.
3.
4.
Private Sub Ф_на_дату_AfterUpdate()
Me.Filter = "clng([на_дату])=" & clng(Ф_на_дату)
Me.FilterOn = True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2017, 12:19
    #39438615
Rikozenit
Rikozenit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
-SWAN-, Заработало!!! Спасибо большущее!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2017, 12:32
    #39438626
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Rikozenit,

Код: vbnet
1.
Me.Filter = "[на_дату]=" & Format(Ф_на_дату,"\#mm\/dd\/yyyy\#")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2017, 12:36
    #39438628
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Rikozenit-SWAN-, Заработало!!! Спасибо большущее!
Код: vbnet
1.
Me.Filter = "clng([на_дату])=" & clng(Ф_на_дату)

Это - костыль, и на большом массиве работает гораздо медленнее.
Правильное решение:
Код: vbnet
1.
Me.Filter = "[на_дату]=" & Format([Ф_на_дату], "\#MM\/DD\/YYYY\#")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2017, 12:39
    #39438632
-SWAN-
-SWAN-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Народ, а как в VBA в форме фильтр задать?
Анатолий ( Киев ), не спорю)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Народ, а как в VBA в форме фильтр задать? / 25 сообщений из 26, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 471ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1612551]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 336ms
total:  471ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]