И снова здравствуйте
От меня не так-то просто отделаться, так что напрягите мозги еще раз, пожалуйста. Может присоветуете что

Как можно реализовать идею, брошенную Akin'ей

Цитата

а если были праздники? Может надо в программе запоминать когда (в какой день) последний раз заходили в программу и выдавать все дни рождения между этими датами?

Я создаю поле где хранится дата последнего входа в БД. Как создать процедуру, или SQL запрос, который бы проверял, вчера ли был последний вход, и если нет, то выдавал бы данные за все последние дни.
У меня следующий SQL запрос для вывода сегодняшних ДР:

Код

SELECT  [ФамилияАгента] & " " & [ИмяАгента] & " " & [ОтчествоАгента] AS ФИОагента, ДатаРожденияАгента, Пометки FROM tblАгент WHERE (((Month([ДатаРожденияАгента]))=Month(Now())) AND ((Day([ДатаРожденияАгента]))=Day(Now()))) UNION SELECT [ФамилияКонтрагента] & " " & [ИмяКонтрагента] & " " & [ОтчествоКонтрагента] AS ФИОконтрагента, ДатаРожденияКонтрагента, Пометки FROM tblКонтрагент WHERE (((Month([ДатаРожденияКонтрагента]))=Month(Now())) AND ((Day([ДатаРожденияКонтрагента]))=Day(Now())));

Буду признательна за идеи или готовые решения

Vic

Код

BETWEEN LastDatabaseAccessDate AND Now()

Или я не понимаю вопроса?

Позволю себе дополнить немного мысль Akina

Код

SELECT  [ФамилияАгента] & " " & [ИмяАгента] & " " & [ОтчествоАгента] AS ФИОагента, ДатаРожденияАгента, Пометки FROM tblАгент WHERE DateSerial(Year(Now), Month(ДатаРожденияАгента), Day(ДатаРожденияАгента)) BETWEEN LastDatabaseAccessDate AND Now()

анологично и второй select.

Дополнила я запрос предложенным образом, на что мне было выдано следующее сообщение:

Цитата

Выражение неверно введено или является слишком сложным для расчета. Например, числовое выражение может содержать слишком много элементов. Попытайтесь упростить выражения, определив его части как переменные.

Может, будут предложения по упрощению выражения

Vic
Поясняю - Аксесс хочет, чтобы вместо

strSQL=" .... WHERE (((Month([ДатаРожденияАгента]))=Month(Now())) ....."
DoCMD.RunSQL

было

strTmp=str(Month(Now()))
strSQL=" .... WHERE (((Month([ДатаРожденияАгента]))=" & strTmp & " ....."
DoCMD.RunSQL

или хотя бы

strSQL=" .... WHERE (((Month([ДатаРожденияАгента]))=" & str(Month(Now())) & " ....."
DoCMD.RunSQL


Это сообщение отредактировал(а) Akina - 10.11.2004, 14:06

Vic, покажи select.

Select выглядит следующим образом:

Цитата

SELECT  [ФамилияАгента] & " " & [ИмяАгента] & " " & [ОтчествоАгента] AS ФИОагента, ДатаРожденияАгента, Пометки FROM tblАгент WHERE DateSerial(Year(Now), Month(ДатаРожденияАгента), Day(ДатаРожденияАгента)) BETWEEN LastDatabaseAccessDate AND Now() UNION SELECT [ФамилияКонтрагента] & " " & [ИмяКонтрагента] & " " & [ОтчествоКонтрагента] AS ФИОконтрагента, ДатаРожденияКонтрагента, Пометки FROM tblКонтрагент WHERE DateSerial(Year(Now), Month(ДатаРожденияКонтрагента), Day(ДатаРожденияКонтрагента)) BETWEEN LastDatabaseAccessDate AND Now();

Akina, сейчас попробую разобраться в том, что ты написал, а то до меня пока не очень доходит. Я все писала в запросе на SQL, VBA вообще не использовала, поэтому я пока не понимаю, как применть то, что ты написал.

Vic, LastDatabaseAccessDate это переменная в проге содержащая дату последнего обращения к базе. Её надо подставить в SQL.
Т.е. конечный SQL должен выглядеть примерно так

Код

SELECT  [ФамилияАгента] & " " & [ИмяАгента] & " " & [ОтчествоАгента] AS ФИОагента, ДатаРожденияАгента, Пометки FROM tblАгент WHERE DateSerial(Year(Now), Month(ДатаРожденияАгента), Day(ДатаРожденияАгента)) BETWEEN #10/30/2004# AND Now()

Обрати внимание на формат даты и на решетки (#)

Это я поняла. Такое сообщение выдается, когда я уже ввела LastDatabaseAccessDate.

Vic, тогда покажи кусок кода который формирует и отправляет запрос.
И так же приложи получившийся SQL statment.
Всё должно работать, проверенно.

У меня в данном случае вообще нет кода. Я просто создала SQL-запрос в Access и, когда я пытаюсь его выполнить, у меня сначала спрашивается LastDatabaseAccessDate, а потом выдается такое сообщение.

Vic, это так и будет работать или ты пишешь какие то формы и код?
Попробуй это так, как должно быть в конечном виде.

Boevik, честно говоря, я не поняла твой последний вопрос.
А что касается предложенноженного запроса, то у меня по нему тоже есть вопросы.

Цитата

SELECT  [ФамилияАгента] & " " & [ИмяАгента] & " " & [ОтчествоАгента] AS ФИОагента, ДатаРожденияАгента, Пометки FROM tblАгент WHERE DateSerial(Year(Now), Month(ДатаРожденияАгента), Day(ДатаРожденияАгента)) BETWEEN #10/30/2004# AND Now()

Как я понимаю, DateSerial возвращает некоторую дату. В данном случае эта такая дата, у которой год текущий, а месяц и число совпадают с днем и месяцем рождения агента.
Кроме того, здесь еще устанавливается ограничение, что DateSerial BETWEEN #10/30/2004# AND Now().
Я не понимаю, где в этом запросе сопоставляется, что надо выбрать именно тех агентов, у которых число и месяц рождения = DateSerial.
В моем понимании в предложенном запросе чего-то не зватает:
Select - выводятся некоторые данные об агенте
From - откуда выводятся эти данные
Where - выводится некоторое число, которое само по себе зависит от ДатыРожденияАгента, но никак не влияет на то, что выводится SELECTом

Не знаю, на сколько понятно то, что я написала, но в общем это все к тому, что у меня не работает этот запрос

Упс, это я забыла зарегистрироваться

Хорошо, Vic, попробую объяснить.
С Select и From всё понятно.
Теперь про условие.
Нам надо отобрать всех агентов у которых день рождения попадает в промежуток времени от последнего входа до сегедняшнего дня.
Так появилось BETWEEN #10/30/2004# AND Now(), т.е зашли в базу в последний раз 30 октября.
Теперь дальше, каждый агент он родился в какой то год и они отличаются друг от друга.
Так давая устроим так, как будто они все родились в этом году, получилось DateSerial(Year(Now), Month(ДатаРожденияАгента), Day(ДатаРожденияАгента))

Вот в принципе и вся логика.