Notifications
Clear all

Aonde declarar "On Error GoTo"?

4 Posts
2 Usuários
0 Reactions
843 Visualizações
(@wolneypk)
Posts: 188
Reputable Member
Topic starter
 

Amigos, criar um sistema com diversas ferramentas e função sempre é muito complicado pois ninguém é passível de erros.
Gostaria de criar uma função para que caso algum tipo de erro venha ocorrer, ele me apresente uma MsgBox.

Já fiz essa função:

On Error GoTo ErrMsg
ErrMsg:
MsgBox ("Ops! Algo deu errado! Contate o administrador imediatamente."), vbCritical

Meu único problema é: Aonde devo declarar essa função para que ela abranja todo o sistema?
Não sei de onde o erro vai partir, então gostaria que essa função fosse (por assim dizer) "universal" dentro do meu sistema.

Forte abraço!

 
Postado : 12/04/2013 8:56 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se ajuda :

Tratamento de Exceção
http://www.ambienteoffice.com.br/office ... e_excecao/

Como usar "On Error" para manipular erros em uma Macro
http://support.microsoft.com/kb/141571/pt

0052-Tratamento de erro em códigos VBA
http://usuariosdoexcel.wordpress.com/20 ... digos-vba/

[]s

 
Postado : 12/04/2013 9:15 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Se eu entendi, você está no caminho certo.

Sub SuaMacro()

'Variaveis

On Error GoTo ErrMsg '<--
'..Linha de Código
Exit Sub

ErrMsg: '<--
MsgBox ("Digite sua menssagem aqui."), , "Titulo"
End Sub
 
Postado : 12/04/2013 9:24 am
(@wolneypk)
Posts: 188
Reputable Member
Topic starter
 

Perfeito amigos!
Mais uma vez Obrigado pela ajuda no avanço do projeto!

 
Postado : 12/04/2013 10:49 am