Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Напоминание о просроченной дате / 12 сообщений из 12, страница 1 из 1
19.04.2021, 11:50
    #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, 12:05
    #40063776
Кривцов Анатолий
Кривцов Анатолий
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Напоминание о просроченной дате
S = CurrentProject.Connection.Execute(Select...).GetString
MsgBox S
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2021, 13:02
    #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:39
    #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, 16:30
    #40063943
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Напоминание о просроченной дате
Подобный вопрос решал формой с источником запрос (как у Вас) указывал её формой просмотра и если Dcount =0 её не открывал,иначе открывал
(форму,по внешнему виду, очень легко приблизить к MsgBox)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2021, 05:41
    #40064051
kniga
kniga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Напоминание о просроченной дате
Большое спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2021, 10:56
    #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, 11:16
    #40064111
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Напоминание о просроченной дате
-каков тип поля DOB
-дата обрамляется "#" решётками
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2021, 11:41
    #40064119
kniga
kniga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Напоминание о просроченной дате
sdku,

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

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

Спасибо! Наверно так и сделаю )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Напоминание о просроченной дате / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 487ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1609707]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 128ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 260ms
total:  487ms
x
x
Закрыть


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