Приветствую, коллеги! Подскажите, как заменить сообщение о том, что не заполнено обязательное поле, своим? Оно, зараза, появляется раньше события LostFocus текст-бокса. В других событиях типа Change, AfterUpdate и пр. проверка на Null сама по себе не уместна. А системное сообщение для пользователя непонятно...

Вообщем так: в событии "До обновления" системное сообщение остается, только теперь после моего. А для применения Response нужно знать код ошибки, в системном msg-боксе он не указан. А вот вариант с изменением свойств поля в таблице для данного случая весьма хорош. Только вот в окне сообщения наличествует кнопка "справка", ее бы или отключить или прописать как-то содержание справки. К тому же приходиться значение свойства "обязательное поле" менять на "нет". Если вместо этого изменить аналогичные свойства у контрола на форме, то сообщение выходит только с кнопкой "ОК". Только значок неправильный: типа vbInformation вместо vbExlamation. Желательно бы вариант на форме отработать. Ведь, в другой ситуации в таблице-источнике, возможно, менять ничего нельзя будет. Можно ли как-то задать свойства этих окошек?

ну, функцию-то я знаю. Только я ж ее не вызываю. Это тоже системный msgbox

sdku,
То, что Вы показали - и есть вызов функции msgbox, а системный msgbox - те, я показал на скриншотах, и их опционально не изменить. Ну или только я не знаю, как изменить. Опять всё перемешалось в обсуждении. Надо разделить на 3 ветви. Ситуация: пользователь пытается уйти из текст-бокса, оставив его пустым. Необходима соответствующая реакция интерфейса, пресекающая данное действие, и чтоб пользователю было понятно, что от него хотят.

Вариант1. В таблице-источнике свойство поля "обязательное поле" в значении "да". Реакция: выходит системное сообщение с непонятным для пользователя текстом. Мимо!

Вариант2. В таблице источнике значение в "Условие на значение" прописываем "Is Not Null" и текст сообщения об ошибке. "обязательное поле" приходится менять на "нет", иначе сначала срабатывает Вариант1. Реакция: выходит сообщение (системный msgbox) с нашим текстом и значком типа vbExclamation и кнопками "ОК" и "Справка". Не даёт уйти с поля. Все как надо, но кнопка "Справка" лишняя, либо нужно подсунуть справку.

Варинат3. В таблице-источнике ничего не меняем, а на форме в свойствах контролла указываем в "Условии на значение" - "Not Is Null" текст ошибки. Реакция: выходит сообщение (системный msgbox) с нашим текстом и одной кнопкой "ОК" и значком vbInformation, что не соответствует виду сообщения об ошибке. Так же не дает покинуть поле. Т.е. чуть лучше Варианта2.

Вариант4. Не трогаем ничьи свойства, обрабатываем событие BeforUpdate, проверяем функцией IsNull(), вызываем MsgBox с нужными опциями (кнопка "OK"+значок). Не важно куда прописываем, в обработку действий с msgbox или прямо в тело условного оператора if, проверяющего значение IsNull(), ни там и там не срабатывают ни метод undo, ни оператор exit sub, метод SetFocut вообще в этом событии нельзя применять. Реакция: сообщение-то выходит, но фокус все равно передается в другой контролл, поле остается пустым, прежнее значение не возвращается. Если свойство "обязательное поле" в источнике в значении "да", то вперед всего срабатывает Вариант1.



или так:


В других событиях, типа AfterUpdate или LostFocus все так же. Ну может, я что-то не так делаю... честно говоря, дымок из ушей пошел

Вот Michelle всегда бьет в яблочко! Я про Cancel вообще напрочь забыл. Вариант с решением предпочтительнее, т.к. далеко не всегда можно баловаться со свойствами в таблице-источнике. Спасибо огромнейшее! Вопрос исчерпан!

sdku, бывает, что не замечу чего-нибудь. заспорили из-за msgbox, и всё... глаза затуманило))) прошу прощения. Спасибо всем вам.

Ну, содержание-то понятно.

А вот значок, кнопки, справка... да и хр с ними. Есть более предпочтительное решение

[quot Beliar#22365242]
Верно говорите. Все undo я сразу убрал. Они фигурировали, пока мне не протёрли шары вот этим: Cancel = True


Ну, я выяснил код ошибки, прямо в этом событии. 3314. Теперь всё просто, казалось бы. Отменяю появление системного сообщения об ошибке (Response = acDataErrContinue), подкидываю свой msgbox (правда, содержание будет уже какое-то обобщенное, а не по данной ситуации). Дальше ошибка 2169, и, либо форма не закрывается, либо возвращается прежнее значение поля. Всё классно. НО! я тут же понял, что это, мягко говоря, не очень мудрое решение. Как системой "Град" по огородным вредителям. В моем примере-то ничего, а вот в общем... я, ведь, таким образом перехватываю появление системного сообщения во всех случаях возникновения ошибки с конкретным кодом во всех событиях на форме. А случаи бывают разные, и реакция может потребоваться разная.
Решение проблемы в событии BeforeUpdate самого контрола куда более точечное и деликатное.

Я проверял этот вариант. Всё "добро" из BeforUpdate контрола перетащил в BeforUpdate формы. Чертовщина твориться начинает.
1) Жмём оконную кнопку закрытия окна (крестик). Выдает мой msgbox, форму не закрывает, но реакция на нажатие "крестика" вообще исчезает по следующего возникновения события BeforUpdate.
2) Закрываем форму макрокомандой DoCmd.Close. При этом пытаюсь перехватить закрытие:


Выдает мой msgbox, после его закрытия закрывает (или скрывает) саму форму, выдает ошибку "'2501': прервано выполнение макрокоманды Close", причем не аксессовское, а вба-шное (с кнопками "end" и "debug"). За такое - только на эшафот!
Может, я как-то плоско мыслю... не исключено. Покопался в интернете, везде, включая наш форум, все попытки выяснить, как прервать закрытие формы в подобных случаях, закончились ничем. В одном месте даже сказано было, что, дескать согласно Help'у, допускается прерывание события Unload, а Close прервать не допускается.