Here is the ErrorFunction that is called when errors are trapped (please
correct for line wrapping); note the Err.Clear in the last line, which fails
to clear the error:

Public Function ErrorFunction(argType As Integer, Optional argDesc1 As String)
'DISPLAY MESSAGES FOR TRAPPED ERRORS
Select Case argType
   Case Is = 1: MsgBox "The " & argDesc1 & " is a required field!",
vbOKOnly + vbCritical, "FORM INCOMPLETE": End
   Case Is = 2: MsgBox "The command was canceled and will not be
performed!", vbOKOnly + vbInformation, "COMMAND CANCELLED!": End
   Case Is = 3: MsgBox "A problem was encountered at: '" & argDesc1 & "'!",
vbOKOnly + vbCritical, "FORM ERROR!": End
   Case Is = 4: MsgBox "The back-end database is in use and cannot be
backed up at this time. You may continue working.", vbOKOnly + vbInformation,
"DATABASE IN USE": Err.Clear: Call EndFunction(True)
End Select
End Function

Here is the EndFunction that may be called either from the ErrorFunction OR
directly from any number of other procedures:

Public Function EndFunction(argQuit As Boolean)
'RESET BASIC APPLICATION ELEMENTS; CHECK FOR ERRORS;
Dim errObject As DAO.Error
Dim strError As String
If DBEngine.Errors.Count > 0 Then   'DAO errors
   For Each errObject In DBEngine.Errors
       strError = strError & "DAO Error: " & errObject.Number & ": " &
errObject.Description & vbCrLf
   Next errObject
End If
If Err.Number <> 0 Then 'VBA errors
   strError = strError & "VBA Error: " & Err.Number & ": " & Err.Description
End If
If Len(strError) > 0 Then
   MsgBox strError, vbOKOnly & vbCritical, "ERROR!"
   Err.Clear
End If
DoCmd.Hourglass False
DoCmd.SetWarnings True
RefreshDatabaseWindow
DoEvents
If argQuit = True Then End
End Function

Hope this makes more sense...