powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Access VBA не срабатывает фильтр
37 сообщений из 37, показаны все 2 страниц
Access VBA не срабатывает фильтр
    #36458786
varnaveei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!

Делаю свою БД в акцесс 2007, там конечно есть все нужные команды на панели управления, но хотелось бы сделать именно свое управление.

Есть форма "ф_Задания", в ней , в первой вкладке, выведены поля из таблицы "таб_Задания". Во второй вкладке выведена сама таблица "таб_Задания", которая фильтрует записи по дате задания: Основные и подчиненные поля [ДатаЗадания]

возникла необходимость фильтровать задания руками по нужной дате.
Создал поле типа "короткая дата". Начал писать обработчик, пришлось фильтр вешать на кнопку.

Dim xXx As Date

Private Sub btnFilter_Click()
xXx = [txtfilterDat] 'поле выбора нужной даты. выбор осуществляется во встроенном календаре
With Me
FilterOn = False
.Filter = (ДатаЗадания = xXx)
.FilterOn = True
.Задания.Requery 'обновляем таблицу
End With
End Sub

судя по всем описаниям должно работать как часики, а у меня почему то [ДатаЗадания] постоянно Null
пробовал:
.Filter = "Forms!ф_Задания!ДатаЗадания = Forms!ф_Задания!txtfilterDat"
.Filter = "Forms!ф_Задания!ДатаЗадания = txtfilterDat"
.Filter = "Forms!ф_Задания!ДатаЗадания = xXx"
результат "ДатаЗадания" то Null, то 0:00:00

Объясните плиз где ошибка.
Есть проблема - не понимаю по англ. ни гу-гу даже со словарем, наверное потому и мучаюсь
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36458791
sdfgsdfgsdf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сколько раз твердить - ЧИТАЙТЕ ФАК !!!

.Filter = '(ДатаЗадания = #' Trim(Month(XxX)) & '/' & Trim(Day(XxX)) '/' & Trim(Year(XxX)) &'#)'
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36458792
varnaveei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
упс..
в выполнении фильтра скобки были. Поменял на кавычки, теперь первый раз спрашивает "введите хХх", фильтрует нормально, а вот последующие разы что-то делает, форма обновляется, но дата остается первоначальная :(
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36458797
sdfgsdfgsdf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
точнее :

.Filter = '([ДатаЗадания] = #' Trim(Month(XxX)) & '/' & Trim(Day(XxX)) & '/' & Trim(Year(XxX)) &'#)'
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36458800
так пробуй
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub btnFilter_Click()
xXx = [txtfilterDat] 'поле выбора нужной даты. выбор осуществляется во встроенном календаре
With Me
'.FilterOn = False
.Filter = "ДатаЗадания = " & Format(xXx, "\#mm\/dd\/yyyy\#")
.FilterOn = True
'.Задания.Requery 'обновляем таблицу - нафик не надо
End With
End Sub
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36458811
varnaveei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sdfgsdfgsdf , F1 не для начинающих пишут :(

уже не раз сталкивался с этими апострофами (или как их ' правильно) и не могу понять для чего и в каких случаях они используются.
подсказку разберу завтра, больно сложно сразу понять


Гость , спасибо, заработало.
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36458815
sdfgsdfgsdf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
varnaveei sdfgsdfgsdf , F1 не для начинающих пишут :(

.

П..ЗДЕЦ. А ДЛЯ КОГО ? ДЛЯ НАС ? ДЛЯ Гостя и для mds_world-а ?
А ФАК (первый топик) - тоже для нас ?
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36458926
шмордень
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
не лублю фильтры
по моему лучше поменять источник
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36459050
varnaveei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sdfgsdfgsdf за то, что ответил спасибо, но

sdfgsdfgsdf
П..ЗДЕЦ. А ДЛЯ КОГО ? ДЛЯ НАС ? ДЛЯ Гостя и для mds_world-а ?
А ФАК (первый топик) - тоже для нас ?

наверняка есть такие вопросы (не по программированию, а вообще), в которых я могу задрать нос к небу и ответить точно так же в твой адрес!
Был случай, когда я пытался разобраться в написании скриптов к чату mirc, полгода читал, экспериментировал сам, но далеко дело не пошло, пока мне объяснили как им пользоваться и на что обращать внимание. Так же был случай, когда я только учась в институте (в 26 лет) понял как правильно пользоваться кодексами, а не листать постранично, и таких примеров оч. много!

в F1 написано общее:
Код: plaintext
Filter(исходный_массив, шаблон [, включить ] [, способ_сравнения ] ) .....  + немного описания
и ни слова про sdfgsdfgsdf#' Trim(Month(XxX)) & '/' & Trim(Day(XxX)) & '/' & Trim(Year(XxX)) &'#)'

Факу я читал, и по своему вопросу ничего не увидел. Я с удовольствием почитал бы и ссылки, если бы мне их дали (на русскоязычные ресурсы). Акцесс у меня назрел только к этому НГ, и я с нуля написал пусть простую, но вполне рабочую БД своими руками. И вопросы я задаю чтобы разобраться как работает, а не "ну пожалуйста, ну напишите мне код. А вот тут еще надо.... и т.п"

осмелюсь повторить мой доп.вопрос:
уже не раз сталкивался с этими апострофами (или как их ' правильно) и не могу понять для чего и в каких случаях они используются
------------

шмордень не лублю фильтры
по моему лучше поменять источник
если можно поподробнее
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36459066
П-Л
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
varnaveei,

про апострофы: это проявление полной дремучести в программировании преодолевается чтением книг по азам.
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36459075
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
varnaveeiЯ с удовольствием почитал бы и ссылки, если бы мне их дали (на русскоязычные ресурсы).
Начните, например, с этого первые шаги .
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36459083
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Предыдущий сайт довольно слабенький. Но, для начала..

Если есть желание попрактиковаться в запросах, есть замечательный сайт http://sql-ex.ru/
Попробуйте порешать.
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36474323
varnaveei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
#' Trim(Month(XxX)) & '/' & Trim(Day(XxX)) & '/' & Trim(Year(XxX)) &'#)'
если можно, киньте хоть одну ссылку на то, где написано почему и для чего в этой строке апострофы!
Я понимаю, что это не коментарии.
Но поиск по инету ничего мне не принес :(


mds_worldНачните, например, с этого первые шаги.
спасиб, но это я уже изучил.
на этом сайте еще и видео посмотреть можно

А вот http://sql-ex.ru/ туговато идет, бум поучиться :)
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36474503
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
varnaveei#' Trim(Month(XxX)) & '/' & Trim(Day(XxX)) & '/' & Trim(Year(XxX)) &'#)'
если можно, киньте хоть одну ссылку на то, где написано почему и для чего в этой строке апострофы!
Неправильные апострофы. Должны быть кавычки. А оно чего - написано с апострофами и работает???
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36474525
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
varnaveei#' Trim(Month(XxX)) & '/' & Trim(Day(XxX)) & '/' & Trim(Year(XxX)) &'#)'
если можно, киньте хоть одну ссылку на то, где написано почему и для чего в этой строке апострофы!
Я понимаю, что это не коментарии.
Но поиск по инету ничего мне не принес :(
Это формирование строки даты в американском формате. Апострофы для соединения элементов даты с обязательной частью формата - слэшем. Поскольку это строка, то текстовые константы надо отделять кавычками или апострофами. Дата получается из текста обрамлением строки решетками - #.

Посмотрите ФАК, там полно рассказана работа с датами.
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36474538
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
mds_worldПоскольку это строка, то текстовые константы надо отделять кавычками или апострофами.
Только кавычками. Мы в VBA.
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36474547
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Так что:
sdfgsdfgsdf.Filter = " ([ДатаЗадания] = # " & Trim(Month(XxX)) & " / " & Trim(Day(XxX)) & " / " & Trim(Year(XxX)) & " #) "
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36474567
varnaveei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо!
Приблизительно понял суть.

Строку для примера привел из поста ответа по этой теме (не тестил еще). А вопросом про апострофы задался потому, что видел еще примеры команд с ними, причем рабочих (проверял).
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36475033
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
varnaveeiА вопросом про апострофы задался потому, что видел еще примеры команд с ними, причем рабочих (проверял).
Наверно, это было не на VBA, а на SQL.
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #36476483
alvk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
varnaveei,

прикольный сайт, с фильмами ещё не видел.
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37047963
пупс73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
здравствуйте,помогите пожалуйста,нигде найти не могу(
как сделать фильтр только по месяцу и году?
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37047970
П-Л
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Функции работы с датами F1 Month Year
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37048004
пупс73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а пример наподобии этого .Filter = "([ДатаЗадания] = #" & Trim(Month(XxX)) & "/" & Trim(Day(XxX)) & "/" & Trim(Year(XxX)) & "#)"
как выглядеть будет?
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37048016
П-Л
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если вам нужно чтобы при задании на форме года и месяца в условие отбора попадали записи, соответствующие заданным значениям, то этот пример не правильный. Обеспечте в источнике данных вычисляемые поля года и месяца (от даты) и фильтруйте по ним.
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37048072
пупс73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я не до конца поняла, методом фильтра это возможно?
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37048074
DzonyBB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пупс73я не до конца поняла, методом фильтра это возможно?

может это поможет чем нибудь?
10019027
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37048080
DzonyBB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37065987
sirgrey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
шмордень,

А как если не секрет ?... Хоть способ намекните если форма построена на запросе из двух объединённых таблиц ? ... Попытки менять свойство источник данных приводят к ошибке...(((
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37065992
sirgrey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sirgrey,

в смысле как изменив источник данных добиться такого же эффекта как от фильтра
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37066000
alvk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sirgrey,

Совести у вас нет, молодой человек! И советы по оформлению сообщений похоже тоже вам по барабану.
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37066519
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alvksirgrey,

Совести у вас нет, молодой человек! И советы по оформлению сообщений похоже тоже вам по барабану.alvk, это о чем? Я не вижу никакого криминала в сообщениях sirgrey
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37068094
alvk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mds_world,

Я про совесть, а вам что показалось? Какой криминал? По поводу оформления сообщений в форуме тоже всё понятно, "у меня что-то не работает".

p.s. в окружении сотен разжёванных примеров.
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37074249
sirgrey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alvk,

одну секундочку ...я просто спросил члена форума о том как сделать фильтрацию с изменением источника данных ... можно сделать ..сделал это не в личку только потому что его ответ будет инетересен другим ...
У меня ВСЁ работает ... действительно не пойму где тут криминал ...
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37074377
alvk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sirgrey,

Вы заходите в комнату, в которой стоит 2 ящика с водой и спрашиваете: "А где воду взять?". Это не криминал, это другое.
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #37074378
alvk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
p.s. Я бы ещё понял фразу: "А у меня вот эта бутылка не открывается, я её пробовал вот так открыть".
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Access VBA не срабатывает фильтр
    #39331550
Фотография Focha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Владимир СанычТак что:
sdfgsdfgsdf.Filter = " ([ДатаЗадания] = # " & Trim(Month(XxX)) & " / " & Trim(Day(XxX)) & " / " & Trim(Year(XxX)) & " #) "


Может вдруг кому нужно.

Код: vbnet
1.
2.
[subform].filter="[ДатаЗадания]=cdate('" & XxX & "')"
[subform].filterOn=true
...
Рейтинг: 0 / 0
Access VBA не срабатывает фильтр
    #39332195
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
cdate плохо тем, что оно пытается расшифровать текст исходя из настроек системы. Если в тексте 3/4/2016, то это может быть расшифровано и как 3 апреля, и как 4 марта.
...
Рейтинг: 0 / 0
37 сообщений из 37, показаны все 2 страниц
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Access VBA не срабатывает фильтр
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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