выборка по дате

[vaga]

доброго времени суток
подскажите как правильно написать фильтр чтоб из таблицы можно было выбрать записи определной даты. через VBA

[Teslenko_EA]

Здравствуйте vaga.
"написать фильтр" - конечно же можно, но чем Вас не устраивает фильтр в контекстном меню таблиц БД MS Access.
Евгений.

[vaga]

не, у меня все управление БД осуществляется через VBA. мне так удобнее

я как не пытался указать дату все время получаю либо ошибку "не соответствует тип", либо просто ничего не выбирается. как правильно выглядит фильтр по дате?

[Abrakadabra]

Сообщение от vaga

не, у меня все управление БД осуществляется через VBA. мне так удобнее

Если хотите VBA использовать, то лучше функцией. Рекордсетом, например.

Сообщение от vaga

я как не пытался указать дату все время получаю либо ошибку "не соответствует тип"

Покажите, что Вы писАли?

[Teslenko_EA]

Здравствуйте vaga.
Вы очевидно ошиблись "управление БД осуществляется через VBA", без участия интерфейса (формы) не получится. Скорее всего используются формы, возможно "Табличного" вида.
Фильтр к полю формата Data набора записей как и условие отбора по полю Data источника записей (запроса), должен быть заключен в решетки.
select * from Table where Field1 = #1/2/2009#
у MS Access существует проблема с отображением формата даты, запросы с условиями: #1/13/2009# и #13/1/2009# будут отображать 13 января без возмущений. И это наводит на мысль о возможности шибки #1/12/2009# - 1 декабря или 12 января?
Решается проблема текстовым форматом, в источнике записей - запросе, создается поле отображающее дату в формате "yyyymmdd", MS Access позволяет помещать в тело запроса встроенные функции VBA:
select *, Format(Field1, "yyyymmdd") as F1 from Table
и по этому полю осуществляйте фильтрацию или выборку:
...where F1 = '20090112' - день
...where F1 Like '200901' & '*' - месяц
...where F1 Like '2009' & '*' - год
Удачи Вам.
Евгений.

[vaga]

Сообщение от Teslenko_EA

Здравствуйте vaga.
Вы очевидно ошиблись "управление БД осуществляется через VBA", без участия интерфейса (формы) не получится. Скорее всего используются формы, возможно "Табличного" вида.

ну да. флорма, на форме элементы управления

Сообщение от Teslenko_EA

select * from Table where Field1 = #1/2/2009#

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

что интересно. мне надоело мучится решил сделать одну вешь: объявил переменную типа "дата", задал ей текущую дату (=Date) и сделал выборку по этой переменной. я подумал что акцесс сам себя же обмануть не может. я его недооценил . . . оказывается может. вообшем тоже ничего не получилось

ладно попробую еще раз учитывая ваши советы. надеюсь они мне помогут. спасибо!

[vaga]

Field1 = #1/2/2009#

вот так работает, если указать дату непосредственно в коде. а если мне надо вводить дату в поле ввода?
к примеру я состовляю такое условие

WHERE lDate=#" & поле43 & "#"

и задаю этому полю маску ввода "краткий формат даты". не работает. почему у меня не получается задать маску ввода самостоятельно? я делаю маску "00/00/0000", а акцес сам исправляет на "00.00.0000".

[vaga]

сделал вот так

dt = Format(dt, "mm/dd/yyyy")
Список34.RowSource = "SELECT lDate,lTime,lzID FROM group1 WHERE lDate=#" & Replace(CStr(dt), ".", "/") & "#"

незнаю глупо/не глупо зато работает! может кому пригодится . . .

[Teslenko_EA]

Здравствуйте vaga.
Вы уже оценили специфичность работы с форматом Data в MS Access о котором я упоминал. SQL сервер понимает обращение к дате в формате "yyyymmdd", для MS Access, приемлем такой вариант:
...WHERE Format(lDate, "yyyymmdd")='" + Format(поле43, "yyyymmdd") + "'"
об этом тоже написано выше.
Евгений.

[новый образ]

Teslenko_EA скажите, а как можно реализовать ввод времени через Inputbox? ну вот к примеру ввожу "10,30" и он программа бы понимала что 10 - часы 30 минуты в 24х часовом формате?