Getting Run-time errors descriptions
This is from the post of Dirk Goldgar, Access MVP, I saw the question in newsgroups, but forgot about this AccessError() function. Keeping it here. It only works on English Access, so for localized version you have to adjust it.
Dim strErrDesc As String
For i = 1 To 65535
strErrDesc = Error(i)
If strErrDesc = "Application-defined or object-defined error" Then
strErrDesc = AccessError(i)
Print #1, i & ", " & strErrDesc