Очень извиняюсь, но как написать Case на обработку ошибок. Т.е. если такая ошибка, то такое сообщение, если такая, то другое, если 1111, то On error resume next, во всех остальных случаях - стандартные сообщения?
Что-то у меня все время проблемы с синтаксисом.
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const conErrFieldRequiered = 3101
Select Case (DataErr = 1111)
On error resume next
Case (DataErr = conErrFieldRequiered) Or (DataErr = 2169) Then
Response = acDataErrContinue
MsgBox "Вы ввели в поле неправильный формат значения."
Case
Response = acDataErrDisplay
End If
End Sub |
|
? ? ?