Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как сделать чтобы 1 числа каждого месяца автоматически добавлялась запись  [new]
rasko
Member

Откуда:
Сообщений: 4
Для начисления долга клиента нужно чтобы каждый месяц на долг клиента начислялась установленная в одной из таблиц сумма. Каким способом можно это сделать? Заранее благодарен
22 мар 06, 16:44    [2477408]     Ответить | Цитировать Сообщить модератору
 Re: Как сделать чтобы 1 числа каждого месяца автоматически добавлялась запись  [new]
adv
Member

Откуда:
Сообщений: 3333
программно
22 мар 06, 16:54    [2477447]     Ответить | Цитировать Сообщить модератору
 Re: Как сделать чтобы 1 числа каждого месяца автоматически добавлялась запись  [new]
rasko
Member

Откуда:
Сообщений: 4
adv
программно


А не подскажете как это можно сделать на простом примере
22 мар 06, 16:56    [2477459]     Ответить | Цитировать Сообщить модератору
 Re: Как сделать чтобы 1 числа каждого месяца автоматически добавлялась запись  [new]
adv
Member

Откуда:
Сообщений: 3333
dim client as long
client=...
if Day(Now())=1 then
currentdb.execute "update tabDolg  set summa = summa + " & dlookup("nachislit","OdnaIsTablic","clientID =" & client) & " where clientID =" & client
end if

ещё нужно предварительно проверить было сегодня обновление или нет.

Для этого можно ввести поле в таблицу, или сделать служебную таблицу.
22 мар 06, 17:06    [2477507]     Ответить | Цитировать Сообщить модератору
 Re: Как сделать чтобы 1 числа каждого месяца автоматически добавлялась запись  [new]
RVI
Member

Откуда: Москва
Сообщений: 5373
И 1-го января и, например, 1-го мая это нужно делать???
22 мар 06, 17:06    [2477509]     Ответить | Цитировать Сообщить модератору
 Re: Как сделать чтобы 1 числа каждого месяца автоматически добавлялась запись  [new]
a_ _k
Guest
если программу кто нибудь не будет запускать ежедневно то и записи не будут добавляться...

вариант решения написать отдельную програмулину которая будет запускаться по шедулеру ежедневно и делать нужные действия и завершаться
на мой взгляд лучше всего для этих целей VBS но можно и MDB с автозапуском или EXE сделать скажем на VB6
22 мар 06, 17:18    [2477572]     Ответить | Цитировать Сообщить модератору
 Re: Как сделать чтобы 1 числа каждого месяца автоматически добавлялась запись  [new]
rasko
Member

Откуда:
Сообщений: 4
adv
dim client as long
client=...
if Day(Now())=1 then
currentdb.execute "update tabDolg  set summa = summa + " & dlookup("nachislit","OdnaIsTablic","clientID =" & client) & " where clientID =" & client
end if

ещё нужно предварительно проверить было сегодня обновление или нет.

Для этого можно ввести поле в таблицу, или сделать служебную таблицу.



Я не очень силен в програмировании но если можно подскажи куда добавить этот скрипт? В модули? Создать Class? Выручи если можно. Есть таблица Cash и форма Cash Чтобы добавлялась дата и долг каждый месяц и если даже не открывали 2 месяца после открытия добавился 1-й и 2-ой месяц

К сообщению приложен файл. Размер - 0Kb
23 мар 06, 09:47    [2479441]     Ответить | Цитировать Сообщить модератору
 Re: Как сделать чтобы 1 числа каждого месяца автоматически добавлялась запись  [new]
Alexus12
Member

Откуда:
Сообщений: 2868
ИМХО (и как уже говорили) надо:

таблица РегламентныеОперации
IDОперации, Операция

таблица ДатыРегламентныхОпераций
Дата, IDОперации


теперь до проведения операции вы смотрите на вторую таблицу - и если нет даты - выдавать предложение провести операцию

код можно повесить на form_open главной формы базы (которая открывается первой) или на спец кнопку РегламентныеОперации
23 мар 06, 10:18    [2479593]     Ответить | Цитировать Сообщить модератору
 Re: Как сделать чтобы 1 числа каждого месяца автоматически добавлялась запись  [new]
rasko
Member

Откуда:
Сообщений: 4
Alexus12
ИМХО (и как уже говорили) надо:

таблица РегламентныеОперации
IDОперации, Операция

таблица ДатыРегламентныхОпераций
Дата, IDОперации


теперь до проведения операции вы смотрите на вторую таблицу - и если нет даты - выдавать предложение провести операцию

код можно повесить на form_open главной формы базы (которая открывается первой) или на спец кнопку РегламентныеОперации


Я привязал на кнопку "Операции" твой скрипт но при запуске ругается на синтаксис и указывает на "client=..."
24 мар 06, 12:27    [2485820]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить