ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / отловить ошибку runtime
60 сообщений из 60, показаны все 3 страниц
  все  
отловить ошибку runtime
    #39771593
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
добрый день знатокам и начинающим. заинтересовал один момент с обработкой ошибок
использую обычный обработчик ошибок

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
On Error GoTo Error_Handler 'обработчик ошибок
'====================================

'вставляем код процедуры

'======================
Exit_Sub: 'обработчик ошибок
     On Error Resume Next
     Exit Sub
Error_Handler:
     On Error Resume Next
     If Err.Number = 0 Then
          Resume Next
     Else
          Call prcОбработкаОшибок(Err.Number, Err.Description, Err.Source, Erl)
     End If
     Resume Exit_Sub
     Resume



Все хорошо работает, но есть проблем с ошибками типа: Run-Time error '-2147217900 (80040e14)': Лишняя скобка ) в выражении запроса '[ПользовательКод]=cint('" & varUsrKod "'))', то есть ошибка в SQL-запросе для ADO.open. Обработчик перехватывает данную ошибку, но ни описания, ни кода ошибки не дает. Есть какая-либо возможность качественно обработать такие ошибки, то есть получить в msgbox то самое описание, которое дает штатное окно ошибок, чтобы не забивать голову что же случилось и почему не делается то, что надо?

Заранее благодарю за подсказку
...
Рейтинг: 0 / 0
09.02.2019, 16:29
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772069
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
Ганов Александр, описание ошибки доступа к данным нужно получать методом AccessError.
...
Рейтинг: 0 / 0
11.02.2019, 10:55
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772145
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
Кривцов Анатолий, принято. благодарю за "наводку". уже открыл справку, изучу вопрос. очень хочется, чтобы не только отлавливало, но и в доступной форме поясняло суть ошибки
...
Рейтинг: 0 / 0
11.02.2019, 12:24
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772196
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Ганов Александр,

У вас интересный хандлер, не понимаю, как это работает
Код: vbnet
1.
2.
3.
Error_Handler:
     On Error Resume Next
     If Err.Number = 0 Then



On Error Resume Next всегда сбрасывает ошибку, у вас после него всегда Err.Number = 0 и Err.Description пустое.
Не нужна эта команда.
...
Рейтинг: 0 / 0
11.02.2019, 13:27
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772225
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
MrShinOn Error Resume Next всегда сбрасывает ошибку, у вас после него всегда Err.Number = 0 и Err.Description пустое.
Не нужна эта команда. Вы ошибаетесь. Не сбрасывается. Сбросить можно методом Err.Clear, если Err <> 0.
А команда действительно не нужна, как и все, что выделено ниже.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Exit_Sub: 'обработчик ошибок
     On Error Resume Next
     Exit Sub
Error_Handler:
     On Error Resume Next
     If Err.Number = 0 Then
          Resume Next
     Else
          Call prcОбработкаОшибок(Err.Number, Err.Description, Err.Source, Erl)
     End If
     Resume Exit_Sub
     Resume
...
Рейтинг: 0 / 0
11.02.2019, 13:50
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772251
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
Кривцов Анатолий, честно говоря, я его не сам придумал, а почерпнул в книге "Teresa Hennig, Rob Cooper, Geoffrey Griffith, Jerry Dennison. Access 2010. Programmer’s Reference" (прилагаю фрагмент книги)

-- первый on error resume next уже в самом Хендлере (а равно после Exit_Sub ) нужен чтобы пропустить те ошибки, которые могут случиться в самом хендлере (привожу скрин из книги)
-- нулевые ошибки (то есть без описания не обрабатываются, поэтому на них стоит Resume next через IF, хотя конечно можно было бы написать все в одну строчку и просто обращаться к процедуре если ошибка не нулевая, но я оставил так, т.к. подумал, что потом может что-то надо будет дописать)
-- последний Resume тоже хорошо объяснен в книге, когда случается ошибка, то VBA не дает кодеру понять где она случилась, разве что нумеровать все строки и попытаться использовать функцию ERL , а вот с еще одним Resume в конце следующая штука: когда вылетает ошибка, в данном случае когда обрабатывается процедура prcОбработкаОшибок , то надо нажать не ок, а CTRL+Pause, откроется VBE, в нем желтая стрелка-указатель будет стоять в этот момент на строке Resume Exit_Sub , берем двигаем ее мышкой вниз на Resume и жмем F8 , после чего стрелка-указатель перейдет именно на ту строку, в которой произошла ошибка, которая подняла окно. таким образом кодер может легко понять в какой именно строке случилась данная ошибка.

у меня нет большого опыта в access, как и нет повода не верить 4-м авторам книги, поэтому я доверился тому, что указано в книге
...
Рейтинг: 0 / 0
11.02.2019, 14:16
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772252
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
...
Рейтинг: 0 / 0
11.02.2019, 14:16
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772277
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Кривцов АнатолийВы ошибаетесь. Не сбрасывается
Не соглашусь. Проэкспериментируйте.
...
Рейтинг: 0 / 0
11.02.2019, 14:48
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772280
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
The Err object is automatically reset when an On Error Resume Next statement is executed.
...
Рейтинг: 0 / 0
11.02.2019, 14:49
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772281
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
MrShinOn Error Resume Next всегда сбрасывает ошибку, у вас после него всегда Err.Number = 0 и Err.Description пустое.
Не нужна эта команда.
насколько я понимаю номер и описание ошибки будет сохранено до тех пор покуда не возникнет новая ошибка или не кончится процедура или функция. и, судя по всему, авторы книги перестраховываются и именно поэтому вставляют еще по одному Resume Next в обработчик ошибок и в процедуру выхода, т.к. если случится ошибка именно в этих местах, то она заменит описание той ошибки, которая инициировала цепочку всех событий и вызвала обработчик ошибок. не знаю конечно что такое может случиться уже в самом хендлере ошибок, но т.к. у авторов книги наверняка не малый опыт чтобы "накатать" книгу на 1230 стр., то я сделал так как написано
...
Рейтинг: 0 / 0
11.02.2019, 14:53
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772286
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
MrShinКривцов АнатолийВы ошибаетесь. Не сбрасывается
Не соглашусь. Проэкспериментируйте. Перед своим постом провел самоконтроль.
Код: vbnet
1.
2.
3.
4.
On Error Resume Next
Dim a&
    a = 1 / 0
    MsgBox Err.Number & "  " & Err.Description

Выдает "11 Devision by 0"
А так сбрасывает уже существующую ошибку.
Код: vbnet
1.
2.
3.
4.
5.
On Error Resume Next
Dim a&
    a = 1 / 0
On Error Resume Next
    MsgBox Err.Number & "  " & Err.Description

Но это как-то коряво, что ли. И да, у ТС это тот случай, согласен.

А вот про "последний Resume" я не знал. Теперь знаю.
...
Рейтинг: 0 / 0
11.02.2019, 15:05
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772302
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Кривцов АнатолийПеред своим постом провел самоконтроль.
Не понял. Последний вариант у меня выдает 0 и пустоту, как и ожидалось. У вас выдает текст ошибки??? Может это в старых версиях такая особенность? У меня 2010, все сбрасывается, более ранней версии нет для проверки.

Кривцов АнатолийА вот про "последний Resume" я не знал. Теперь знаю
Я сам постоянно использую Resume, который никогда не выполняется - для отладки. Только в описании пропущен момент, что на Resume надо сначала перевести курсор выполнения с помощью Ctrl-F9, только потом жать F8
...
Рейтинг: 0 / 0
11.02.2019, 15:20
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772303
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
MrShinКривцов АнатолийВы ошибаетесь. Не сбрасывается
Не соглашусь. Проэкспериментируйте.
проверял обработчик по шагам, когда случается ошибка идет переход On Error Resume Next , затем жмем следующий шаг через F8 и система без проблем выдает сохраненное сообщение и его номер.
что самое интересно, в справке MS написано следующее:

An "enabled" error handler is one that is turned on by an On Error statement; an "active" error handler is an enabled handler that is in the process of handling an error. If an error occurs while an error handler is active (between the occurrence of the error and a Resume, Exit Sub, Exit Function, or Exit Property statement ), the current procedure's error handler can't handle the error . Control returns to the calling procedure.

То есть если ошибка случится уже в самой процедуре обработки, то должен произойти переход обратно к тому месту, откуда был совершен вызов. Тогда мне тоже не очень понятно зачем тут нужен еще один On Error Resume Next уже в самом обработчике ошибок
...
Рейтинг: 0 / 0
11.02.2019, 15:21
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772307
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
авторЯ сам постоянно использую Resume, который никогда не выполняется - для отладки. Только в описании пропущен момент, что на Resume надо сначала перевести курсор выполнения с помощью Ctrl-F9, только потом жать F8
я просто сказал про мышку, можно и через CTRL+F9
авторберем двигаем ее мышкой вниз на Resume
тут кому как удобнее
...
Рейтинг: 0 / 0
11.02.2019, 15:24
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772312
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Ганов Александрпроверял обработчик по шагам
Какая у вас версия Акцесса?
...
Рейтинг: 0 / 0
11.02.2019, 15:34
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772315
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
В вашем случае второй On Error Resume Next не нужен однозначно. Там негде возникнуть ошибке, если prcОбработкаОшибок содержит нормальный обработчик ошибок и он не поднимает ошибку наверх принудительно.
...
Рейтинг: 0 / 0
11.02.2019, 15:36
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772318
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
MrShin, 2016
...
Рейтинг: 0 / 0
11.02.2019, 15:39
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772319
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
MrShinВ вашем случае второй On Error Resume Next не нужен однозначно. Там негде возникнуть ошибке, если prcОбработкаОшибок содержит нормальный обработчик ошибок и он не поднимает ошибку наверх принудительно.
согласен
...
Рейтинг: 0 / 0
11.02.2019, 15:40
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772323
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Ганов Александр2016
Ничего не понимаю. Попробовал в 2016 - то же самое, сбрасывается. Как такое возможно???
...
Рейтинг: 0 / 0
11.02.2019, 15:43
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772329
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
MrShin, не могу знать к сожалению, у меня 100% работает. проверял не раз когда тестировал и ошибки когда случаются показывает все как надо
...
Рейтинг: 0 / 0
11.02.2019, 15:47
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772338
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Ганов Александру меня 100% работает
Тем не менее я бы не рекомендовал использовать это. Видимо, есть какие-то особенности, нужно выяснять. Тем более я привел ссылку из книги, которая подтверждает такое поведение.
...
Рейтинг: 0 / 0
11.02.2019, 15:56
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772379
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
MrShin, похоже что я Вас дезинформировал. действительно скидывает. вставил 2 дебага.print до и после Resume Next , второй дебаг показывает любую ошибку как ноль. то есть до Resume Next ошибка есть, после становится ноль
...
Рейтинг: 0 / 0
11.02.2019, 16:46
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772382
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
нашел откуда ноги растут - в обработчиках функций у меня в шаблоне MZ Tool нет этой строки, а в обработчике для процедур она есть, судя по всему, я проверял в функции и распространил положительный результат на все обработчики. Получается, что книжка совершенно права, действительно скидывает ошибку. Подправил все дела в базе и в шаблоне. Благодарствую за наблюдательность
...
Рейтинг: 0 / 0
11.02.2019, 16:50
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772392
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Ганов АлександрПодправил все дела в базе и в шаблоне
Так возвращаясь к первоначальному вопросу, заработало как есть после удаления строки или все еще AccessError требуется?
...
Рейтинг: 0 / 0
11.02.2019, 16:58
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772407
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
MrShin, теперь еще более интересно стало. ошибка ловится. но ее размер ее err.number вызывает overflow
...
Рейтинг: 0 / 0
11.02.2019, 17:15
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772425
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
авторOne last point: Don’t let your error handling trigger an infinite error loop. When your code is
already in an error-handling situation, or if it is just trying to finish the procedure, set your error
trapping to On Error Resume Next . That way, your code continues, ignoring any errors that occur.
If you don’t add that statement, you might end up in an infinite loop where an error in your error
handler triggers the error handler again and again.
Еще раз перечитал пояснение того зачем вставлять On Error Resume Next . Авторы книги, полагают, что установкой в код обработчика On Error Resume Next можно избежать "залупливания" кода, то есть если случилась ошибка в обработчике ошибке, как указывается в MS-справке ошибка не будет обработана и исполнение перейдет к той строке, которая вызывала эту ошибку и, получается, что сразу же опять попадет в обработчик ошибок, т.к. ошибка все еще существует и так начнется "луп". Установкой On Error Resume Next эта ситуация устраняется. В общем, логично. Но вот как тогда быть с кодом ошибки, который обнуляется - не понятно. И вот, на примере с Overflow получается что ошибка в обработчике ошибок таки обрабатывается.. что-то совсем путаница получается
...
Рейтинг: 0 / 0
11.02.2019, 17:34
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772470
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Ганов Александр,

Мне кажется что On Error Resume Next и On Error GoTo вообще задумали для обхода форс мажора, при Next выполняется следующий оператор после того в котором была ошибка, при GoTo уход на метку...
Примеры форс мажора:
1. Есть куча вычислений, где возможно возникнет деление на ноль, но пользователю не желательно прекращать процесс даже в этом случае, ибо следующие операторы смогут переварить данную ситуацию, - естественно On Error Resume Next
2. Мне нужно прочитать набор записей, но:
- я не знаю сколько записей в наборе (разные причины могут быть)
- набор записей большой, но поврежден и я не знаю в каком месте его чтение прекратится...
В этом случае On Error GoTo будет прекрасным сигнализатором конца набора...

За всю историю всего один раз использовал On Error GoTo как раз чтоб вытащить хоть что-то из большого битого набора... On Error Resume Next не использую вообще, но вижу нужным только в одном случае - если я на него попадаю сразу после On Error GoTo - это позволит несмотря ни на что попытаться закрыть все открытые наборы, сессии, порты и т.д. Соответственно анализировать причинную ошибку нужно между On Error GoTo и On Error Resume Next
...
Рейтинг: 0 / 0
11.02.2019, 18:18
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772480
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
vmag, полностью с Вами согласен. Как вариант сохранить ошибку и описание в обработчике до On Error Resume Next в переменную, скорее всего в глобальную, чтобы не надо было ее каждый раз объявлять в каждой процедуре или функции и перед выходом затирать переменную. Так точно будет работать и "залупливание" тоже не случится, и даже в случае как я привел пример с overflow, фактическая ошибка будет нормально отображена в msgbox, то есть цель будет достигнута в полной мере, правда обработчик станет несколько замороченным, но работать будет, не будет ли это перегибом с такими заморочками?
...
Рейтинг: 0 / 0
11.02.2019, 18:39
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772499
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
с другой стороны access не все ли равно что обрабатывать. несколько доп.строк кода ничего радикально не изменят. но ошибку обработают как надо
...
Рейтинг: 0 / 0
11.02.2019, 19:39
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772517
АлексейВиловат
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейВиловат
Гость
Вышло?
...
Рейтинг: 0 / 0
11.02.2019, 21:12
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772556
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
АлексейВиловат, получилось, что наступило 6 утра
. сегодня все "испробую"
...
Рейтинг: 0 / 0
12.02.2019, 01:52
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772557
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
да все работает. overflow скорее всего был из-за того, что в процедуре обработки ошибки параметр номер был as Integer .
...
Рейтинг: 0 / 0
12.02.2019, 02:41
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772558
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
...
Рейтинг: 0 / 0
12.02.2019, 02:43
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772559
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
Обработчик в процедуре
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
On Error GoTo Error_Handler 'обработчик ошибок
'====================================

'код процедуры

'======================
Exit_Sub: 'обработчик ошибок
     On Error Resume Next
     Exit Sub
Error_Handler:
     Call prcErrData(Err.Number, Err.Description, Err.Source)
     On Error Resume Next
     If strErrNumber <> 0 Then Call prcОбработкаОшибок(lngErrNumber, strErrDesc, strErrObj)
     Resume Exit_Sub
     Resume
End Sub


МОДУЛЬ обработки ошибки
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Option Compare Database
Option Explicit
Public lngErrNumber As Long, strErrDesc As String, strErrObj As String, varUserkod As Integer

'обработчик ошибок для VBA ErrObject
Public Sub prcОбработкаОшибок(Номер As Long, Описание As String, Источник As String)
DoCmd.SetWarnings True
MsgBox "В приложении произошла ошибка!" _
     & vbNewLine & "Сообщите разработчику следующую информацию: " _
     & vbNewLine & "Номер ошибки: " & Номер _
     & vbNewLine & "Описание ошибки: " & Описание _
     & vbNewLine & "Объект ошибки: " & Источник, _
     vbCritical, "Информация об ошибке"
Err.Clear 'обнуляем объект
End Sub

'запоминаем данные ошибки
Public Sub prcErrData(Номер As Long, Описание As String, Источник As String)
lngErrNumber = Номер
strErrDesc = Описание
strErrObj = Источник
End Sub
...
Рейтинг: 0 / 0
12.02.2019, 02:54
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772560
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
вот так совсем правильно будет
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
On Error GoTo Error_Handler 'обработчик ошибок
'====================================
'код процедуры
'======================
Exit_Sub: 'обработчик ошибок
     On Error Resume Next
     Exit Sub
Error_Handler:
     Call prcErrData(Err.Number, Err.Description, Err.Source)
     On Error Resume Next
     If lngErrNumber <>0 Then Call prcОбработкаОшибок(lngErrNumber, strErrDesc, strErrObj)
     Resume Exit_Sub
     Resume


модуль обработки ошибки
Код: vbnet
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.
Option Compare Database
Option Explicit
Public lngErrNumber As Long, strErrDesc As String, strErrObj As String, varUserkod As Integer

'обработчик ошибок для VBA ErrObject
Public Sub prcОбработкаОшибок(Номер As Long, Описание As String, Источник As String)
DoCmd.SetWarnings True
MsgBox "В приложении произошла ошибка!" _
     & vbNewLine & "Сообщите разработчику следующую информацию: " _
     & vbNewLine & "Номер ошибки: " & Номер _
     & vbNewLine & "Описание ошибки: " & Описание _
     & vbNewLine & "Объект ошибки: " & Источник, _
     vbCritical, "Информация об ошибке"
Err.Clear 'обнуляем объект
lngErrNumber = 0
strErrDesc = vbNullString
strErrObj = vbNullString
End Sub

'запоминаем данные ошибки
Public Sub prcErrData(Номер As Long, Описание As String, Источник As String)
lngErrNumber = Номер
strErrDesc = Описание
strErrObj = Источник
End Sub
...
Рейтинг: 0 / 0
12.02.2019, 03:03
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772567
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Ганов Александрвот так совсем правильно будетОбычно всё таки обработчик ошибок несколько сложней (если не On Error Resume Next ). Есть ветвления через Select Case и вывод не окна с описанием ошибки (рядовому пользователю это ничего не даст), а логирование в файл. Так же я добавляю к прочему описанию ошибки и место возникновения ошибки - название модуля/класса и процедуры/функции. Можно в особо сложных местах выводить в лог номер строки - VBA.Information.Erl (в скрытых методах).
...
Рейтинг: 0 / 0
12.02.2019, 04:16
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772568
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Ганов Александр
Код: vbnet
1.
2.
     Resume Exit_Sub
     Resume

Зачем два раза? Второе даже не достигается, т.к. с первого переход на Exit_Sub
...
Рейтинг: 0 / 0
12.02.2019, 04:21
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772569
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
Панург, посмотрите пожалуйста в этом топике я в начале объяснил зачем 2 раза и пример из книги привел. так советуют авторы книги, чтобы легче было найти строку в которой ошибка была
...
Рейтинг: 0 / 0
12.02.2019, 04:32
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772570
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
Панург, все верно. это был просто пример самого простого обработчика, ERL я пока убрал. оставил базовые функции, чтобы принципиально закрыть вопрос с которого начиналась данная тема. в остальном полностью с Вами согласен, что нужен доп.функционал, это окно больше для себя чтобы видеть то, что случилось без штатного окна DEBUGA
...
Рейтинг: 0 / 0
12.02.2019, 04:34
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772591
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Ганов Александр...это окно больше для себя чтобы видеть то, что случилось без штатного окна DEBUGAВ таком случае я предпочитаю выводить в окно Immediate. Но фломастеры разные.
...
Рейтинг: 0 / 0
12.02.2019, 08:12
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772609
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
vmagЗа всю историю всего один раз использовал On Error GoTo
Пардон, не понял. А как вы тогда обрабатываете ошибки? On Error GoTo - основа обработки ошибок, не представляю, как можно без него обойтись. Или имелся в виду On Error GoTo 0? Тогда да, он нафиг не нужен.
...
Рейтинг: 0 / 0
12.02.2019, 09:10
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772770
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
MrShinПардон, не понял. А как вы тогда обрабатываете ошибки? On Error GoTo - основа обработки ошибок, не представляю, как можно без него обойтись.

Согласен, тут я не правильно трактовал, с этого начинается любая рукописная более-менее сложная процедура или функция, причем это доведено до такого автоматизма, что я не обращаю на это внимания, имелось ввиду потом, - далее по тексту нет больше On Error GoTo... Соответственно в реальных условиях
эта конструкция нужна только для отладки, далее в экплуатации она уже как правило не работает,
так, висит на всякий случай...
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Sub Proc1()
On Error GoTo er1
'
'
'
Exit Sub
er1:
MsgBox "Ошибка Proc1!"
End Sub
...
Рейтинг: 0 / 0
12.02.2019, 13:05
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772838
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Ганов АлександрПанург, посмотрите пожалуйста в этом топике я в начале объяснил зачем 2 раза и пример из книги привел. так советуют авторы книги, чтобы легче было найти строку в которой ошибка была

наиболее лучшим образом у меня работает такая конструкция
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
'в шапке модуля
Public RejDem0UpravlWork as boolean=true ' режим разработчика если истина
' ...
Private sub Test()
On error goto handle1
' ...
exit sub
handle1:
If  RejDem0UpravlWork then ' срабатывает только в режиме разработки
' останавливаем процедуру
stop
' по F8 переходим к ошибке
resume
end if
resume Exit_Sub ' в продакшене уходим на этот вариант


p.s. это "облегченная версия" - самая часто используемая, переработанная идея MrShin с всплывающими обработчиками
...
Рейтинг: 0 / 0
12.02.2019, 14:13
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39772885
Stanislav P
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stanislav P
Гость
Код: vbnet
1.
2.
'в шапке модуля
Public RejDem0UpravlWork as boolean=true ' режим разработчика если истина



Можно использовать директивы условной компиляции в коде: #CONST, #IF, #THEN, #ELSE.
Либо в параметрах проекта задавать. Код будет легче читаться.
...
Рейтинг: 0 / 0
12.02.2019, 15:03
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39773081
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Stanislav P, хрень эта условная компиляция. не пользуюсь и другим не советую.
...
Рейтинг: 0 / 0
12.02.2019, 22:34
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39773114
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
aleckoStanislav P, хрень эта условная компиляция. не пользуюсь и другим не советую.И с чего бы?
...
Рейтинг: 0 / 0
13.02.2019, 03:56
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39773451
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Панург, ну например управление отладкой у клиента кнопкой - не влезая в код. Думаю что вопрос был в #Else-щас уже и не вспомню все матюки.
...
Рейтинг: 0 / 0
13.02.2019, 15:41
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39774847
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
ПанургМожно в особо сложных местах выводить в лог номер строки - VBA.Information.Erl (в скрытых методах). имеете ввиду что в обычной ситуации не пользуете нумерация строк, но если попадается такая каверзная ошибка, что найти ее трудно, то нумеруете строки соответствующего модуля и еще раз запускается процедуру "отлова ошибки", которая в данном случае уже указывает на нужную строку?
почему спрашиваю - постоянно нумеровать строки - муторная тема, хотя MZ Tool с этим хорошо справляется, но наличие в тексте большого количество "циферок" совсем не способствует его удобочитаемости
...
Рейтинг: 0 / 0
16.02.2019, 11:41
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39774860
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Ганов Александр, номер строки нужен в логе - когда прога работает у клиента, если база в разработке то на ошибку хорошо укажет Resume (но конечно не только: watch помогает неплохо).
...
Рейтинг: 0 / 0
16.02.2019, 12:30
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39774889
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
alecko, ну то есть получается, что если прога работает у клиента, то очень желательно, чтобы в ее коде все строки были нумерованными? иначе erl никак не поможет
...
Рейтинг: 0 / 0
16.02.2019, 13:46
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39774911
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Ганов Александр, нумеровать всё и вся не имеет смысла. Лично я довольно редко это делаю, только там где не уверен во всех случаях, на всякий, так сказать. Да и не все строки нумерую.
...
Рейтинг: 0 / 0
16.02.2019, 15:15
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39775057
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
Панург, принял, спасибо. мне тоже думается, что все и вся нумеровать - очень муторное занятие и лишние символы в коде
...
Рейтинг: 0 / 0
17.02.2019, 03:28
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39776313
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
alecko, ну например управление отладкой у клиента кнопкой - не влезая в код. Думаю что вопрос был в #Else-щас уже и не вспомню все матюки.
Во - ещё вспомнил - в режиме разработки часть полей открываем, у клиента они закрыты - это тоже делаем этой переменной (одной переменной переход в режим разработки/тестирование "клиентского вида" - переменная условной компиляции здесь никак не поможет-поля нужно все равно закрывать (полагаться на вид по умолчанию с учетом того что форма принимает тучу состояний категорически нельзя), бывает закрываю создание всяких контекстных менюшек, выскакивание предупреждающих окон, создание и печать отчетов, отсылку писем, смс во время разработки.
...
Рейтинг: 0 / 0
19.02.2019, 16:57
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39787289
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
Панургместо возникновения ошибки - название модуля/класса и процедуры/функции
подскажите пожалуйста как реализуете? на форуме почитал, начиная от идеи прописывать имя процедуры в обработке и заканчивая сторонними утилитами - как-то мутновато, может что-то поразумнее имеется. спасибо
...
Рейтинг: 0 / 0
17.03.2019, 13:01
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39787329
NBjHCBrc6KlSObm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NBjHCBrc6KlSObm
Гость
Ганов Александрподскажите пожалуйста как реализуете? на форуме почитал, начиная от идеи прописывать имя процедуры в обработке и заканчивая сторонними утилитами - как-то мутновато, может что-то поразумнее имеется. спасибо
mz-tools всё делают: и номера к строкам добавляют, и сообщение с названием процедуры и названием модуля добавляют.
Я отправляю письмо, сохраняю названия формы и значения контролов, записываю в журнал, делаю скриншот - это удобно и проще, чем потом спрашивать "что вы делали 15-го августа 1993 года" у пользователя :)
...
Рейтинг: 0 / 0
17.03.2019, 15:35
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39814486
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
NBjHCBrc6KlSObm, спасибо. полностью согласен, обработчик ошибок доработал, теперь показывает все, что нужно. Топик закрыт :-)
...
Рейтинг: 0 / 0
17.05.2019, 11:07
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39817682
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
в продолжение темы: как обычно делают когда надо поменять все обработчики во всех или отдельном модуле? понятное дело, что руками "умрешь" это делать. Озадачился данным вопросом, пошукал, вроде ничего нет нужного, потратил время - написал автозамену и/или добавление обработчика в процедуру. Вроде все как надо работает, но может есть какие-то общепризнанные и общеиспользуемые решение, где не надо ничего самому писать, так сказать plug and play?
...
Рейтинг: 0 / 0
24.05.2019, 12:20
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39829556
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
NBjHCBrc6KlSObmГанов Александрподскажите пожалуйста как реализуете? на форуме почитал, начиная от идеи прописывать имя процедуры в обработке и заканчивая сторонними утилитами - как-то мутновато, может что-то поразумнее имеется. спасибо
mz-tools всё делают: и номера к строкам добавляют, и сообщение с названием процедуры и названием модуля добавляют.
Я отправляю письмо, сохраняю названия формы и значения контролов, записываю в журнал, делаю скриншот - это удобно и проще, чем потом спрашивать "что вы делали 15-го августа 1993 года" у пользователя :)

добрый день. посмотрел как в MZTOOL все это реализовано, по сути используется объект VBA.ErrObject. При вставке в процедуру банально прописывается "ErrHeader" c Resume или с Goto и в строке информации, то есть в той строке, которая будет выведена на экран, сразу прописывается название процедуры, а для определения номера строки используется ERL. Получается совсем не универсально, то есть если название процедуры изменилось, то строка будет слать совсем не то имя.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
    On Error Resume Next

    If Err.Number <> 0 Then
       MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_Load, line " & Erl & "."
       Exit Sub
    End If
    On Error GoTo 0


Хотелось бы более универсальную вещь, в принципе, я все это сделал, в том числе процедуры группового обновления, добавления, удаления ErrHandler'ов, расстановку переменных по отдельным строкам, которые были написаны одной строкой, удаление не используемых переменных, удаление, добавление пустых строк в код и т.д.. В общем, такой мини-тюнинг кода через одно нажатие.

Сам хэндлер описал следующим образом:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
On Error GoTo Error_Handler 'обработчик ошибок
'====================================

'вставляем нужный код

'======================
Exit_Handler: 'обработчик ошибок
     On Error Resume Next
     Exit Sub
Error_Handler:
     Debug.Print "Номер ошибки: " & Err.Number & ", Описание: " & Err.Description
     Application.VBE.ActiveCodePane.GetSelection glngErrStartLine, glngErrStartCol, glngErrEndLine, glngErrEndCol
     Call prcErrData(Err.Number, Err.Description, Err.Source, Erl, Application.VBE.ActiveCodePane.Window.Caption, _
          Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(glngErrStartLine, vbext_pk_Proc))
     On Error Resume Next
     If lngErrNumber <> 0 Then Call prcОбработкаОшибок
     Resume Exit_Handler
     Resume


то есть после того, как прыгаем на " хэндлер ", смотрим строку на которой стоит курсор, находим процедуру в которой она находится и т.д., подсмотрел решение здесь же на форуме. Все хорошо работает, но есть один "косяк", работает только в том случае, если открыт тот CodePane , на котором произошла ошибка, для VBE Active CodePane значит именно тот, который открыт и который в фокусе, а не тот, в котором сейчас исполняется код, если в процессе исполнения не будет открыт ни один CodePane , то же сам обработчик выдаст ошибку, т.к. не сможет обратиться к активному CodePane.
Пересмотрел все известные мне свойства и методы на предмет возможности определения того CodePane или CodeModule , где в данный момент выполняется код, а не который в данный момент активен. К сожалению, пока ничего "умного" не нашел. Но в этом ветке access-спецы пишут, что пишут в лог название процедуры, место ошибки и т.д., стало быть используют либо жесткое закрепление имени процедуры в каждом обработчик (как в примере выше из MZ Tool), либо делают каким-то другим способом, до которого у меня "допетрить" не получается.

Буду признателен за подсказку кто и как фактически делает фиксацию (определение названия) имени процедуры для последующей обработки, например, отправки, логирования, вывода в сообщение.
Может быть мне проще проще немного переписать групповую обработку по добавлению "хэндлеров", чтобы автоматически вместо строки определения процедуры
Код: vbnet
1.
Application.VBE.ActiveCodePane.GetSelection glngErrStartLine, glngErrStartCol, glngErrEndLine, glngErrEndCol


прописывалась строка с закрепленным именем процедуры и в этом случае вопрос определения имени сам собой отпадет, останется только проблемка при изменении имени процедуры, в этом случае надо будет не забыть поменять имя в "хэндлере"?
...
Рейтинг: 0 / 0
23.06.2019, 11:11
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39829969
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Ганов Александркто и как фактически делает фиксацию (определение названия) имени процедуры для последующей обработки
Я тоже много времени убил на поиски, но, похоже, нет такого способа. Если редактор кода не открыт, а тем более если код скомпилирован в accde, определить имя модуля и процедуры нельзя. Поэтому всегда пользуюсь MZTools для вставки имени модуля и процедуры в обработчики ошибок. Им же нумерую строки для Erl. При переименовании/копировании кода в другой модуль заменой меняю имена или перегенерирую обработчики ошибок, много времени это не отнимает.

Настоятельно не рекомендую использовать русские буквы в названиях процедур, на не русских версиях офиса работать не будет с большой вероятностью.
...
Рейтинг: 0 / 0
24.06.2019, 16:42
| Ответить | Цитировать | Написать  
отловить ошибку runtime
    #39830067
Фотография Ганов Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ганов Александр
Участник
MrShinНастоятельно не рекомендую использовать русские буквы в названиях процедур, на не русских версиях офиса работать не будет с большой вероятностью.
Спасибо за ответ по теме вопроса и за совет - потихоньку отучаюсь :-)
...
Рейтинг: 0 / 0
24.06.2019, 20:21
| Ответить | Цитировать | Написать  
60 сообщений из 60, показаны все 3 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / отловить ошибку runtime
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]