[S4]Ei  pessoal, não uso rotina de tartamento de erros em meus sistemas, apesar de estarem bem tratados os componentes, outro dia um usuário me estressou, digitou somente virgula em um text e ao fazer o calculo deu erro, eu trato o campo através da rotina "tratarnumerodecimal", que só aceita numéricos, a virgula, e o sinal de menos, ai falei pra ele então não digita só a virgula, mas como sempre veio a resposta: as vezes ta corrido aqui, e isto é falha do sistema, então pra não dar na cara dele, recorro a voces, tem alguma rotina, pode ser genérica, para ser colocada em um modulo, que trata erros no sistema, nem precisa informar a caca que ele fez, somente o fato de não sair do sistema ja é suficiente.

Existem diversas maneiras para controlar isso.

A mais generica seria vc usar sempre o evnto Validate para validar os dados da sua textbox.

No meu poto de vista fica dificil ter uma rotina generica de tratamento de erro visto que para cada projeto há várias interpretaçoes para os controles. Uns podem aceitar caracteres outros não. Uns aceitam acento outros não e por aí vai.

quanto ao caso de perder a cabeça, pense no Windows!! Quantos erros ele dá e só daqui há algum tempo ele é corrigido. Ningeum vai la bater no Tio Bill!!

Corrija o problema e envie um novo EXE que o cliente vai entender e vc só vai ganhar com isso. Experiencia se adquire...

No mais isso faz parte da vida de desenvolvedor...

Abraços

Oi Edson,

  Eu acho que todo e qualquer sistema por mais bem feito que seja deve ter uma rotina de tratamento de erros pois você nunca sabe  o que o usuário irá fazer ... E olha que tem uns criativos !

  Bom insira o código abaixo nas Subs que você quer controlar os erros :

 

  ON ERROR GOTO TratErr

 

  <Seu código entra aqui>

 

 

  EXIT SUB

  TratErr:

             MsgBox "Ocorreu o seguinte erro no sistema: Erro N#" & str(err.number) & " - " & err.description , vbOk + vbInformation, app.title

  END SUB

 

Se você quiser você pode tratar cada erro de forma específica usando :

 

SELECT CASE err.number

Case XX

 

Case YY

 

Case ZZ

 

END SELECT

 

Espero ter ajudado, um abraço.