[Resolvido]Função para Tratar Error

Bom Dia !

uso um código que encontrei aqui no fórum para tratar erro. E uso ele em todos os procedimentos da aplicação Inserir,Consulta,deletar e Update.

Eu posso criar uma função ao invés de ficar copiando e colando esse código em todos eventos ? (Não sei se é normal criar uma função para esse tipo de caso )


Utilizo o seguinte código.

Exit_TrataErro:
DoCmd.Hourglass False
DoCmd.Echo True
Exit Sub

Trata_Erro:
If Err.Number = 0 Then
Resume Next
Else
DoCmd.Hourglass False
DoCmd.Echo True
Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
& vbNewLine & vbNewLine & "Descrição: " & Err.Description _
& vbNewLine & vbNewLine & "Por favor contate o Administrador do Sistema!"
MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
Resume Exit_TrataErro:
End If

No SysBase tenho uma função para tratamento de erros... Feita por mim e com ajuda do colega jungli.. nela tem tabelas com alguns erros principais com suas devidas resoluções...

Na sala de repositório tem um Plug-in postado pelo colega Silvio (MZ-Tools 3.0) que ao clicar de um botão insere o procedimento de erro automaticamente no evento...

Após instalar este Plug-in, vá no vba... ele estará disponível na barra de ferramentas ao lado do item: Outras utilidades com um ícone de um martelo..
Clique e na tela que abrirá Vá na aba: Error Handler e cole o texto a seguir:

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
On Error GoTo TrataErro
Dim NomeProcedimento As String
    NomeProcedimento = "{PROCEDURE_NAME}"
    'Adiciona o nome do procedimento à função
    PegaProcedimento (NomeProcedimento)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    {PROCEDURE_BODY}
Exit Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
    DoCmd.Hourglass False
    DoCmd.Echo True
Exit Sub
TrataErro:
    Select Case err.Number
        Case 0
           'Não é um erro
        Case Else
          DoCmd.Hourglass False
          DoCmd.Echo True
         'Chama a função global de tratamento de erros
         GlobalErrHandler (Me.Name)
  End Select

Pronto, agora clicando no  nono ícone da esquerda para direira, estando com o cursor do mouse no evento.. ele adicionará automaticamente o código acima...que ao ocorrer erro remete para a função:          GlobalErrHandler

Que utiliza a tabela tblErroDetalhe para resolução de erros que queira efetuar automaticamente
Caso o erro não esteja nesta tabela.. emitirá mensagem..

Eis alguns erros que trato automaticamente com a função:


tblErroDetalhe[th]ID[/th][th]Evento[/th][th]Retorno[/th][th]DescricaoErro[/th][th]ETipo[/th][th]ObjetoDoErro[/th][th]MsgBox[/th][th]TituloMsg[/th]

1	3075	ResumeNext	Erro de sintaxe (operador faltando) na expressão de consulta	1
2	13	ResumeNext	Tipos Incompatíveis	1
3	2105	ResumeNext	Você não pode ir para o registro especificado	1	btnAnterior_Click	Você está no Primeiro Registro!	Atenção
4	2105	ResumeNext	Você não pode ir para o registro especificado	1	btnPrimeiro_Click	Você está no Primeiro Registro!	Atenção
5	2105	ResumeNext	Você não pode ir para o registro especificado	1	btnProximo_Click	Você está no Último Registro!	Atenção
6	2105	ResumeNext	Você não pode ir para o registro especificado	1	btnUltimo_Click	Você está no Ultimo Registro!	Atenção
7	70	ResumeNext	Permissão negada	1
9	3077	ResumeNext	Erro de sintaxe (operador faltando) na expressão.	1
10	2467	ResumeNext	A expressão que você inseriu refere-se a um objeto que foi fechado ou não existe.	1
11	2501	ResumeNext	A ação Close foi cancelada.	1
12	5	ResumeNext	Argumento ou chamada de procedimento inválida	1
14	91	ResumeNext	A variável do objeto ou a variável do bloco	1
17	-2147024809	ResumeNext	Você inseriu uma expressão que contém uma referência inválida à propriedade |.	1

Testado e funcionando

Obrigado !

O Fórum agradece o Retorno.