Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: VB

Программирование VB

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум (новые сообщения вниз) Структурный форум

тема: почему такое может происходить???????
 
 автор: час   (18.06.2009 в 17:51)   личное сообщение
 
   to: час   (18.06.2009 в 17:46)
 

Пошел на извращение
MsgBox Err.Description
ErrSTRING = Err.Description
Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Error.txt"), ErrSTRING & Now() & " _модуль " & "FRM_START" & " _процедура " & "Form_Load" & " ..ошибка." & ErrSTRING)


Результат:
Деление нулем18.06.2009 17:51:35 0 _модуль FRM_START _процедура Form_Load ..ошибка.Деление нулем

Но это же не нормально

  Ответить  
 
 автор: час   (18.06.2009 в 17:46)   личное сообщение
 
   to: час   (18.06.2009 в 17:39)
 

пробую такой вариант:
Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Error.txt"), Err.Description & Now() & " _модуль " & "FRM_START" & " _процедура " & "Form_Load" & " ..ошибка.")


запись:
18.06.2009 17:45:48 0 _модуль FRM_START _процедура Form_Load ..ошибка.

  Ответить  
 
 автор: час   (18.06.2009 в 17:39)   личное сообщение
 
   to: Lukas   (18.06.2009 в 12:57)
 

Спасибо !!!
Сбойнул

MsgBox Err.Description = Деление на ноль,
а в текстовый файл записалось
18.06.2009 17:42:00 0 _модуль FRM_START _процедура Form_Load ..ошибка.

  Ответить  
 
 автор: Lukas   (18.06.2009 в 12:57)   личное сообщение
 
   to: час   (18.06.2009 в 12:56)
 

А=1/0

  Ответить  
 
 автор: час   (18.06.2009 в 12:56)   личное сообщение
 
   to: ДрЮня   (17.06.2009 в 21:04)
 

Надо пробонуть...
А как нарочно сбойнуть?

  Ответить  
 
 автор: ДрЮня   (17.06.2009 в 21:04)   личное сообщение
 
   to: час   (17.06.2009 в 15:45)
 

а просто в Msgbox вывести Err.Description ?
что-нибудь выводит ?

  Ответить  
 
 автор: час   (17.06.2009 в 15:45)   личное сообщение
 
 

В случае ошибки пишу в файл Error.txt - что случилося......

Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Error.txt"), Now() & " _модуль " & "FRM_START" & " _процедура " & "Form_Load" & " ..ошибка." & Err.Description)

но вместо Err.Description слов - там пустое место.
Тоесть вот это всё фиксируется , а Err.Description не отражается
Now() & " _модуль " & "FRM_START" & " _процедура " & "Form_Load" & " ..ошибка."

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList