Создание файла регистрации ошибок. - Полезные утилиты - Программирование в Access - Каталог статей - Отдел информационных технологий ГКБ №29
Пятница, 09.12.2016, 07:57
Приветствую Вас Гость | Регистрация | Вход

Отдел информационных технологий ГКБ №29 г.Новокузнецк

Меню сайта
Категории раздела
Полезные утилиты [5]
Поиск
Наш опрос
Как Вы оцениваете качество материалов?
Всего ответов: 28
Полезные ссылки
  • Официальный блог
  • Сообщество uCoz
  • Технологии программирования
  • Сайт о здоровье
  • Друзья сайта
  • КМИАЦ Новокузнецка
  • Интернет университет
  • Дистанционное обучение
  • Статистика
    Деловая сеть Кемерово и Кемеровская область. Жёлтые страницы, телефонный справочник и каталог компаний, товаров и услуг. Rambler's Top100
    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
    Погода
    Яндекс.Погода

    Каталог статей

    Главная » Статьи » Программирование в Access » Полезные утилиты

    Создание файла регистрации ошибок.
    Ситуация такова - в процессе тестирования пробных версий добровольными бетта-тестерами обычно возникают ошибки. Хотелось бы знать, какие точно ошибки возникают? Тогда этот код для вас. Он позволяет сохранить описание ошибки в отдельном файле в каталоге с программой. Просто вставьте следующий код в вашу форму:
    Public Sub errLogger(ByVal lNum As Long, ByVal sDesc As String, ByVal sFrom As String)
    Dim FileNum As Integer
    FileNum = FreeFile
    Open App.Path & "\Errors.log" For Append As FileNum
    Write #FileNum, lNum, sDesc, sFrom, Now()
    Close FileNum
    End Sub
    Далее я моделирую ошибку, в частности, пытаюсь считать несуществующий рисунок. Ошибка 
    возникает при нажатии на Command1. Но это вариант для проверки, а реально, просто в
    процесс обработки ошибок включите строки после метки Err_handler: 
    Private Sub Command1_Click()
    On Error GoTo Err_handler
    Command1.Picture = LoadPicture("InvalidFile")
    Exit Sub
    Err_handler:
    If Err.Number <> 0 Then
    errLogger Err.Number, Err.Description, "Command1_Click"
    Err.Clear
    Resume Next
    End If
    End Sub

    Теперь ваши тестеры могут прислать вам Errogs.log файлы для анализа ошибок. Удачи в программировании!

    Виталий. 



    Источник: http://www.hiprog.com
    Категория: Полезные утилиты | Добавил: AdminGkb29 (01.04.2010)
    Просмотров: 443 | Рейтинг: 0.0/0
    Всего комментариев: 0
    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]