Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.09.2016, 14:59   #11
Avetis62
Пользователь
 
Регистрация: 15.03.2016
Сообщений: 80
По умолчанию

Уважаемый Александр, я имею виду сотрудников которые родились в 01.10.2016, 02.10.2016 и 03.10.2016. Поменяйте пожалуйста запрос таким образом, чтобы напоминало о приближении дня рождения этих сотрудников, а о прошедшем дня рождения- только вчерашние.
Я таблицу подправил, новый файл прикладываю.
Вложения
Тип файла: rar Vopros.rar (15.7 Кб, 8 просмотров)
Avetis62 вне форума Ответить с цитированием
Старый 30.09.2016, 15:05   #12
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Да Вы шутите или как?
поставьте моем запросе в критерии "(>=1 And <=3) Or -1" вместо "3 Or -1"
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 30.09.2016, 15:50   #13
Avetis62
Пользователь
 
Регистрация: 15.03.2016
Сообщений: 80
По умолчанию

Александр, я извиняюсь, но после замены в Вашем критерии (>=1 And <=3) Or -1" вместо "3 Or -1, смотри что у меня получилось.Там даже сегодняшние дни рождения отсутствуют, а последующие выдаются с ошибочными сообщениями. Новый файл прилагаю.
Изображения
Тип файла: png 1.png (42.2 Кб, 146 просмотров)
Вложения
Тип файла: rar Vopros-1.rar (15.2 Кб, 6 просмотров)
Avetis62 вне форума Ответить с цитированием
Старый 30.09.2016, 15:56   #14
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

>=-1 And <=3
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 30.09.2016, 16:30   #15
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

То уж надо определиться чего надо:
Цитата:
я имею виду сотрудников которые родились в 01.10.2016, 02.10.2016 и 03.10.2016.
или же
Цитата:
Там даже сегодняшние дни рождения отсутствуют
тоесть
Код:
(>=1 and <=3) or -1
или
Код:
>=-1 and <=3
Цитата:
последующие выдаются с ошибочными сообщениями.
исправьте, в чем проблема, или не вы делали запрос?


Код:
SELECT 
Сотрудники.Код, 
Сотрудники.Фамилия, 
Сотрудники.Имя, 
Сотрудники.Отчество, 
IIf([ДнейДоДР]=-1,"Вчера был День Рождения","На днях будет День Рождения") 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"))))>=1 And ((DateDiff("d",Format(Date(),"dd /mm"),Format([Дата_рождения],"dd\.mm"))))<=3) AND
 ((Сотрудники.Дата_уволнения) Is Null)) OR ((((DateDiff("d",Format(Date(),"dd /mm"),Format([Дата_рождения],"dd\.mm"))))=-1) AND ((Сотрудники.Дата_уволнения) Is Null));
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Напоминание о событии Avetis62 Microsoft Office Access 8 14.04.2016 23:53
Приближение функций методом Чебышева. Упрощение многочлена. Visual Basic 6.0 MAV_alex Помощь студентам 0 23.04.2012 22:46
Приближение изображения Proekt2012 HTML и CSS 6 24.12.2010 14:03
Приближение и удаление от текстуры.(Opengl) peredozer Мультимедиа в Delphi 3 10.05.2010 02:59
Графики. Приближение(зум) rzrwolf Microsoft Office Excel 4 06.01.2009 11:32