Access 2003: Странно работает вызов функции, используемый в запросе

Доброго времени суток!

Создаю небольшую базу данных в Microsoft Access 2003 и столкнулся со следующей проблемой. Для условия отобора записей для запроса использую вызов собственной функции (ReturnDate), которая возвращает введенную мной глобальную переменную (CurrentDate). Объявление переменной и функция описаны в отдельном модуле:

Объявление переменной:
В условии запроса использую вызов функции:

Кроме того, в этом же модуле есть функция, изменяющая значение глобальной переменной (просто прибавляет к ней 0,01).

В результате при первом вызове запроса отбор данных по условию работает корректно. Затем использую функцию, изменяющую значение глобальной переменной и снова запускаю запрос. Не смотря на наличие в таблице-источнике запроса данных, удовлетворяющих условию отбора (=ReturnDate()), эти данные не появляются в запросе. Самым странным является то, что когда я использую в условии запроса знаки неравенства (т.е. пишу <ReturnDate() ), то все работает корректно. При условии <=ReturbDate() при первом вызове запрома он работает корректно, а при последующих работает так, будто условие выглядит как <ReturnDate().

Буду благодарен за любую помощь!

0

Просто интересно: а что должно получиться если к дате прибавить 0.01?
Кажется мне, что в функции прибавления применяются только целые числа.
Только указывается какой интервал прибавлять: день, час, минуту...

0

а почему это не в ветке по Access?..

по приведенному описанию ничего не могу сказать.
если ваш проект не слишком большой и не слишком секретный, можете попробовать выложить его здесь (целиком, в архиве) или скинуть мне на почту.
обещать ничего не могу, но посмотреть интересно...

пс. как вариант: а зачем вам вообще такая функция? используйте параметризованные запросы или даже еще проще - формируйте макросом литерал текущей даты в строке SQL-запроса перед его выполнением.

0

Проект такой: в базе данных содержится информация о спецодежде, которую выдают сотрудникам. Основная информация содержится в таблице «tbl_Главная» - ФИО, наименование одежды и дата следующей выдачи. Необходимо выводить отчеты о необходимой к выдаче одежде по месяцам, по кварталам и на год.
Текущая задача – выводить необходимую к выдаче одежду на любой будущий месяц. Хочу реализовать ее так – копировать данные из таблицы «tbl_Главная» в таблицу «tbl_Главная_копия», «симулировать» процесс выдачи одежды и собрать необходимые данные в таблицу «tbl_Выдача_по_месяцам». Для отбора данных использую десять запросов, которые проверяют одежду, для которой подошел срок, по таблице с нормами положенности, удаляют ненужные записи и отбирают необходимую информацию в таблицу «tbl_Выдача_по_месяцам». После выполнения запросов можно будет выбрать данные на любой интересующий месяц и вывести данные в подходящем виде.
Работает так : после запуска базы запустить форму «frm_Главная», выбрать в полях со списком месяц и год и нажать кнопку «демисезон» или «зимняя».
И вот столкнулся с проблемой, о которой писал выше. Странно работают вызовы функции ReturnDate(). Причем даже в функции VBA «AllMonthes()», где не работает условие «If FinalDate = ReturnDate Then». Еще показательно в запросе «qry_Запрос_на_месяц (05)» – при первом вызове условие «<=ReturnDate()» работает правильно, а после использования функции NextMonth() – работает как «<ReturnDate()».

Архив с базой.

0

Архив базы.

Вложения

Спецодежда (вер.4).rar (632.7 Кб, 55 просмотров)

0

В функцию фиктивный параметр передать не повредит -

Функция:
И вызов использовать вместе с именем поля -
<=ReturbDate([ИмяЛюбогоПоля])

To Unground:
Попробовал с фиктивным параметром - к сожалению не помогает((.

0