FAQ: Как избавиться от подтверждений на удаление и т.п., или что лучше DoCmd.RunSQL или CurrentDb.Execute?
1. Вопросы.
1.1. Как отключить подтверждения?
1.2. CurrentDb.Execute выдаёт ошибку, что делать?
1.3. Как правильно использовать DoCmd.RunSQL?
1.4. Почему нельзя использовать конструкцию Application.SetOption?
2. Ответы.
Ответы перечислены в порядке применимости.
2.1. Подтверждения отключаються следующими способами:
Перейти на использование конструкции CurrentDb.Execute.
Использовать вместе с DoCmd.RunSQL, DoCmd.SetWarnings False
Изменить глобальные настройки с помощью кострукций
1.
2.
Application.SetOption "Confirm Record Changes" , False
Application.SetOption "Confirm Document Deletions" , False
Application.SetOption "Confirm Action Queries" , False
(Категорически
НЕ рекомендуется).
2.2 Устранение ошибок в CurrentDb.Execute.
Ошибка как правило со следуещим текстом
"Too few parameters. Expected Число" ("Слишком мало парметров. Ожидалось Число").
Эта ошибка возникает, если команда или один из нижележащих запросов содержит обращения к формам или собственные парметры, - все эти обращения будут восприняты как параметры, которым не передано значение.
Почему так происходит? - Вот вольный перевод из MSDN (
ms-help://MS.MSDNQTR.2003APR.1033/enu_kbacc2000kb/acc2000kb/209203.htm ):
MSDN писал:
NOTE : В DAO Вы должны явно начить параметр; При использовании DoCmd.OpenQuery Вы этого делать не должны, т.к. DAO использует операции низкого уровня, что даёт Вам большую гибкость в использовании параметров (т.е. Вы можете сами назначить пременную в параметр, а не использовать ссылку на форму), но Вы должны выполнить служебные действия, которые Access делает негласно с действиями DoCmd. С другой стороны, DoCmd работает на более высоком уровне чем DAO. Выполняя DoCmd, Microsoft Access делает некоторые предположения о том, что сделать с параметрами - Вы не имеете никакой гибкости по использованию различных значений параметра.
Если все параметры являються сслыками на контролы форм (Forms![ИмяФормы]![ИмяКонтрола]), тогда самое простое (и красивое) решение:
1.
2.
3.
4.
5.
6.
Dim q As QueryDef, p As Parameter
Set q = CurrentDb.QueryDefs( "ИмяЗапрса" ) 'как обычного запроса Select так и INSERT/DELETE/UPDATE'
For Each p In q.Parameters
p.Value = p.Name
Next
q.Execute
q.close: set q=Nothing
Если вместо обращений к формам Вы используете собственные парметры (например [Введите первый параметр:]), тогда вам нужно задать параметры вручную:
1.
2.
3.
4.
5.
Dim q As QueryDef, p As Parameter
Set q = CurrentDb.QueryDefs( "ИмяЗапрса" ) 'как обычного запроса Select так и INSERT/DELETE/UPDATE'
q.Parameters( "[Введите первый параметр:]" ).Value = Ваше_значение_парметра
'и т.д. пока не переберете все парметры'
q.Execute
q.close: set q = Nothing
Узнать какие параметры от вас хочет Access можно с помощью следующего кода:
1.
2.
3.
4.
5.
Dim q As QueryDef, p As Parameter
Set q = CurrentDb.QueryDefs( "ИмяЗапрса" ) 'как обычного запроса Select так и INSERT/DELETE/UPDATE'
For Each p In q.Parameters
debug.print p.Name
Next
q.close: set q=Nothing
Иногда советуют поставить DoCmd.SetWarnings False перед DoCmd.RunSQL, но это крайне опасно. Это требует добавить DoCmd.SetWarnings True где только можно, особенно в обработчиках ошибок. В противном случае Аксесс в какой-нибудь момент вообще перестанет выдавать сообщения об ошибках до конца работы программы.
Также есть возможность, что в отладочный период Вы можете остановить выполнение кода
ДО включения сообщений, что тоже повлечёт за собой выше описанный результат.
Но если Вы решили использовать данную конструкцию, то используйте её следующим образом.
1.
2.
3.
4.
5.
6.
7.
8.
On Error Goto mis
...
DoCmd.SetWarnings False
DoCmd.RunSQL ...
DoCmd.SetWarnings True
…
Exit Sub
mis:
DoCmd.SetWarnings True
При использовании DoCmd.RunSQL следует учесть, что транзакция не производиться.
2.4. Противопоказания использования конструкции Application.SetOption
Подтверждения исчезнут во всей аппликации насквозь, в том числе там, где это не планировалось. Это можно делать только в том случае, если соблюдены два условия:
Пользователь лишен права на удаление тех объектов, которые нужны для нормальной работы программы, и данных через экран.
Подтверждения не отключаются, если в аппликации работает сам разработчик.
