Приближение событии

[Avetis62]

Здравствуйте уважаемые. Прошу Вас помочь мне в следующем.
Не могу сделать так, чтобы при загрузке форма "ДниРождения" показало
только сообщения, которые происходили или должны происходить в период ± 3 дней, то есть начиная с 19.06.2016 по 26.06.2016. А остальные сообщения до и после этого периода не должны появляться.
Файл прилагаю.

[Aleksandr H.]

Не могу сделать

. А что делали, как пытались решить? Сделали архив и запостили сообщение?


В запрос НапоминаниеПроДатуРождения добавить поле

Выражение3: Abs(DateDiff("d";Format(Дата();"dd\.mm");Format([Дата_рождения];"dd\.mm")))

с УсловиемОтбора:

>=0 and <=3

[Serge_Bliznykov]

или можно обернуть запрос в подзапрос:

SELECT * FROM (
SELECT Сотрудники.Код, Сотрудники.Фамилия, Сотрудники.Имя, Сотрудники.Отчество, IIf([ДнейДоДР]<0,"Не забыли поздравить с прошедшим Днём Рождения",
IIf([ДнейДоДР]=0,"Сегодня День Рождения",IIf([ДнейДоДР]=1,"Завтра День Рождения",
IIf([ДнейДоДР]<=4,"На днях будет День Рождения","")))) AS Сообщение, 
Сотрудники.Дата_рождения, 
DateDiff("d",[ТекДата],[ДР]) AS ДнейДоДР, 
Format(Date(),"dd\.mm") AS ТекДата, 
Format([Дата_рождения],"dd\.mm") AS ДР, 
Day([Дата_рождения]) AS Выражение1, 
Month([Дата_рождения]) AS Выражение2
FROM Сотрудники
WHERE  (((Month([Дата_рождения]))=Month(Date())) AND ((Сотрудники.Дата_уволнения) Is Null)))
WHERE (ABS([ДнейДоДР])<4);

[Aleksandr H.]

а...ну да...abs можно убрать >=0 c условия. Перестраховка

[Avetis62]

Ты, как всегда прав, спасибо.

[Avetis62]

Уважаемый Александр, я в запросе добавил
Выражение3: Abs(DateDiff("d";Format(Date();"dd\ .mm");Format([Дата_рождения];"dd\.mm")))
и условие отбора >=0 and <=3
Все нормально работает, надеюсь в дальнейшем не будет проблем.

[Avetis62]

Уважаемые друзья возникла необходимость чтобы:
- напоминало только вчерашние Дни Рождения,
- наступающие Дни Рождения напоминало бы за три дня.
Файл прилагаю. Заранее благодарю.

[Aleksandr H.]

SELECT 
Сотрудники.Код, Сотрудники.Фамилия, Сотрудники.Имя, Сотрудники.Отчество, 
IIf([ДнейДоДР]=3,"На днях будет День Рождения","Вчера был День Рождения") AS Сообщение, 
Сотрудники.Дата_рождения, DateDiff("d",[ТекДата],[ДР]) AS ДнейДоДР,
 Format(Date(),"dd\.mm") AS ТекДата, Format([Дата_рождения],"dd\.mm") AS ДР,
Day([Дата_рождения]) AS Выражение1, Month([Дата_рождения]) AS Выражение2,
Abs(DateDiff("d",Format(Date(),"dd /mm"),Format([Дата_рождения],"dd\.mm"))) AS Выражение3, 
(DateDiff("d",Format(Date(),"dd /mm"),Format([Дата_рождения],"dd\.mm"))) AS Выражение4
FROM Сотрудники
WHERE
 ((((DateDiff("d",Format(Date(),"dd /mm"),Format([Дата_рождения],"dd\.mm"))))=3 Or 
((DateDiff("d",Format(Date(),"dd /mm"),Format([Дата_рождения],"dd\.mm"))))=-1) 
AND ((Сотрудники.Дата_уволнения) Is Null));

[Avetis62]

Уважаемый Александр, я в запросе поставил Ваш код, но она показывает только прошедший День рождения.

[Aleksandr H.]

Вы уверенны что в таблице есть человек з днем рождения 3 октября?