ROTINA GLOBAL P/ TRATAR ERROS
Gostaria de saber se alguém conhece alguma forma de tratar os erros do programa sem ter que colocar um ON ERROR GOTO em cada procedure?
Já pensei muito sobre isso mas não consigo...
Já pensei muito sobre isso mas não consigo...
Não Existe!
Simples, direto. Se não tem, não tem...
Obrigado
Obrigado
Citação:CHPMOTTA escreveu:
Simples, direto. Se não tem, não tem...
Obrigado
Sim Senhor Papai Simpson
Hehehehehe
Cara, de fato não existe, mas existem algumas AddIns que ajudam vc, veja estas:
MZTOOLS
(tem duas funções, colocar nr de linhas e tratamente de erro, o tratamento de erro pode ser configurado, mas deve ser colocado procedure a procedures, mas é só clicando num botão)
COLOCAR NUMERACAO DE LINHAS E TRATAMENTO DE ERROS
(desenvolvido pelo colega MARCOSA, já coloca todo tratamente na janela de código ativa em todos procedures, porém não há como configurar a forma como será exibido o tratamento)
Qualquer dúvida poste...flw
MZTOOLS
(tem duas funções, colocar nr de linhas e tratamente de erro, o tratamento de erro pode ser configurado, mas deve ser colocado procedure a procedures, mas é só clicando num botão)
COLOCAR NUMERACAO DE LINHAS E TRATAMENTO DE ERROS
(desenvolvido pelo colega MARCOSA, já coloca todo tratamente na janela de código ativa em todos procedures, porém não há como configurar a forma como será exibido o tratamento)
Qualquer dúvida poste...flw
Eu trato assim , não sei te ajuda.
'no modulo
'depois
On Error GoTo erros
'rotina
erros:
If Err Then
MSGERROS
End If
Acho que alivia um pouco o trabalho
'no modulo
Public Function MSGERROS()
MsgBox "Por favor relate ao Desenvolvedor Nº do Erro= " & Err.Number & " / Descrição do Erro= " & Err.Description & "", vbCritical, "ERRO - NCaires Sistemas"
End Function'depois
On Error GoTo erros
'rotina
erros:
If Err Then
MSGERROS
End If
Acho que alivia um pouco o trabalho
Tópico encerrado , respostas não são mais permitidas