вероятно я слишком эмоционально насчет "всех" методов класса высказался.
попробую уточниться.
Надо обратить специальное внимание на методы обработки событий вообще
и на функции обработки события Terminate в особенности.
1) про ошибки в процедурах событий
Пусть есть форма, в которой на кнопку повешен код
1.
2.
3.
Private Sub Кнопка1_Click()
Dim k
k = 5 \ 0
End Sub
пусть код процедуры обработки события загрузки фомы выглядит так:
1.
2.
Private Sub Form_Load()
Кнопка1_Click
End Sub
Пусть у вас есть стартовая функция StartFunction, которая запускается в
макросе Autoexec
1.
2.
3.
4.
5.
6.
7.
Function StartFunction()
On Error GoTo ErrorBlock
DoCmd.OpenForm "Форма1", acNormal
Exit Function
ErrorBlock:
MsgBox "была ошибка и мы ее перехватили:" & Err.Description
Debug.Print Err.Number, Err.Description
End Function
Приблизительно с фразы
автор"ошибки обработки событий локализуются в процедурах обработки событий. Такие ошибки не передаются в вызывающую функцию, в частности в Sub Main приложения".
начинается всякая приличная книжка про VB.
(Свое внимание я лишь недавно на это обратил)
В Акцессе, в данном примере, если в процедуре обработки события открытия формы происходит (неперехваченная) ошибка, то информация об этой ошибке в любом случае не попадает в StartFunction.
В mdb-проекте среда остановит выполнение на ошибочной строке, предлагая исправить или обойти ошибку.
В mde-проекте такая ошибка просто "пропадет", возможно вызвав сброс переменных проекта. Но никакого перехвата в с возвратом в вызывающую функцию не будет.
Мораль проста - потенциальные ошибки в процедурах обработки событий должны обрабатываться в самих процедурах обработки событий.
Ответственность за такую процедуру без обработчика ошибок - на разработчике.
Есть еще один специальный случай - ошибки в специальных событиях класса
- Initialize и Terminate
Пусть есть в стандартном модуле
1.
2.
3.
4.
5.
6.
7.
Sub FirstSub()
On Error GoTo ErrorBlock
SecondSub
Exit Sub
ErrorBlock:
'тут хотим обрабатывать перехваченную во внутренностях ошибку
Debug.Print Err.Number, Err.Description
End Sub
пусть есть
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub SecondSub()
Dim MyObject As CMyClass
Set MyObject = New CMyClass
'MyObject.MyErrorProc
MyObject.NormalProc
Err.Raise vbObjectError + 54321 , , "My Terrible error"
End Sub
NormalProc - процедура в классе CMyClass - обычный метод, в которой не возникает ошибки.
MyObject.MyErrorProc - процедура в классе CMyClass (обычный метод), в которой возникает ошибка.
Привозникновении ошибки во второй процедуре, при выходе за ее границы экземпляр CMyClass подвергентся процедуре уничтожения.
Если в классе есть функция обработки события Terminate (Private Sub Class_Terminate() ), то она будет вызвана.
Если в этой функции нет источника для возникновения собственной ошибки, то информация об ошибке, возникшей в normalProc или, если код, как показано, закомментирован - в строке Err.Raise
передается в обработчик, установленный в FirstSub.
Если же в Class_Terminate возникает собственная ошибка, то возникает специальная ситуация, когда вновь возникшая ошибка скрывает информацию о предыдущей ошибке. Про классический VB пиишут, что он вообще не переживает именно такую ситуацию с ошибкой в Class_Terminate, и (компилированный) проект в таком месте просто падает. (Возможно это сервиспакозависимо - не проверял).
В моих экспериментах - Акцесс не падает - в мдб среда останавливается на сбойной строке (Проект переводится при этом в состояние невозможности сохранения изменений). В mde - возникает окно сообщения о сбое в работе макроса, но краха акцесса не происходит. (проверял в 2002м)
В любом случае на это место нужно обратить внимание, особенно если
- класс содержится в библиотечном проекте
или
- в классе присутствуют "внешние" члены - типа рекордсетов и т.п.
Возможно в сложных проектах это может быть одной из причин падений.
---------------------------------------------
Еще один момент. С обработкой ошибок не связанный.
Для 97го акцесса существовала техника "предварительной загрузки модулей",
когда в стартовой процедуре дергались публичные константы модуля. с целью его принудительной загрузки и исключения задержки при первом обращении
к функциям модуля.
Для последующих версий оно вроде как не актуально.
Но среди прочего, не понимая куда двигаться, может быть я и за эту нитку дернул бы...
-----------------------------------------------
кроме того, хорошо бы изолировать багосбойные места типа
- перевода составной формы из иконизированного состояния в развернутое
- перехода формы в принт-превью и назад (результат - сброс объекта формы с потерей состояния самописных членов класса)
- обрашение к вложенной подчиненной в табличном виде до е первого разворота
(и т.п.)
-----------------------------------------------
Удачи.
ЗЫ
Если что-то надыбается пригодное к рассказу - послушал бы с удовольствием и благодарностью.
