Tratamento de erros - Personalizado

Private Sub SeuBotão_Click()
'declara as variaveis dinamicas em texto
Dim Msg As String
'se existir erro, salta para o 1
On Error GoTo 1

'Seu codigo aqui...


Exit_1:
'coloca o cursor normal
   DoCmd.Hourglass False
'ativa os avisos
   DoCmd.Echo True
   Exit Sub

1:
'coloca o cursor normal
   DoCmd.Hourglass False
'ativa os avisos
   DoCmd.Echo True
'mostra na mensagem o numero do erro, onde e a descrição
   Msg = "Erro # " & str(Err.Number) & " gerado na " & Err.Source _
       & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
       & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
   MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
'salta para o exit
   Resume Exit_1
End Sub