Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Дни рожде...

Тема: Дни рождения

15.06.2007 21:09:11

Cherniy

8 сообщения

Тема: Дни рождения

Доброе время суток.
Интересует следующий вопрос есть таблица с именами сотрудников и с полем ДеньРождение и т.д. у каждого сотрудника естественно своя дата рождения как создать событие что б при открытии базы выскакивало сообщение о том что например "Завтра у вашего сотрудника такого то День Рождение"
Заранее благодарен!

P.S. Раздел для новичков
Автор: Sasha от 18.03.2005 0:33:05 Источник ...

15.06.2007 21:09:11

All

4316 сообщения

RE: Дни рождения

Private Sub Form_Open(Cancel As Integer)
Dim d As Variant
d = Nz(DLookup("ДеньРождения", "Сотрудники", "CDbl(ДеньРождения)=" & CDbl(Date + 1)), 0)
If d Then
MsgBox "Завтра день рождения у " & DLookup("[Фамилия] & ' ' & [Имя]", "Сотрудники", "ДеньРождения=" & CLng(Date + 1))
End If
End Sub

P.S. Раздел для новичков
Автор: Admin от 0:00:00 Источник ...

15.06.2007 21:09:11

All

4316 сообщения

RE: Дни рождения

Спасибо огромное за ответ!!!!
Да вот еще одна проблемка как это все дело что б
при открытии формы проверялась вся таблица "Сотрудники" и если например у нескольких человек днюха то естественно MsgBox поочередности выдало сообщение у кого днюха?
Спасибо!!!!!!!

P.S. Раздел для новичков
Автор: Sasha от 0:00:00 Источник ...

15.06.2007 21:09:11

All

4316 сообщения

RE: Дни рождения