Tratamento global de erros

Boa noite a todos. Existe alguma forma de tratar um erro de forma global?

Olá Clemerson,

Fiz um pequeno exemplo onde o sistema executa uma função em um módulo para o tratamento do erro.

Código:


'-- Função para tratamento e mensagem de erro
Public Function fncMsgErro(iNumErro As Long, vNomeSub As Variant, sNomeForm As String)
Dim Msg$

       
       Select Case iNumErro - vbObjectError
           Case -2147217900: Msg = "Erro ao gravar registro."
           Msg = "Erro gerado: " & Err.Number & " - " & Err.Description & ""
           Exit Function
       End Select
     
       Msg = Empty
       Msg = Msg & "Erro nº..............: " & iNumErro & vbNewLine
       Msg = Msg & "Descrição..........: " & Err.Description & vbNewLine
       Msg = Msg & "Objeto..............: " & sNomeForm & vbNewLine
       Msg = Msg & "Procedimento...: " & vNomeSub & vbNewLine
       
       MsgBox Msg, vbCritical, CurrentProject.Name
       Err.Clear
   
   
End Function


Para chamar a função:

Código:


       Call fncMsgErro(Err.Number, "cmdTeste", Me.Name)


Veja o exemplo no formulário.

Espero ter ajudado.

[]'s

FIM

Oi alexandre, boa tarde. Primeiro obrigado por responder. Imagina que esteja acontecendo o mesmo erro no meu formulário principal todo vez que eu clico em qualquer botão. Existe uma forma de dar o mesmo tratamento para esse erro através de uma função? Chamaria a função no evento "no atual" do meu formulário principal. Espero estar me fazendo entender.