Можно ли идентифицировать Errors

[cashman]

Т.е. мало ли какая ошибка выскочила - прога хочет тут же выйти.
Делаем On error GoTo qwer или On error Resume Next
а ведь ошибки имеют свои номера (несколько десятков, а может и сотен тысяч)
Можно сделать нечто такое
On error №12323 GoTo qwer1
On error №35756 GoTo qwer2
Это возможно?..

[deepslam]

дык можно на всех ошибках посылать в одну метку а там case'ом разбирать код ошибки (err.Number) и в зависимости от этого выполнять разл. процедуры...

[cashman]

пример кода выложи, а то не разберусь...

[tyomitch]

Код: Выделить всё

On Error GoTo Handler
....
Handler: Select Case Err
Case 12345: ' обработка для №12345
Case 54321: ' обработка для №54321
End Select


[cashman]

после двоеточия в каждом КЕЙСЕ идет любой список команд который я укажу, так?..

[tyomitch]

Да. Можно в несколько строк.
Можно и без двоеточия, если начинать со следующей за кейсом строки.

[alibek]

А я предпочитаю, где это оправдано, использовать такое:

Код: Выделить всё

...
On Error Resume Next
Do
  Err.Clear
  Kill "C:\pagefile.sys"
  Select Case Err
    Case 0
      Exit Do
    Case ...
      Select Case MsgBox(...)
        Case vbRetry
        Case vbCancel
          Exit Do
      End Select
    Case Else
      MsgBox "Error " & Err & " - " & Err.Description
      Exit Do
  End Select
Loop
On Error GoTo 0
...

[tyomitch]

Тоже неплохо, но тогда в паре с On Error GoTo 0 надо юзать On Error GoTo -1 - иначе обработается не больше одной ошибки.

[gvozd1989]

Если ошибок немного, то я юзаю If ... Then ...

[Ramzes]

ну и зря, самы лутший код у ТЁМЫЧА. Это хороший стиль программирования

[ALX_2002]

Знаю, что это все знают, но всё равно скажу

Я чтобы код был короче и чтобы на каждую ошибку не выводить свой

msgbox делаю

Код: Выделить всё

On error resume next
.. код
if err.number <> 0 then msgbox err.description

Неудобство в этом случае одно - Если ошибок большо одной, то возвращается описание последней произошедшей ошибки, а не той, которая была первой

Так что я проверяю только в тех местах где ошибка могла произойти и в случае, если она произошла вывожу мессагу с её описанием.

Код: Выделить всё

On error resume next
код
OnError
код
OnError
....

Function OnError
if err.number <> 0 then msgbox err.Description
End Function