powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Do.Cmd.ApplayFilter и время
8 сообщений из 8, страница 1 из 1
Do.Cmd.ApplayFilter и время
    #39604656
День добрый всем.
Подскажите, где собака порылась.

Такая инструкция работает:
DoCmd.ApplyFilter , "[name_customer] = [Forms]![system_events]![SE_Select_Object] And [date]=[Forms]![system_events]![SE_Set_Date] And [time] > #08:00:00#"

А такая нет:
DoCmd.ApplyFilter , "[name_customer] = [Forms]![system_events]![SE_Select_Object] And [date]=[Forms]![system_events]![SE_Set_Date] And [time] > [Forms]![system_events]![FormTimeSelect]"
Где [Forms]![system_events]![FormTimeSelect] это фиксированный список значений выпадающего списка от "00:00:00" до " 23:00:00".

Башку уже сломал. Нужно сделать выборку записей не только по дате, но и по времени.
...
Рейтинг: 0 / 0
Do.Cmd.ApplayFilter и время
    #39604758
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Александр BPТакая инструкция работает:
DoCmd.ApplyFilter , "[name_customer] = [Forms]![system_events]![SE_Select_Object] And [date]=[Forms]![system_events]![SE_Set_Date] And [time] > #08:00:00#"И чё корректно работает???По моему должно быть так:
Код: vbnet
1.
DoCmd.ApplyFilter , "[name_customer] ='" &  [Forms]![system_events]![SE_Select_Object] & "' And [date]=#" & Format([Forms]![system_events]![SE_Set_Date],"mm\/dd\/yy") & "# And [time] > #08:00:00#"

если [Forms]![system_events]![SE_Select_Object] текст а поле [date] дата (такое имя поля ооочень не желательно)
...
Рейтинг: 0 / 0
Do.Cmd.ApplayFilter и время
    #39604775
DoCmd.ApplyFilter , "[name_customer] = [Forms]![system_events]![SE_Select_Object] And [date]=[Forms]![system_events]![SE_Set_Date] And [time] > #08:00:00#"
Это работает так как надо.

А вот если
[time] > [Forms]![system_events]![FormTimeSelect]
то выборка не происходит. Понимаю, что надо как то привести типы, но уже всё перепробовал.
...
Рейтинг: 0 / 0
Do.Cmd.ApplayFilter и время
    #39604778
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Александр BP,

Я бы для начала проверила типы данных примерно так
Код: vbnet
1.
2.
3.
4.
5.
6.
dim s1
S1="[name_customer] =" &  [Forms]![system_events]![SE_Select_Object]
S1=S1 & " And [date]=" & [Forms]![system_events]![SE_Set_Date]
S1=S1 & " And [time] >" & [Forms]![system_events]![FormTimeSelect]
DEBUG.PRINT S1
DoCmd.ApplyFilter S1


почти наверняка к дате надо добавить формат мм/дд/гггг
а ко времени --кавычки
...
Рейтинг: 0 / 0
Do.Cmd.ApplayFilter и время
    #39604782
sdku, у коллеги проблема не с датой, а со временем.
"собака порылась" в вашем списке значений, т.к. он возвращает текстовое значение.
Варианты:
1 "...And [time] > #" & [Forms]![system_events]![FormTimeSelect] & "#"
2 "...And Format([time]. 'HH:NN:SS') > [Forms]![system_events]![FormTimeSelect]"
3 Попробуйте не меняя строку фильтра указать в св-ве "Формат" списка формат времени.
...
Рейтинг: 0 / 0
Do.Cmd.ApplayFilter и время
    #39604795
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Анатолий ( Киев ),
не вкурил о какой проблеме Вы говорите-её нет
...
Рейтинг: 0 / 0
Do.Cmd.ApplayFilter и время
    #39604873
Анатолий ( Киев ) Спасибо! Пункт 2. реально сработал.
Хотя по логике, как мне казалось, не должно было :) Как Бейсик оперирует текстовыми переменными с операторами < >? Это же ТЕКСТ! Я старой закалки "C"-шник и подобные кульбиты просто за рамками понимания :)
...
Рейтинг: 0 / 0
Do.Cmd.ApplayFilter и время
    #39604883
Правда пришлось форматить и вторую часть:
And FORMAT([time],'HH:MM:SS') > FORMAT([Forms]![system_events]![FormTimeSelect],'HH:MM:SS')

Иначе диапазон времени от 01 до 09 не отрабатывался....
Ещё раз Спасибо, Анатолий.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Do.Cmd.ApplayFilter и время
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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