[Resolvido]Tratamento de Erros, exibir nome do procedimento

Bom dia amigos, é possível na ocorrencia de um erro, exibir o nome do procedimento em que o mesmo ocorreu?

Aqui na linha em vermelho eu coloco o nome do procedimento, o que gostaria é que esse nome fosse preenchido automaticamente a exemplo do Nome do form ( " & Me.Name & ") em azul
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
DoCmd.Hourglass False
DoCmd.Echo True
Exit Sub
TrataErro:
Select Case err.Number
Case 2105
PlaySound fLocalBd & "\div\sons\msg_err.wav", 1, 1
MsgBox "Você não tem permissão para realizar este procedimento", vbCritical, "NEGADO"
Case 2046
PlaySound fLocalBd & "\div\sons\msg_err.wav", 1, 1
MsgBox "Você não tem permissão para realizar este procedimento", vbCritical, "NEGADO"
Case 3075
PlaySound fLocalBd & "\div\sons\msg_err.wav", 1, 1
MsgBox "Selecione primeiro o Tipo a ser excluído", vbCritical, "Atenção"
Case Else
DoCmd.Hourglass False
DoCmd.Echo True
MsgBox "Erro Gerado no :" & Me.Name & " (BtnNovo_Click)" _
& vbNewLine & "Erro Número: " & err.Number _
& vbNewLine & "linha: " & Erl _
& vbNewLine & "Descrição: " & err.Description _
& vbNewLine & "Por favor contate o Administrador de Sistema.", vbCritical, err.Number & ", linha:" & Erl
End Select

Cumprimentos.

aqui:
http://allenbrowne.com/ser-23a.html

bom ano novo

Boas Ricardo, espero que esteja bem neste final de ano...Depois verei o link.. hoje já estou em Águas...LOL..

Feliz Ano Novo e muita Paz e Prosperidade.

Abraços.

Boas Ricardo, andei olhando o Link.. e confesso que não entendi como chamar a função em um procedimento... Podes ajudar-me?

Cumprimentos.

Boa noite PILOTO, Feliz 2013!
Esta dúvida eu tenho também.
Em pesquisa até já encontrei algo que precisa
utilizar uma DLL, mas nem cheguei a baixar...
Vamos ver como aplicar esse código então!

Eu tenho dado atenção especial ao tratamento de erros, principalmente ao se distribuir aplicativos, pois em caso de ocorreência o usuário poderá lhe informar os dados do erro, e não precisa perder tempo em testes para descobrir onde o mesmo ocorreu, no código que postei acima em cada procedimento eu coloco o nome do mesmo no tratamento, assim identificando o form e o procedimento onde ocorreu o erro.

Se o nome do proceddimento puder ser colocado automaticamente como o nome do form em que ocorreu, isso pouparia tempo na colocação do tratamento do erro no procedimento.


Para aparecer a linha, é necessário numerar o procedimento, da seguinte forma:

Private Sub btnInserirLanc_Click()
On Error GoTo TrataErro
Dim BancoNome As String
1 PlaySound fLocalBd & "\div\sons\click.wav", 1, 1
2    BancoNome = DLookup("CpBanco_Nome", "tblBanco", "ID_Banco= " & Me.strBanco & "")
3    If MsgBox("Deseja Inserir um novo Lançamento para" _
            & vbNewLine & "a conta do Banco " & BancoNome & "?", vbYesNo + vbQuestion + vbDefaultButton1, "INSERIR HISTÓRICO") = vbYes Then
        'Checa se a data atual é maior que a data do último lançamento, sendo, cria novo movimento
4        If DCount("*", "tbl_DataMov", "Data_Mov = #" & Format(Date, "dd/mm/yyyy") & "# And Banco = " & Me.strBanco & "") = 0 Then
5            Call movbb_Click
6        End If
        'Executa consulta inserção para inserir os valores na tbl_Movimento
7        CurrentDb.Execute "INSERT INTO tbl_Movimento (Data_Mov_e, Banco_ID, Historico_ID, DepositoDInheiro, DepositoChBloq,DebitosDiversos, ChBloqEntrada, ChBloqEstorno)" _
                        & " Values(#" & strData & "#, """ & Me.strBanco & """, """ & Me.txtIdHist.Value & """, """ & Me.txtDepDin.Value & """,""" & Me.txtDepCh.Value & """, " _
                        & " """ & Me.txtDeb.Value & """,'NÃO','NÂO')"
        'limpa os campos
8        Me.txtDeb = "0,00": Me.txtDepCh = "0,00": Me.txtDepDin = "0,00": Me.txtHistorico = ""
9       Me.Lst_Historico.Requery
End If
Exit Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
    DoCmd.Hourglass False
    DoCmd.Echo True
Exit Sub
TrataErro:
    Select Case err.Number
        Case 5
            Exit Sub
        Case Else
            DoCmd.Hourglass False
            DoCmd.Echo True
                MsgBox "Erro Gerado no: " & Me.Name & "  (BtnInserir_CLick)" _
                & vbNewLine & "Erro Número: " & err.Number _
                & vbNewLine & "linha: " & Erl _
                & vbNewLine & "Descrição: " & err.Description _
                & vbNewLine & "Por favor contate o Administrador de Sistema.", vbCritical, err.Number & ", linha:" & Erl
    End Select
End Sub

Cumprimentos.

Este suplemento é bem legal e numera as linhas do procedimento dentre outras funcionalidades:

http://www.mztools.com/v3/download.aspx

Cumprimentos.

Aqui tem uma ideia, mas mesmo assim tem que declarar uma constante...

A ideia é pegar a procedure automaticamente.

http://www.ambienteoffice.com.br/officevba/tratamento_de_excecao/

Cumprimentos.

Sugestão;

MsgBox "Error: (" & Err.Number & ") " & Screen.ActiveControl.Name, vbCritical

Boas JP, Obrigado pela participação,

Uma boa sugestão, que resolve a questão em parte, pois para procedimentos em objetos funciona, e para Funções e sub's?

Se tiver mais sugestão fico grato.

Saudações.

Bem... Para botões cheguei neste código que particularmente achei muito informativo....
Só faltando a questão do nome do preocedimento caso o mesmo seja uma função

Utilizei o MzTools para numerar as linhas do código, o que retorna o número da linha em que ocorreu o erro.

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'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
                MsgBox "Erro Gerado no: " & Me.Name & "" _
                & vbNewLine & "No Procedimento: " & Screen.ActiveControl.Name & "" _
                & vbNewLine & "Erro Número: " & err.Number _
                & vbNewLine & "linha: " & Erl _
                & vbNewLine & "Descrição: " & err.Description _
                & vbNewLine & "Por favor contate o Administrador de Sistema.", vbCritical, err.Number & ", linha:" & Erl
    End Select

Cumprimentos.

A imagem da MsgBox exibindo um erro:

Bom Dia Piloto;

Agora que você mostrou a mensagem, vejo que está equivocado em relação ao Procedimento;

O que você apresenta apresenta ae, é o nome do Objecto e não do Procedimento, se fosse o nome do Procedimento seria Ao Pressionar, ou Depois de Atualizar, ou, ou, ou....

Para o que pretende, que é o nome do objecto, é mais facil de obter, com um simples;

Dim ctl As Control

For Each ctl In Form.Controls

Pense nisso.

Bom dia pessoal eu uso dessa forma paa fazer tratamento de um erro no botao

Private Sub Comando121_Click()


If sErr = -1 Then 'Habilita tratamento de erro
On Error GoTo Comando121_Click_Erro
End If


Me.Lista.Requery
Me.Página2.SetFocus 'Segue para a primeira guia


On Error GoTo 0
Exit Sub

Comando121_Click_Erro:


MsgBox "Ocorreu um erro na aplicação." & vbCr & "Relate os dados abaixo ao suporte." & vbCr & _
"Erro Nº: " & err.Number & vbCr & _
"Descrição do erro: " & err.Description & vbCr & _
"Módulo: " & "Form_Processador" & vbCr & _
"Procedimento: " & "Comando121_Click", vbExclamation,"teste"
End Sub

Boas João Paulo, desculpando-me pela confusão quanto a procedimento ou objeto, fato é que eu quero apontar no erro... Ou o objeto ou o procedimento.

Por exemplo... Se o procedimento ficar no click de um botão ou em algum evento de um objeto, mostra o nome do objeto.. Neste caso o ControlActive.Name resolveu a questão.

No entanto se o erro for em uma função... como exibir o nome da funçao onde ocorreu o erro.

Suponha que:

Private Sub Btn_Click()
Call FunçãoX
End Sub

Private Function Funçãox()
On Error Goto TrataErro
blablablabla
Tratamento de Erro
EndFunction

Supondo que o erro aconteceu na função... no tratamento de erro exibir:
Erro no procedimento: Funcao(x)


Espero que tenha entendido.


Avelino007, o que justamente estou tentando fazer e a automatização do preenchimento do objeto e procedimento no tratamento de erros, para que ao aplicar o tratamento de erros não ser necessario modificar o nome do objeto ou procedimento.


Cumprimentos.

Ha JP eu entendi o que quis dizer... Procedimentos como disse seriam os eventos...

Então... Eu gostaria de ter o resultado tanto do procedimento, como do nome do objeto ou de uma função...

Alguma ideia?

Resumindo.... Pretendo ter de forma automatizada:

1 - Nome do Objeto
2 - Nome do Procedimento (Eventos)
3 - Se o erro for em uma sub ou função (o nome da função)

1 - No caos Nome do Objeto o ActiveControl.Name resolve
2 - ?
3 - ?
Da uma luz amigão.

Cumprimentos.

Tópico resolvido, Modelo postado o repositório.

Obrigado a todos.