Access. Программирование на VBA
Просмотр объекта cError в браузере объектов
Объект cError,
приведенный в коде данной главы, содержит много свойств и методов. Для быстрого просмотра свойств и методов объекта необходимо открыть браузер объектов и выбрать модуль класса cError (рис. 4).
РИСУНОК 4. Объект cError в браузере объектов.
Обработка ошибки
При возникновении программной ошибки обработчик ошибок в процедуре передает информацию в Объект
сЕггог. Метод ProssesError
определяет, как обрабатывается ошибка. Данный метод отсылает к таблице tbIErrorOptions (которая рассматривается далее в данной главе) за дополнительной информаци-ей, например, о том, вводили ли пользователи примечания об ошибке и было ли отослано электронное сообшение с информацией об ошибке. Ниже приводится код метода ProssesError:
Public Sub ProcessErrorO
Dim rst As ADODB. Recordset
Dim strSQL As String
Dim strVal As String
strSQL = "SELECT * FROM tbIErrorOptions"
' Создание набора записей ADO.
Set rst = New ADODB.Recordset
' Открытия набора записей ADO.
rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, _
adLockOptimistic
Me.ErrorTextFile = rst!ErrorTextFileName
Me.UserEnterNoteFlag = rst!UserEnterNoteAboutError
Me.AVIFileLocation = CurrentProject.Path & rst!AVIFileLocation
Me.SoundFile = CurrentProject.Path & rst!SoundFile
Me.OfficeID = rst!OfficeID
Me.OfficeName = rst!OfficeName
Me.OfficePhoneNuitiber =
rst!OfficePhoneNumber
Me.OfficeFaxNumber = rst!OfficeFaxNumber
If rat!PlaySound Then
' Воспроизведение звука при возникновении ошибки.
CError.PlaySound
End If
