Кабан дело говорит. Надо сделать первый вариант. Правда, сдается мне, что рано. Надо ишо материал копить. Тема даааалеко не исчерпывается тем, что на данный момент написано в этом топике.

//демонстративно молчит, ожидая, пока в голову придет ишо какой-нибудь материал.

Долго ожидал, однако... Вот еще в коллекцию:

Q: Как избавиться от подтверждений на удаление и т.п.?

A1. Ты, наверно, пользуешься DoCmd.RunSQL? Срочно переходи на CurrentDb.Execute (и т.п.).

A2. Иногда советуют поставить DoCmd.SetWarnings False, но это крайне опасно. Это требует добавить DoCmd.SetWarnings True где только можно, особенно в обработчиках ошибок. В противном случае Аксесс в какой-нибудь момент вообще перестанет выдавать сообщения об ошибках до конца работы программы.

А разве надо что-то добавить кроме того, что я тут написал? Я хочу сделать один фак именно такой - состоящий из мелких вопросов и ответов.

> И почему не надо,

Я написал: В противном случае Аксесс в какой-нибудь момент вообще перестанет выдавать сообщения об ошибках до конца работы программы.

> и как надо правильно,

Я написал: Срочно переходи на CurrentDb.Execute (и т.п.).

> и как надо через SetWarning если очень хочется

Я написал: Это требует добавить DoCmd.SetWarnings True где только можно, особенно в обработчиках ошибок.

Слушай, я написал все то, что ты у меня не прочитал!

> (в свое время Сенин Виктор свой кусок кода выкладывал)

Да, вот он:



Кстати, нашел другую формулировку:

Вариант 1. Пользоваться CurrentDb.Execute, а не DoCmd.RunSQL. Тогда, кстати, эта операция будет включена в транзакцию.
Вариант 2. Если DoCmd.SetWarnings False, то обязательно On Error GoTo куда-нибудь, а там DoCmd.SetWarnings True.

> Если человек ищет ответ на вопрос "Как избавиться от подтверждений на удаление" - он не полезет в фак, озаглавленный "Почему у меня перестало работать"

Да, заголовок надо поменять. Например: "Короткие вопросы и ответы".

Нашел еще код Виктора Сенина:\r
\r
/topic/36200

Q: Как сделать, чтобы форма не закрывалась?

A: В процедуре Form_Unload поставить Cancel = True.

Короче, спустя полтора месяца выставляю первую версию. Виктор и все-все-все, присоединяйтесь!\r
\r
Q: Перестали распознаваться служебные слова, такие как Left, Right, Database и т.д.\r
\r
A1: Проверь, не слетели ли ссылки. Из окна открытого модуля Tools -> References, и там должны быть помечены:\r
\r
(кто-нибудь, помогите добавить список ссылок, которые необходимы)\r
\r
A2: Если в региональных настройках Windows в качестве разделителя списков задана не запятая, а, скажем, точка с запятой, то при обращении к функциям надо ставить между аргументами именно этот разделитель (если обращение находится в запросе, в свойствах контрола и т.п., а не в модуле).\r
\r
A3: В качестве имени объекта могло случайно оказаться взято служебное слово. Решения: переименовать объект; пользоваться полным синтаксисом (Me!MyControl, а не просто MyControl).\r
\r
Q: Ставлю MsgBox - работает. Убираю - не работает.\r
\r
A: Поставь DoEvents вместо MsgBox.\r
\r
Q: Вылазит сообщение: Expected variable or procedure, not module.\r
\r
A: Начиная с Access 95, запрещено давать модулям имена, совпадающие с названиями переменных и процедур, а также со служебными словами. Если при компиляции появилось такое сообщение - значит, среди модулей попался такой, имя которого совпадает с чем-то в той строке, на которую Аксесс кричит. Его надо переименовать.\r
\r
Q: Как избавиться от подтверждений на удаление и т.п.?\r
\r
A1: Ты, наверно, пользуешься DoCmd.RunSQL? Срочно переходи на CurrentDb.Execute (и т.п.).\r
\r
A2: Иногда советуют поставить DoCmd.SetWarnings False, но это крайне опасно. Это требует добавить DoCmd.SetWarnings True где только можно, особенно в обработчиках ошибок. В противном случае Аксесс в какой-нибудь момент вообще перестанет выдавать сообщения об ошибках до конца работы программы. Вот пример правильного пользования SetWarnings:\r
\r
/topic/36200

А вот топик, в котором накидано очень много способов, как вылечить испорченный mdb:\r
\r
/topic/40603&pg=1\r
\r
Правда, оказалось, что тот mdb вроде и не был испорчен, однако топик все равно очень полезный.

Новая версия одного из вопросов.\r
\r
Q: Как избавиться от подтверждений на удаление и т.п.?\r
\r
A1: Ты, наверно, пользуешься DoCmd.RunSQL? Срочно переходи на CurrentDb.Execute (и т.п.). Только надо учесть, что Execute не будет работать, если команда или один из нижележащих запросов содержит обращения к формам, - все эти обращения будут восприняты как параметры, которым не передано значение. Как очень частичное решение этой проблемы можно писать так:\r
\r
Dim q As QueryDef, p As Parameter\r
Set q = CurrentDb.QueryDefs(...)\r
For Each p In q.Parameters\r
p.Value = p.Name\r
Next\r
q.Execute \r
\r
A2: Иногда советуют поставить DoCmd.SetWarnings False, но это крайне опасно. Это требует добавить DoCmd.SetWarnings True где только можно, особенно в обработчиках ошибок. В противном случае Аксесс в какой-нибудь момент вообще перестанет выдавать сообщения об ошибках до конца работы программы. Вот пример правильного пользования SetWarnings:\r
\r
/topic/36200

Два раза ку. :^)

Предлагаю так:

1. Вынести твой Q в отдельный фак (потому что ответ получился очень уж длинный).

2. В моем Q оставить только ссылку на твой фак.

3. Новый фак доработать на все случаи жизни. Помнится, Лох говорил, что то ли инсерт иногда запрашивает параметры, а апдейт в тех же случаях нет, то ли наоборот. И с перекрестными запросами вроде тоже была какая-то особенность на ту же тему.

Но мы же тут не для того, чтобы всех перевоспитывать. Человек привык обращаться к форме из селекта, ну так не расстреливать же его теперь. Мы ему должны показать, какие бывают подводные камни, а он пусть сам решает, как себя вести.

2 Sfagnum:

Копирую сюда.

Application.SetOption "Confirm Record Changes", False
Application.SetOption "Confirm Document Deletions", False
Application.SetOption "Confirm Action Queries", False

Виктор, у меня было предчувствие, что это чем-то нехорошо, но я не знаю, чем именно. Это ведь действует только на данную аппликацию (а не на весь Аксесс) и только у заказчика (который в сам Аксесс не лезет).