Пробный срок работы БД - Microsoft Office Access

VistaSV30 · 04.03.2010, 20:50

Добрый день!

Подскажите как правильно сделать так, чтобы после определенной даты БД перестала работать?

Спасибо!

Teslenko_EA · 04.03.2010, 21:30

Здравствуйте VistaSV30.
"правильно сделать..чтобы..перестала работать.." - "правильность" зависит от Вашей фантазии, например можно создать константу и во время открытия формы сравнивать её с текущей датой, например так:

Код:

Const dateLast = #1/28/2010#
Sub Form_Load()
    If Date > dateLast Then
        CurrentDb.Execute "drop table table1" 'можно от вредности удалить таблицы
        DoCmd.Quit
    End If
   ...

Евгений.

VistaSV30 · 04.03.2010, 21:33

Спасибо Евгений!
А можно удалить один модуль и форму?

Teslenko_EA · 04.03.2010, 22:44

"вредность" переполняет,

поупражняйтесь с JET командами:
DoCmd.DeleteObject acForm, "FormName"
DoCmd.DeleteObject acModule, "ModuleName"
Евгений.

04.03.2010, 21:30	#2
Teslenko_EA Участник клуба Регистрация: 10.08.2009 Сообщений: 1,796	Здравствуйте VistaSV30. "правильно сделать..чтобы..перестала работать.." - "правильность" зависит от Вашей фантазии, например можно создать константу и во время открытия формы сравнивать её с текущей датой, например так: Код: `Const dateLast = #1/28/2010# Sub Form_Load() If Date > dateLast Then CurrentDb.Execute "drop table table1" 'можно от вредности удалить таблицы DoCmd.Quit End If ...` Евгений.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
4 задачи паскаль ООП. Срок вторник днем по москве	thebestneo	Фриланс	2	21.12.2010 13:03
Необхоима подборка данных за определенный срок	koma	Общие вопросы Delphi	3	01.10.2009 14:08
Контрольная по Delphi. Срок 18 часов, оплата WM.	PUH	Фриланс	2	08.12.2008 17:46
Срок действия программы	fluxion	Win Api	4	23.01.2008 20:25
Как ограничить срок работы программы	Allegro87	Microsoft Office Access	7	26.11.2007 12:15

04.03.2010, 20:50	#1
VistaSV30 Форумчанин Регистрация: 08.12.2009 Сообщений: 136	Пробный срок работы БД Добрый день! Подскажите как правильно сделать так, чтобы после определенной даты БД перестала работать? Спасибо!

04.03.2010, 21:33	#3
VistaSV30 Форумчанин Регистрация: 08.12.2009 Сообщений: 136	Спасибо Евгений! А можно удалить один модуль и форму?

04.03.2010, 22:44	#4
Teslenko_EA Участник клуба Регистрация: 10.08.2009 Сообщений: 1,796	"вредность" переполняет, поупражняйтесь с JET командами: DoCmd.DeleteObject acForm, "FormName" DoCmd.DeleteObject acModule, "ModuleName" Евгений.