Проверить код выборки с базы данных Access по дате

@Serzh663615 · Регистрация: 21.04.2013

Студворк — интернет-сервис помощи студентам

Доброго времени суток.
Прошу проверить код правильно ли написан.
Есть таблица ([МодульДебиторы/Кредиторы_напоминалка] в Access с полями [ФИО], [Сумма долга], [Дата возникновения долга], [Дата напоминания].
Нужно чтобы при наступлении определенной даты (а именно даты напоминания) появлялось сообщение с ФИО и суммой долга
Вот собственно код:

Visual Basic
1
2
3
4
5
6
7
8
Public Sub Сообщение()
    Dim [МодульДебиторы/Кредиторы_напоминалка].[Дата напоминания] AS Date
    If Now() >= [МодульДебиторы/Кредиторы_напоминалка].[Дата напоминания] Then
        MsgBox ("Должник "&[МодульДебиторы/Кредиторы_напоминалка].[ФИО]&": задолженность составляет "&[МодульДебиторы/Кредиторы_напоминалка].[Сумма долга],vbOKOnly, [Сообщение])
    Else
        MsgBox ("Долги отсутствуют")
    End If
End Sub

dev.Free · 01.05.2013, 20:02

Serzh663615, Ты проект лучше выложи, я посмотрю, помогу.

@Serzh663615 · 01.05.2013, 20:04 **[ТС]**

inv.DS, не совсем понял, что имеется ввиду под проектом.
Заранее сори за тупизм, VB только начал изучать.

dev.Free · 01.05.2013, 20:05

Serzh663615, Ну все то, что ты смог написать сожми в архив и выложи сюда.

@Alex77755 · 01.05.2013, 20:48

при наступлении определенной даты

Как-то расплывчато: включил комп, запустил аксесс.
Через три дня наступила нужная дата. (которая сама по себе непонятная: [МодульДебиторы/Кредиторы_напоминалка].[Дата напоминания]??)
И должна сработать процедура Public Sub Сообщение?
По какому событию? По событию наступления нужной даты? А есть такое событие?

@sergeos · 01.05.2013, 21:16

похоже надо класть на форму таймер, и пока работает приложение таймер отслеживает ближайшую дату, чтобы в один прекрасный момент дать о себе знать.

@Serzh663615 · 01.05.2013, 22:39 **[ТС]**

Вот база!

@Serzh663615 · 01.05.2013, 22:56 **[ТС]**

..... Господа! Может я смысла сего процесса не понимаю?((( так как код пишется к форме, а не к таблице.

mobile · 01.05.2013, 23:15

Вариант с формой, подгружаемой на старте приложения. В событии Open формы проверяется Запрос1, который одновременно является источником подформы, содержащей должников.
При отсутствии должников, стартовая форма просто не открывается.

@Serzh663615 · 02.05.2013, 11:17 **[ТС]**

mobile, Спасибо большое! Осталось только выяснить

))))))) Выходит сообщение - напоминалка в виде открытия формы? Так что ли? А сообщение (как в OUTLOOKе) можно выводить, есть такая возможность?

@Serzh663615 · 07.05.2013, 09:38 **[ТС]**

Сообщение от Alex77755

Как-то расплывчато: включил комп, запустил аксесс.
Через три дня наступила нужная дата. (которая сама по себе непонятная: [МодульДебиторы/Кредиторы_напоминалка].[Дата напоминания]??)
И должна сработать процедура Public Sub Сообщение?
По какому событию? По событию наступления нужной даты? А есть такое событие?

Опишу желаемый процесс: запустил аксесс. Через три дня, например, наступает нужная дата (дата напоминания для каждого должника своя и рассчитывается как дата возникновения задолженности + 7 дней.) и далее должно появится сообщение о должниках, кто и сколько должен.
Подскажите. как реализовать, ПЛЛИИИИЗ!!!!

dev.Free · 07.05.2013, 09:46

Разность двух дат рассматривать.

@Serzh663615 · 07.05.2013, 10:18 **[ТС]**

Думаю, нет, можно же ориентироваться по дате напоминания, которая получатся как дата возникновения задолженности + 7 дней

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

dev.Free Заблокирован
	01.05.2013, 20:02
	Serzh663615, Ты проект лучше выложи, я посмотрю, помогу. 0

@Serzh663615 2 / 2 / 0 Регистрация: 21.04.2013 Сообщений: 98
	01.05.2013, 20:04 [ТС]
	inv.DS, не совсем понял, что имеется ввиду под проектом. Заранее сори за тупизм, VB только начал изучать. 0

dev.Free Заблокирован
	01.05.2013, 20:05
	Serzh663615, Ну все то, что ты смог написать сожми в архив и выложи сюда. 0

@sergeos 207 / 23 / 6 Регистрация: 12.06.2012 Сообщений: 235
	01.05.2013, 21:16
	похоже надо класть на форму таймер, и пока работает приложение таймер отслеживает ближайшую дату, чтобы в один прекрасный момент дать о себе знать. 0

@Serzh663615 2 / 2 / 0 Регистрация: 21.04.2013 Сообщений: 98
	01.05.2013, 22:56 [ТС]
	..... Господа! Может я смысла сего процесса не понимаю?((( так как код пишется к форме, а не к таблице. 0

@Serzh663615 2 / 2 / 0 Регистрация: 21.04.2013 Сообщений: 98
	02.05.2013, 11:17 [ТС]
	mobile, Спасибо большое! Осталось только выяснить))))))) Выходит сообщение - напоминалка в виде открытия формы? Так что ли? А сообщение (как в OUTLOOKе) можно выводить, есть такая возможность? 0

dev.Free Заблокирован
	07.05.2013, 09:46
	Разность двух дат рассматривать. 0

@Serzh663615 2 / 2 / 0 Регистрация: 21.04.2013 Сообщений: 98
	07.05.2013, 10:18 [ТС]
	Думаю, нет, можно же ориентироваться по дате напоминания, которая получатся как дата возникновения задолженности + 7 дней 0

Проверить код выборки с базы данных Access по дате

Решение