powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Access VBA не срабатывает фильтр
25 сообщений из 37, страница 1 из 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
25 сообщений из 37, страница 1 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Access VBA не срабатывает фильтр
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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