|
Sub TestErrorsCollection()
On Error GoTo TestErrorsCollection_Err
Dim db As DAO.Database
Set db = CurrentDb
db.Execute ("qryNonExistent")
Exit Sub
TestErrorsCollection_Err:
Dim ErrorDescrip As DAO.Error
For Each ErrorDescrip In Errors
Debug.Print ErrorDescrip.number
Debug.Print ErrorDescrip.Description
Next ErrorDescrip
Exit Sub
End Sub
|