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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Прога на ...

Тема: Прога на событие совпад. с датой компа

15.06.2007 21:01:58

Андрей33

6 сообщения

Тема: Прога на событие совпад. с датой компа

Покажите пример процедуры, или мыльните реальный пример, на следующее событие:
при совпадении даты в таблице с датой компа появляется message box. Например, день рождения занес в таблицу и при приближении энтого дня за 10 дней, за 1 день, день в день появляется box-поздравление. Заранее спасибо!

P.S. Объект календарь
Автор: Андрей от 07.02.2002 3:29:55 Источник ...

15.06.2007 21:01:58

All

4316 сообщения

RE: Прога на событие совпад. с датой компа

Задача очень простая, специально дают ее для учеников. Желательно чтобы Вы сами реализовали этот алгоритм.
1. Создаете макрос AutoExec и делаете в нем ссылку на функцию funVerifyDate
2. Функцию размещаете в любом модуле VBA. Обязательно сделайте Public для нее.
3. Откройте таблицу. Смотрите примеры la_*.mdb
4. Сравните данные в таблице.
Подсказка:
Public Function funVerifyDate()
Set rst = CurrentDb.OpenRecordset("SELECT * FROM [Дни рождения] ORDER BY [ДатаРождения] DESC")
' ...
If rst!ДатаРождения = Date Then
MsgBox "Надо поздравить Машу с Днем Рождения", vbCritical
End If
' ...
End Function

P.S. Объект календарь
Автор: Виктор Конюков от 0:00:00 Источник ...

15.06.2007 21:01:58

Андрей33

6 сообщения

RE: Прога на событие совпад. с датой компа

Действительно это все просто, но:
1. при запуске выдает "Введеное выражение содержит имя функции, которое приложению ... не удается найти"
2. а если надо вставить в msgBox поле с именем, чтобы выводить поздравление для каждого отдельно!
3. какой реально пример из Лидер надо на эту тему посмотреть, все примеры знаю почти наизусть и такого не помню, чтобы обсуждалось.

P.S. Объект календарь
Автор: Андрей от 08.02.2002 3:33:17 Источник ...

15.06.2007 21:01:58

All

4316 сообщения

RE: Прога на событие совпад. с датой компа

1. Необходимо поставить ссылку на DAO, т.к. объект recordset есть в этой библиотеке и ADODB. Свойства объектов разные (см. Лекции).
2. Сделайте переменную типа String и выводите ее на печать.
strMsg = "Поздравляю " & rst!Имя & " c Днем Рождения!"
MsgBox strMsg
3. Пример из Лекций (6 пункт, запросы-DAO)
Dim dbs As Database, rst As Recordset
On Error GoTo 999 'Назначаем переход по ошибке
Set dbs = CurrentDb 'Выбираем базу данных
Set rst = dbs.OpenRecordset("SELECT * FROM [Калькулятор]")
With rst
If .RecordCount > 0 Then
.MoveLast '! Заполнить запрос SQL данными
End If
.AddNew 'Добавить новую запись
!Пункт = .RecordCount + 1 'Порядковый номер записи
!Выражение = Me.Выражение 'Вычисляемое выражение
!Итог = Me.Итог 'Итоговое вычисление
.Update '! Запомнить вычисления
End With
rst.Close 'Закрываем запрос
Set dbs = Nothing 'Уничтожаем переменную
Exit Sub 'Выходим из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок

P.S. Объект календарь
Автор: Виктор Конюков от 0:00:00 Источник ...

Страница 1 из 1

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

Microsoft Access. Файлы mdb и accdb

Тема: Прога на ...

Поиск

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

Начало | Forums