On Error Resume Next
'Выполняем код с  ошибкой
If err.number<> 0  then msgbox err.description

Sub DAODatabaseError()

   On Error GoTo DAODatabaseError_Err

   Dim db As DAO.Database
   Dim errDB As DAO.Error

   Set db = DBEngine.OpenDatabase( ".\NonExistent.mdb" )

   Exit Sub

DAODatabaseError_Err:
   For Each errDB In DBEngine.Errors
      Debug.Print  "Description: "  & errDB.Description
      Debug.Print  "Number: "  & errDB.Number
    Next

End Sub

on error

CREATE PROCEDURE sp1 AS 
Begin Transaction
RaisError (блаблабла, 11 , 1 ) 
Rollback Transaction

Sub test()
On Error GoTo err_handler
    Dim ws As Workspace
    Set ws = DBEngine.CreateWorkspace( "test" ,  "", "  ", dbUseODBC)
    Dim con As Connection
    Set con = ws.OpenConnection(" testdsn ")
    con.Execute " sp1"
    Exit Sub
err_handler:
    Dim errDB As Error
    For Each errDB In DBEngine.Errors
        Debug.Print errDB.Description
    Next errDB
End Sub

ALTER PROCEDURE StoredProcedure1

AS
	RaisError ('блаблабла', 11 , 1 ) 
	RETURN 

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

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

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы