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.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub cur_date_BeforeUpdate(Cancel As Integer)
If IsNull(cur_date) Then
Dim ok1
ok1 = MsgBox("Поле [дата] является обязательным для заполнения", vbCritical + vbOKOnly, "Ошибка!")
If ok1 = vbOK Then
cur_date.Undo
'cur_date.SetFocus этот метод тут неприменим, только если прописать сохранение
Exit Sub
End If
End If
End Sub
или так:
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub cur_date_BeforeUpdate(Cancel As Integer)
If IsNull(cur_date) Then
MsgBox "Поле [дата] является обязательным для заполнения", vbCritical + vbOKOnly, "Ошибка!"
cur_date.Undo
'cur_date.SetFocus этот метод тут неприменим, только если прописать сохранение
Exit Sub
End If
End Sub
В других событиях, типа AfterUpdate или LostFocus все так же. Ну может, я что-то не так делаю... честно говоря, дымок из ушей пошел
