Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Практическое использование MS Access


Информационный Канал Subscribe.Ru


8.  Обработка ошибок
(Все примеры тестировались в MS Access 97, для того чтобы приведенный здесь код 
работал Access 2000 или XP, необходимо включить в Visual Basic поддержку
Microsoft DAO 3.6 Object Library (Tools\References...))

При возникновении ошибки на стадии выполнения программы в MS Access 
выдается сообщение с описанием ошибки и предложением завершить 
выполнение или перейти к отладке. Такое развитие событий далеко 
не всегда может устроить разработчика. Для того чтобы самостоятельно 
обработать ошибки в MS Access предусмотрена следующая конструкция:

   On Error GoTo Err1

   . . . Программа к которой могут возникнуть ошибки
   . . . на стадии выполнения

   Exit Sub

Err1: 'обработка ошибок
   If Err = XX Then
      . . . действия по устранению ошибки

      'возврат к выполнению инструкции вызвавшей ошибку
      Resume 0
   End If

   'при возникновении непредусмотренной ошибки - 
   'вывод сообщения об ошибки и завершение работы процедуры
   MsgBox "Ошибка " & Err & " " & Error$
   Exit Sub

В переменой Err содержится код ошибки, в Error$ - описание ошибки.
В некоторых случаях бывает удобнее не писать обработку ошибки, а просто 
ее проигнорировать для этого вместо

   On Error GoTo Err1

Следует использовать 

   On Error Resume Next

При использовании конструкции Resume Next - MS Access продолжит 
выполнение с инструкции следующей за той которая вызвала ошибку.

    
    ----------------------------------------------------------------------
    Архив рассылки
    Дополнительная информация, примеры программ http://use-access.narod.ru
    Написать письмо: use-access@bk.ru
    

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное