> Автор: невнимательный3
Я не совсем понял что у вас не так.
Например есть 2 процедуры, одна вызывается из другой и в вызываемой есть ошибка:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Option Explicit
Private Sub Command1_Click()
On Error GoTo labErr
Call TestErrorHandler
Exit Sub
labErr:
MsgBox Err.Description
End Sub
Private Sub TestErrorHandler()
Dim d As Long
d = 2 / 0
End Sub
В таком варианте ошибки в процедуре TestErrorHandler не обрабатываются и ошибка деления на ноль перехватится в процедуре
Command1_Click.
В случае когда в процедуре TestErrorHandler есть обработчик ошибок, в вызываемую процедуру можно передать факт
возникноверия ошибки двумя способами, сгенерировав нужную ошибку или вернуть значение указывающее на ошибку, например
практически все API функции возвращают значение или успех или неудача, В технологии СОМ стандартизированно возвращать
или вызов прошёл успешно или нет. И для этого есть свои причины. В С++ библиотеках используется выброс эксцепшина.
Пример когда при ошибке выталкивается исключение такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Option Explicit
Private Sub Command1_Click()
On Error GoTo labErr
Call TestErrorHandler
Exit Sub
labErr:
Select Case Err.Number
Case vbObjectError + 1
MsgBox Err.Description
Case Else
MsgBox Err.Description
End Select
End Sub
Private Sub TestErrorHandler()
On Error GoTo labErr:
Dim d As Long
d = 2 / 0
' Здесь куча полезных действий
Exit Sub
labErr:
MsgBox Err.Description
Err.Raise vbObjectError + 1 , "TestErrorHandler", "Моя ошибка, которую нужно обработать специальным образом"
End Sub
Для реализации возврата неудачи через возвращаемое значение желательно организовать централизованное управление кодов
возврата ошибок.
Например в модуле написать следующее:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Option Explicit
Public Const MY_OK = 0
Public Const MY_BASE_ERROR = vbObjectError + 1000
Public Const MY_DIV_BY_ZERO = MY_BASE_ERROR + 1 [src]
а в форме оформить так:
[src vba]Option Explicit
Private Sub Command1_Click()
Select Case TestErrorHandler
Case MY_DIV_BY_ZERO
MsgBox "Произошло деление на ноль"
Case Else
MsgBox "Что-то произошло"
End Select
End Sub
Private Function TestErrorHandler() As Long
TestErrorHandler = MY_OK
On Error GoTo labErr:
Dim d As Long
d = 2 / 0
' Здесь куча полезных действий
Exit Function
labErr:
If Err.Number = 11 Then
TestErrorHandler = MY_DIV_BY_ZERO
Else
TestErrorHandler = MY_BASE_ERROR
End If
End Function
Ещё лучше в модуль добавить свой TYPE в котором можно было сохранять номер ошибки, текстовое описание, функцию, в
которой произошла ошибка, но это довольно хлопотно для маленьких проектов.
Вообщем как-так
Posted via ActualForum NNTP Server 1.4
