Использую Ac97 хочу сделать перехват ошибок, пишу:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
'Debug.Print "err="; DataErr
Const conAppError = 2113 ' Это номер моей ошибки

On Error Resume Next
Err.Raise lngError
If Err.Description = conAppError Then
ErrorString = AccessError(lngError)
ElseIf Err.Description = "" Then
MsgBox "Вы ввели в поле неправильный формат значения."
Else
ErrorString = Err.Description
End If
End Sub

И не работает, в чем дело, не пойму. Для Ac2000 все было проще, а в Ac97 что-то не получается.
Подскажите, пожалуйста, что делаю не так?

Я для Ac2000 я обычно пишу:
Const conErrFieldRequiered = 2113
If DataErr = conErrFieldRequiered Then
MsgBox "Вы ввели в поле неправильный формат значения."
Else
Respone = acDataErrDisplay
End If
но в Ac97 - не пашет.
>Здесь ошибки в вопросе, а обработкой занимаемся мы.
> Типа, кто больше найдет.
Нет, я просто попросил помощи, как сделать обработку ошибок в Ac97, может мне конечно надо было бы написать: "Сделайте за меня обработчик ошибок", но я просто написал то, что пробовал.
:-)

Не то, чтобы не работает, а сначала выдает мое сообщение, а потом сообщение стандартное для Access, просто в Ac2000 выдает только одно мое сообщение, вот я и подумал, что не правильно пишу.
Я понимаю, что можно написать:
DoCmd.SetWarnings False
а потом по Goto
DoCmd.SetWarnings True
но я просто подумал, что для Ac97 есть более правильная обработка ошибок, без отключений сообщений Access, поэтому и показал код, который пытался использовать.
:-)

>А что, ксати, за ошибка: 2113.
Введенное начение не подходит для данного поля. Например в числовое поле введены текст или число, превышающее предел, заданный в свойстве "Размер поля".

Я в Help тоже не нашел такого номера ошибки :-)

2 Geo:
Спасибки, для поста от 00:39 - пока я писал следующий вопрос уже появился ответ, а в общем я все понял.
:-)