|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.03.2010, 12:23 | #1 |
Новичок
Джуниор
Регистрация: 31.03.2010
Сообщений: 1
|
Удаление всех форм в проекте
Помогите, пожалуйста. Мне нужно удалить все формы в проекте, но возникает ошибка run-time error '-2147467259 (80004005)'. Код такой:
Sub FormsDelete() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllForms DoCmd.DeleteObject acForm, obj.Name Next obj Set dbs = Nothing End Sub Что я не так делаю? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Объединение всех форм в 1 юнит | Diamon | Общие вопросы Delphi | 8 | 04.12.2009 19:23 |
Удаление всех гиперссылок | БуреВестник | Microsoft Office Word | 6 | 16.10.2009 10:05 |
Много форм в проекте. Как открыть одну из другой? | TwiX | Общие вопросы Delphi | 7 | 25.08.2009 21:59 |
DATASOURSE всех форм | HAN | БД в Delphi | 1 | 20.04.2008 11:46 |
Удаление всех прописных букв из ячейки | samlay | Microsoft Office Excel | 4 | 07.11.2007 20:03 |