If Err.Number Then GoTo

@Ципихович Эндрю · Регистрация: 10.04.2009

А как, в начале процедуры, поставить условие, если где - нибудь в процедуре произошла ошибка, тогда ...???????
Ведь везде же по коду не натыкаешь строку If Err.Number Then GoTo Произошла_ошибка
Спасибо

@~~Busine2009~~ · 13.12.2010, 21:06

Ципихович Эндрю,
плохо понял, вот это в начале процедуры:

Visual Basic

Sub m_1()
On Error Resume Next
End Sub
Sub m_2()
On Error GoTo metka
End Sub

@Ципихович Эндрю · 13.12.2010, 21:21 **[ТС]**

В начале процедуры ставим
On Error Resume Next 'продолжать код в случае ошибки

PureBasic

........
On Error GoTo metka
........
On Error GoTo metka
........
On Error GoTo metka
........
On Error GoTo metka
........
On Error GoTo metka
metka:

.......... - это строки кода
Бред же после каждой строки ставить строку On Error GoTo metka
Разве не так

@~~Busine2009~~ · 13.12.2010, 21:48

Ципихович Эндрю,
я плохо сейчас понимаю, в чём собственно проблема.

@Ципихович Эндрю · 13.12.2010, 21:56 **[ТС]**

Все ошибки ВБА предусмотреть тяжело
Вот одну не предусмотрел, и вылезет форма с кнопками Энд Деуг Хелп, чтобы этой формы пользовательникогда не увидел надо после каждой строки поставить строку ON ERROR GOTO metka
Но это же бред, один раз нельзя???

@~~Busine2009~~ · 13.12.2010, 22:00

Сообщение от Ципихович Эндрю

Вот одну не предусмотрел

а как же ты предлагаешь пользоваться программой, с ошибкой что ли? Чтобы все ошибки пролетели нужно поставить:

Visual Basic

1	On Error Resume Next

Я у одного купил макрос, когда ещё совсем не знал VBA. Так он тоже там поставил:

Visual Basic

1	On Error Resume Next

Соответственно у меня могла работа неправильно идти.

Visual Basic

1	On Error Resume Next

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

@Ципихович Эндрю · 13.12.2010, 22:15 **[ТС]**

Про эту: On Error Resume Next строку согласен, тогда получается:

PureBasic

On Error Resume Next 
 
........
ON ERROR GOTO metka
........
ON ERROR GOTO metka
........
ON ERROR GOTO metka
........
ON ERROR GOTO metka
........
ON ERROR GOTO metka
metka:

Лишковато???, бред

@~~Busine2009~~ · 13.12.2010, 22:17

Ципихович Эндрю,
остальные не нужны.

@Vlanib · 14.12.2010, 07:24

Надо так:

Visual Basic

Sub ErrCatcher()
On Error GoTo ErrHandler
'...Do SMTH
Exit Sub
ErrHandler:
Debug.Print Err.Number
End Sub

@Ципихович Эндрю · 14.12.2010, 08:05 **[ТС]**

Всем спасибо вопрос я задал глупый, и ответ на него знал, пользовался
Но вчера меня осенило его проверить, на каком примере я не помню, и руки опустились
Решил спросить
Сейчас проверил, работает

PureBasic

'вот пример открываем чистый документ Ворда
'в нём таблиц нет, пишем строку
'Значение = ActiveDocument.Tables(1).Cell(u, 1).Range.Text
'она естественно выдаст: ошибка 5941 запрашиваемый номер семейства не существует
'ставим строку
On Error GoTo ErrHandler
Значение = ActiveDocument.Tables(1).Cell(u, 1).Range.Text
А = 0
Exit Sub
ErrHandler:
Debug.Print Err.Number

Вопрос решён

@Ципихович Эндрю 1505 / 475 / 56 Регистрация: 10.04.2009 Сообщений: 7,977
		1
	If Err.Number Then GoTo 13.12.2010, 20:44. Показов 4493. Ответов 9 Метки нет (Все метки) А как, в начале процедуры, поставить условие, если где - нибудь в процедуре произошла ошибка, тогда ...??????? Ведь везде же по коду не натыкаешь строку If Err.Number Then GoTo Произошла_ошибка Спасибо 0

@~~Busine2009~~ Заблокирован
	13.12.2010, 21:48	4
	Ципихович Эндрю, я плохо сейчас понимаю, в чём собственно проблема. 0

@Ципихович Эндрю 1505 / 475 / 56 Регистрация: 10.04.2009 Сообщений: 7,977
	13.12.2010, 21:56 [ТС]	5
	Все ошибки ВБА предусмотреть тяжело Вот одну не предусмотрел, и вылезет форма с кнопками Энд Деуг Хелп, чтобы этой формы пользовательникогда не увидел надо после каждой строки поставить строку ON ERROR GOTO metka Но это же бред, один раз нельзя??? 0

@~~Busine2009~~ Заблокирован
	13.12.2010, 22:17	8
	Ципихович Эндрю, остальные не нужны. 0

Опции темы