Как передать в прогу обработки ошибок имя проги, где эта ошибка появилась? - VB

Формулировка задачи:

Как передать в прогу обработки ошибок имя проги, где эта ошибка появилась?

Решение задачи: «Как передать в прогу обработки ошибок имя проги, где эта ошибка появилась?»

textual
                            Листинг программы 
                        

                            Sub Sub1()
  On Error GoTo err_hnd
  'код процедуры
  .....
  Exit Sub
err_hnd:
  ErrHandler 'Sub1'
  Exit Sub
End Sub
  
Public Sub ErrHandler(Sub_Name As String)
  If Err.Number <> 0 Then
    MsgBoxTrace Sub_Name & ' - Error #' & Err.Number & ': ' & Err.Description, vbCritical
    Err.Clear
  End If
End Sub
                        

Оцени полезность:

9 голосов , оценка 4.111 из 5

Похожие ответы