Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Напоминание о просроченной дате  [new]
kniga
Member

Откуда: оттуда
Сообщений: 281
Здравствуйте!

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


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

End If


Подскажите, пж, как в сообщении показать две или более фамилии, если таковы будут в запросе? В данном случае отображается только первая по списку..
19 апр 21, 11:50    [22310842]     Ответить | Цитировать Сообщить модератору
 Re: Напоминание о просроченной дате  [new]
Кривцов Анатолий
Member

Откуда:
Сообщений: 620
S = CurrentProject.Connection.Execute(Select...).GetString
MsgBox S
19 апр 21, 12:05    [22310853]     Ответить | Цитировать Сообщить модератору
 Re: Напоминание о просроченной дате  [new]
kniga
Member

Откуда: оттуда
Сообщений: 281
Кривцов Анатолий,

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

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


выделяет красным..

Сообщение было отредактировано: 19 апр 21, 12:56
19 апр 21, 13:02    [22310890]     Ответить | Цитировать Сообщить модератору
 Re: Напоминание о просроченной дате  [new]
mds_world
Member

Откуда: Ташкент
Сообщений: 27574
kniga
выделяет красным..

Кавычки забыл, а они нужны - sql строка.
S = CurrentProject.Connection.Execute ("SELECT surName, valid, fired FROM tblStaff WHERE valid<Date()-30 AND fired Is Null").GetString
19 апр 21, 13:39    [22310930]     Ответить | Цитировать Сообщить модератору
 Re: Напоминание о просроченной дате  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 7350
Подобный вопрос решал формой с источником запрос (как у Вас) указывал её формой просмотра и если Dcount =0 её не открывал,иначе открывал
(форму,по внешнему виду, очень легко приблизить к MsgBox)
19 апр 21, 16:30    [22311097]     Ответить | Цитировать Сообщить модератору
 Re: Напоминание о просроченной дате  [new]
kniga
Member

Откуда: оттуда
Сообщений: 281
Большое спасибо!
20 апр 21, 05:41    [22311297]     Ответить | Цитировать Сообщить модератору
 Re: Напоминание о просроченной дате  [new]
kniga
Member

Откуда: оттуда
Сообщений: 281
Я извиняюсь, но тут как говорят "Остапа понесло" ))

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

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


в таком виде, к сожалению, выдает ошибку о несоответствии типов данных в выражении условия отбора..
Подскажите, пж, почему?

Сообщение было отредактировано: 20 апр 21, 10:52
20 апр 21, 10:56    [22311373]     Ответить | Цитировать Сообщить модератору
 Re: Напоминание о просроченной дате  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 7350
-каков тип поля DOB
-дата обрамляется "#" решётками
20 апр 21, 11:16    [22311380]     Ответить | Цитировать Сообщить модератору
 Re: Напоминание о просроченной дате  [new]
kniga
Member

Откуда: оттуда
Сообщений: 281
sdku,

тип поля DOB - Дата
а название полей # не оформляется же... или.. )

Сообщение было отредактировано: 20 апр 21, 11:36
20 апр 21, 11:41    [22311395]     Ответить | Цитировать Сообщить модератору
 Re: Напоминание о просроченной дате  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 7350
kniga,
а это:
DateSerial(Year(Now()), Month([DOB]), Day([DOB]))
не дата?
20 апр 21, 15:02    [22311495]     Ответить | Цитировать Сообщить модератору
 Re: Напоминание о просроченной дате  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 7350
гляньте это:
повесьте на открытие и при dcount=0 отмена события

К сообщению приложен файл (tmp.rar - 20Kb) cкачать
20 апр 21, 15:45    [22311513]     Ответить | Цитировать Сообщить модератору
 Re: Напоминание о просроченной дате  [new]
kniga
Member

Откуда: оттуда
Сообщений: 281
sdku,

Спасибо! Наверно так и сделаю )
21 апр 21, 06:39    [22311726]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить