ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Напоминание о просроченной дате
12 сообщений из 12, страница 1 из 1
Напоминание о просроченной дате
    #40063768
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Здравствуйте!

Есть таблица с данными по Сотрудникам. По истечение срока уд. личности вывожу (MsgBox) напоминание о замене.
Для это создал запрос по Не уволенным сотрудникам (fired) и Сроку действия уд.л. (valid)
Код: plsql
1.
2.
3.
SELECT tblStaff.surName, tblStaff.valid, tblStaff.fired
FROM tblStaff
WHERE (((tblStaff.valid)<Date()-30) AND ((tblStaff.fired) Is Null));



Затем в событии на открытие формы с Сотрудниками написал
Код: vbnet
1.
2.
3.
4.
5.
If Not IsNull(DLookup("Valid", "qryValid")) Then
    MsgBox "Заказнчивается срок действия уд. личности" & vbCrLf & _
DLookup("surName", "qryValid"), vbInformation, "Внимание!"

End If



Подскажите, пж, как в сообщении показать две или более фамилии, если таковы будут в запросе? В данном случае отображается только первая по списку..
...
Рейтинг: 0 / 0
19.04.2021, 11:50
| Ответить | Цитировать | Написать  
Напоминание о просроченной дате
    #40063776
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
S = CurrentProject.Connection.Execute(Select...).GetString
MsgBox S
...
Рейтинг: 0 / 0
19.04.2021, 12:05
| Ответить | Цитировать | Написать  
Напоминание о просроченной дате
    #40063806
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Кривцов Анатолий,

спасибо за ответ!
Не совсем получается.. делаю так:

Код: vbnet
1.
S = CurrentProject.Connection.Execute (SELECT surName, valid, fired FROM tblStaff WHERE (((valid)<Date()-30) AND ((fired) Is Null))).GetString



выделяет красным..
...
Рейтинг: 0 / 0
19.04.2021, 13:02
| Ответить | Цитировать | Написать  
Напоминание о просроченной дате
    #40063834
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
kniga
выделяет красным..

Кавычки забыл, а они нужны - sql строка.
Код: sql
1.
S = CurrentProject.Connection.Execute ("SELECT surName, valid, fired FROM tblStaff WHERE valid<Date()-30 AND fired Is Null").GetString
...
Рейтинг: 0 / 0
19.04.2021, 13:39
| Ответить | Цитировать | Написать  
Напоминание о просроченной дате
    #40063943
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Подобный вопрос решал формой с источником запрос (как у Вас) указывал её формой просмотра и если Dcount =0 её не открывал,иначе открывал
(форму,по внешнему виду, очень легко приблизить к MsgBox)
...
Рейтинг: 0 / 0
19.04.2021, 16:30
| Ответить | Цитировать | Написать  
Напоминание о просроченной дате
    #40064051
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Большое спасибо!
...
Рейтинг: 0 / 0
20.04.2021, 05:41
| Ответить | Цитировать | Написать  
Напоминание о просроченной дате
    #40064104
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Я извиняюсь, но тут как говорят "Остапа понесло" ))

а можно еще добавить подобное только под День рождение?

Код: vbnet
1.
b = CurrentProject.Connection.Execute("SELECT surName, DOB, fired FROM tblStaff WHERE DOB = DateSerial(Year(Now()), Month([DOB]), Day([DOB]))-1 AND fired Is Null").GetString



в таком виде, к сожалению, выдает ошибку о несоответствии типов данных в выражении условия отбора..
Подскажите, пж, почему?
...
Рейтинг: 0 / 0
20.04.2021, 10:56
| Ответить | Цитировать | Написать  
Напоминание о просроченной дате
    #40064111
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
-каков тип поля DOB
-дата обрамляется "#" решётками
...
Рейтинг: 0 / 0
20.04.2021, 11:16
| Ответить | Цитировать | Написать  
Напоминание о просроченной дате
    #40064119
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
sdku,

тип поля DOB - Дата
а название полей # не оформляется же... или.. )
...
Рейтинг: 0 / 0
20.04.2021, 11:41
| Ответить | Цитировать | Написать  
Напоминание о просроченной дате
    #40064175
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
kniga,
а это:
Код: vbnet
1.
DateSerial(Year(Now()), Month([DOB]), Day([DOB]))

не дата?
...
Рейтинг: 0 / 0
20.04.2021, 15:02
| Ответить | Цитировать | Написать  
Напоминание о просроченной дате
    #40064191
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
гляньте это:
повесьте на открытие и при dcount=0 отмена события
...
Рейтинг: 0 / 0
20.04.2021, 15:45
| Ответить | Цитировать | Написать  
Напоминание о просроченной дате
    #40064337
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
sdku,

Спасибо! Наверно так и сделаю )
...
Рейтинг: 0 / 0
21.04.2021, 06:39
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Напоминание о просроченной дате
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]