Проверить код выборки с базы данных 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 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

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 по дате

Решение