Автоматическое удаление формы или запроса

[s8259]

Добрый день!
Каким образом можно автоматически удалить форму или запрос из БД Access? Под понятием автоматически используется вариант сравнения по дате, т.е. если сегодняшняя дата сравнялась с заложенной в программе, форма или запрос удаляются. Если есть какие-либо наработки или мысли, буду очень признателен. С уважением, Сергей.

[Teslenko_EA]

Здравствуйте Сергей.
удалить объекты из БД можно подобными командами:

DoCmd.DeleteObject acForm, "Форма1"
DoCmd.DeleteObject acQuery, "Запрос1"

надеюсь код обрабатывающий логику выполнения "..сравнения по дате.." самостоятельно Вы сможете соорудить.
Успехов Вам.
Евгений.

[s8259]

Евгений, добрый день!
Спасибо, что откликнулись на мой вопрос. Я так понимаю, что данный код необходимо прописывать в макросе AutoExec, но как его прописать в связке с условием по дате, пока не представляю. Буду Вам благодарен, если подскажете. С уважением, Сергей.

[Teslenko_EA]

Здравствуйте Сергей.
"..понимаю, что данный код необходимо прописывать в макросе.." - нет, эти строки кода используются в VBA. Там же можно организовать проверку/сравнение с текущей датой, например так:

Public Function moreDate()
If Date > #1/1/2011# Then
    DoCmd.DeleteObject acForm, "Форма1"
    DoCmd.DeleteObject acQuery, "Запрос1"
    DoCmd.Quit acQuitSaveAll 'закрытие MS Access
End If
End Function

ну и если Вам нравится использование макроса поместите в нем команду:
ЗапускПрограммы запускающую функцию moreDate ()
Успехов Вам.
Евгений.

[Teslenko_EA]

удален дубль.

[s8259]

Евгений, добрый день!
С ужасом для себя я обнаружил, что не знаю, куда прописывается код VBA в Access. При формировании баз всегда работал с помощью мастера, видел SQL-описания работы мастера в запросах. Зашел Alt+F11 (как в Excel), но дальше остановился (может быть нужно модуль создавать?). Посмотрел Интернет, но по данному вопросу ничего понятного своему уровню не нашел.

[s8259]

Простите, предыдущее сообщение отправилось недописаным.
Я создал простейшую БД. Если будет возможность, покажите, куда данный код устанавливается, а я попытаюсь разобраться. С уважением, Сергей.
P.S. Не судите строго, наверное я это должен знать, но не знаю.

[Teslenko_EA]

Здравствуйте Сергей.
"..куда данный код устанавливается.." - в образце, постарайтесь запустить его до завтра (до 21/11/2010)
иначе запускайте с удержанием Shift'а.
Евгений.

[s8259]

Евгений, большое Вам спасибо, все нашел, все получилось!