А еще эти функции не работают в формах и запросах, если в качестве разделителя элементов списка задана точка с запятой, а между параметрами стоит запятая (и т.п.).

Кстати, в VB иногда не работает Left, потому что VB понимает его как Me.Left. В Аксессе вроде не бывает такого?

А еще: не работает, если в качестве имени объекта взято служебное слово. Решения (в разных случаях годятся разные из них): переименовать объект; пользоваться полным синтаксисом; не путать Me.Count и Me!Count.

А вообще, "А почему у меня перестало работать..." - это действительно удачная формулировка. Только надо добавить: "Подборка распространенных граблей". Чтобы поняли, что в этом факе действительно может оказаться ответ.

> во всех языках описание начинается с этого.

Это про служебные слова? Но в Аксессе это не запрещено. В других языках это вообще ошибка компиляции.

Вопрос. Ставлю MsgBox - работает. Убираю - не работает.

Ответ. Поставь DoEvents вместо MsgBox.

Надо написать про одну психологическую проблему, постигающую многих чайников, да и не чайников тоже. Когда стринг (например, селект) сочиняется в программе, люди путаются в том, чтО входит в стринг, а чтО вносит в него свое значение. Например:

"Like '" & S & "*'"
"Like '" & "S" & "*'"

"Select " & CStr(F) & " As F"
"Select " & "CStr(F)" & " As F"

Самый простой способ распутаться - это поставить breakpoint и посмотреть на полученный стринг глазами.

Что-то мы с Виктором никак этот фак не дотянем... Короче, вот еще ситуевина:

Q.: Expected variable or procedure, not module

A.: Начиная с Access 95, запрещено давать модулям имена, совпадающие с названиями переменных и процедур, а также со служебными словами. Если при компиляции появилось такое сообщение - значит, среди модулей попался такой, имя которого совпадает с чем-то в той строке, на которую Аксесс кричит.

Наверно, не всем в этом форуме дано быть кабанами...

:^) Спасибо, родной.

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

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

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

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

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

Кстати: q.close - это лишнее. У QueryDef нет ни Open, ни Close.

> Open нет, а Close есть. Так что ничего лишнего :)

Помню, когда наша фирма только начинала работать на Аксессе, мы получали какую-то брошюрку от Майкрософта. Там была статья под заголовком: "Не закрывайте то, чего не открывали!"

Кроме того, вот что написано в хелпе: Closing an open object removes it from the collection to which it's appended. Это ведь не то, что мы хотим?

> Но, во-первых, сам разработчик может напороться

Надо делать так: If DevelopEnvir Then..., где DevelopEnvir - это какая-нибудь функция, которая может, например, обращаться к ini.

> да и премудрый оператор - то же, если до Окна дорветься.

А ему не надо прав давать на уничтожение объектов. А то он и получит MsgBox на подтверждение, и ответит "да".

Виктор, хочу твою реакцию. Надо родить истину.