Maria_

В программе нужно сделать так, чтобы 25 числа каждого месяца всем записям в базе данных добавлялась абонентская плата. Беру компонент Calendar у когорого есть свойство Day. Пишу условие на FormCreate


if cal1.Day=25
then
begin
DataModule3.Table1.First;
repeat
begin
nom:=nom+1;
Form2.DBEditAPTel.Text:=floattostr(StrToFloat(Form 2.DBEditAPTel.Text)+700);
DataModule3.Table1.Post;
DataModule3.Table1.Next;
end
until
DataModule3.Table1.RecordCount=nom;


Как только число в Винде в календаре совпадает с числом в условии и тело условие начинает выполняться, выдает Ошибку доступа и ругается на Дата Модуль, говорит что недоступное значение. Не пойму почему.