Добро пожаловать в форум, Guest >> Войти | Регистрация | Поиск | Правила | | В избранное | Подписаться | ||
Все форумы / Microsoft Access |
![]() ![]() |
Топик располагается на нескольких страницах: [1] 2 3 вперед Ctrl→ все |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
добрый день знатокам и начинающим. заинтересовал один момент с обработкой ошибок использую обычный обработчик ошибок 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 то самое описание, которое дает штатное окно ошибок, чтобы не забивать голову что же случилось и почему не делается то, что надо? Заранее благодарю за подсказку |
9 фев 19, 16:29 [21805282] Ответить | Цитировать Сообщить модератору |
Кривцов Анатолий Member Откуда: Сообщений: 179 |
Ганов Александр, описание ошибки доступа к данным нужно получать методом AccessError. |
11 фев 19, 10:55 [21806153] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
Кривцов Анатолий, принято. благодарю за "наводку". уже открыл справку, изучу вопрос. очень хочется, чтобы не только отлавливало, но и в доступной форме поясняло суть ошибки |
11 фев 19, 12:24 [21806255] Ответить | Цитировать Сообщить модератору |
MrShin Member Откуда: Сообщений: 1196 |
Ганов Александр, У вас интересный хандлер, не понимаю, как это работает Error_Handler: On Error Resume Next If Err.Number = 0 Then On Error Resume Next всегда сбрасывает ошибку, у вас после него всегда Err.Number = 0 и Err.Description пустое. Не нужна эта команда. |
11 фев 19, 13:27 [21806333] Ответить | Цитировать Сообщить модератору |
Кривцов Анатолий Member Откуда: Сообщений: 179 |
А команда действительно не нужна, как и все, что выделено ниже. 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 |
||
11 фев 19, 13:50 [21806377] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
Кривцов Анатолий, честно говоря, я его не сам придумал, а почерпнул в книге "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-м авторам книги, поэтому я доверился тому, что указано в книге ![]() К сообщению приложен файл. Размер - 79Kb |
11 фев 19, 14:16 [21806420] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
К сообщению приложен файл. Размер - 51Kb |
11 фев 19, 14:16 [21806422] Ответить | Цитировать Сообщить модератору |
MrShin Member Откуда: Сообщений: 1196 |
Не соглашусь. Проэкспериментируйте. |
||
11 фев 19, 14:48 [21806465] Ответить | Цитировать Сообщить модератору |
MrShin Member Откуда: Сообщений: 1196 |
The Err object is automatically reset when an On Error Resume Next statement is executed. |
11 фев 19, 14:49 [21806469] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
насколько я понимаю номер и описание ошибки будет сохранено до тех пор покуда не возникнет новая ошибка или не кончится процедура или функция. и, судя по всему, авторы книги перестраховываются и именно поэтому вставляют еще по одному Resume Next в обработчик ошибок и в процедуру выхода, т.к. если случится ошибка именно в этих местах, то она заменит описание той ошибки, которая инициировала цепочку всех событий и вызвала обработчик ошибок. не знаю конечно что такое может случиться уже в самом хендлере ошибок, но т.к. у авторов книги наверняка не малый опыт чтобы "накатать" книгу на 1230 стр., то я сделал так как написано |
||
11 фев 19, 14:53 [21806472] Ответить | Цитировать Сообщить модератору |
Кривцов Анатолий Member Откуда: Сообщений: 179 |
On Error Resume Next Dim a& a = 1 / 0 MsgBox Err.Number & " " & Err.DescriptionВыдает "11 Devision by 0" А так сбрасывает уже существующую ошибку. On Error Resume Next Dim a& a = 1 / 0 On Error Resume Next MsgBox Err.Number & " " & Err.DescriptionНо это как-то коряво, что ли. И да, у ТС это тот случай, согласен. А вот про "последний Resume" я не знал. Теперь знаю. ![]() |
||||
11 фев 19, 15:05 [21806491] Ответить | Цитировать Сообщить модератору |
MrShin Member Откуда: Сообщений: 1196 |
Не понял. Последний вариант у меня выдает 0 и пустоту, как и ожидалось. У вас выдает текст ошибки??? Может это в старых версиях такая особенность? У меня 2010, все сбрасывается, более ранней версии нет для проверки.
Я сам постоянно использую Resume, который никогда не выполняется - для отладки. Только в описании пропущен момент, что на Resume надо сначала перевести курсор выполнения с помощью Ctrl-F9, только потом жать F8 |
||||
11 фев 19, 15:20 [21806518] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
проверял обработчик по шагам, когда случается ошибка идет переход 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 уже в самом обработчике ошибок |
||||
11 фев 19, 15:21 [21806519] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
я просто сказал про мышку, можно и через CTRL+F9
тут кому как удобнее |
||||
11 фев 19, 15:24 [21806524] Ответить | Цитировать Сообщить модератору |
MrShin Member Откуда: Сообщений: 1196 |
Какая у вас версия Акцесса? |
||
11 фев 19, 15:34 [21806541] Ответить | Цитировать Сообщить модератору |
MrShin Member Откуда: Сообщений: 1196 |
В вашем случае второй On Error Resume Next не нужен однозначно. Там негде возникнуть ошибке, если prcОбработкаОшибок содержит нормальный обработчик ошибок и он не поднимает ошибку наверх принудительно. |
11 фев 19, 15:36 [21806545] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
MrShin, 2016 |
11 фев 19, 15:39 [21806548] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
согласен |
||
11 фев 19, 15:40 [21806549] Ответить | Цитировать Сообщить модератору |
MrShin Member Откуда: Сообщений: 1196 |
Ничего не понимаю. Попробовал в 2016 - то же самое, сбрасывается. Как такое возможно??? |
||
11 фев 19, 15:43 [21806554] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
MrShin, не могу знать к сожалению, у меня 100% работает. проверял не раз когда тестировал и ошибки когда случаются показывает все как надо ![]() |
11 фев 19, 15:47 [21806562] Ответить | Цитировать Сообщить модератору |
MrShin Member Откуда: Сообщений: 1196 |
Тем не менее я бы не рекомендовал использовать это. Видимо, есть какие-то особенности, нужно выяснять. Тем более я привел ссылку из книги, которая подтверждает такое поведение. |
||
11 фев 19, 15:56 [21806572] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
MrShin, похоже что я Вас дезинформировал. действительно скидывает. вставил 2 дебага.print до и после Resume Next, второй дебаг показывает любую ошибку как ноль. то есть до Resume Next ошибка есть, после становится ноль К сообщению приложен файл (пример.zip - 46Kb) cкачать ![]() |
11 фев 19, 16:46 [21806635] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
нашел откуда ноги растут - в обработчиках функций у меня в шаблоне MZ Tool нет этой строки, а в обработчике для процедур она есть, судя по всему, я проверял в функции и распространил положительный результат на все обработчики. Получается, что книжка совершенно права, действительно скидывает ошибку. Подправил все дела в базе и в шаблоне. Благодарствую за наблюдательность |
11 фев 19, 16:50 [21806643] Ответить | Цитировать Сообщить модератору |
MrShin Member Откуда: Сообщений: 1196 |
Так возвращаясь к первоначальному вопросу, заработало как есть после удаления строки или все еще AccessError требуется? |
||
11 фев 19, 16:58 [21806658] Ответить | Цитировать Сообщить модератору |
Ганов Александр Member Откуда: Петропавловск-Камчатский Сообщений: 131 |
MrShin, теперь еще более интересно стало. ошибка ловится. но ее размер ее err.number вызывает overflow К сообщению приложен файл. Размер - 13Kb |
11 фев 19, 17:15 [21806678] Ответить | Цитировать Сообщить модератору |
Топик располагается на нескольких страницах: [1] 2 3 вперед Ctrl→ все |
Все форумы / Microsoft Access | ![]() |