Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

EBEngine Errors

Public Sub ShowErrors()       Dim db   As Database       Dim recT As Recordset       Dim errE As Error           On Error GoTo ShowErrors_Err           Set db = CurrentDb()        Set recT = db.OpenRecordset("NonExistantTable")        recT.Close      ShowErrors_Exit:        Exit Sub      ShowErrors_Err:        Debug.Print "Err = " & Err.Number & ": " & Err.Description        Debug.Print             For Each errE In DBEngine.Errors           Debug.Print "Errors: " & errE.Number & ": " & errE.Description        Next        Resume ShowErrors_Exit          End Sub