TRATAMENTO DE ERRO., TRATAR UM ERRO.

USUARIO.EXCLUIDOS 20/03/2005 15:34:48
#73871
Olá galera,
blz? fiz uma calculadora e claro quando divido por zero dá pau.
queria fazer uma rotina de tratamento de erro.

tipo: quando o número dor maior que zero ele divide numa boa.
e quando ele for zero, ele vai para o tratamento.
mas quando nao for, ele não passa pelo tratamento.
FELIPEA 20/03/2005 15:36:38
#73873 
On error resume next


Coloque essa linha no inicio da procedure
WEBMASTER 20/03/2005 15:37:47
#73874
Se o número estiver em um text, faça :


If(Clng(text1.text)=0)then
   MsgBox "Impossível realizar divisão por zero."
End If
RAMON 20/03/2005 15:40:33
#73876 Resposta escolhida
Para resolver seu problema c pode fazer:

If Numero2=0 Then Exit Sub
Resultado=Numero1/Numero2


ou entre em:
http://www.linhadecodigo.com.br/artigos.asp?id_ac=136
TONARE25 20/03/2005 17:20:42
#73889
O que vc pode fazer é colocar no início do seu códiog:
On Error goto Trata_Erro

E no final do seu código vc pode criar a função:

Trata_Erro:
Dim MENS as String
MENS = "Código do Erro: " + str(Err.Number) + chr(13)
MENS = MENS + "Descrição do Erro: " + Err.Description + chr(13)
MENS = MENS + "Função de Origem: " + Err.Source
MsgBox MENS
Err.Clear

Isto fará com que seja exibida uma mensagem ao usuário do erro ocorrido...
Vc pode usar esta função para qualquer erro do VB e se quizer podera melhorar para traduzir as mensagens e muito mais...
QQ Coisa me manda uma MSG Interna.. OK!?
Tópico encerrado , respostas não são mais permitidas
Voltar