Não Fechar O Programa

[Rafael Portal]

Gente como sou principiante minhas aplicações são geradas mas ainda tem erros... Bom o que eu quero saber... Como é que se fazer para quando gera um erro de Run-time para que o programa não feche?? Espero que tenham entendido minha pergunta.. Desde já muito obrigado..

Rafael Portal

[Graymalkin]

Você pode colocar em cada rotina o seguinte:

on error goto trata_erro

'início código da rotina
'...
'fim do código da rotina

exit sub

trata_erro:
  msgbox "Ocorreu o seguinte erro: " & err.number & " - " & err.description & vbcrlf & "Contacte o programador!"

É claro que no label trata_erro você pode fazer com que a informação seja gravada em arquivo (texto puro ou uma tabela, por exemplo) para uma análise posterior.

Abraços,

Graymalkin

[Rafael Portal]

Olá Graymalkin, é o seguinte.... Eu sei usar tratamento de erros.. o problema é que em função de eu ser principiante não consigo tratar todos.... Então meu problema é que pelo menos o programa não fique fechando na cara do cliente toda hora que eu me esquecer de tratar algum erro.... Tipo eu quero saber se existe alguma forma de que o programa não feche de uma forma genéria... Que não importe o erro que aconteça ele continue rodando.... Tem como fazer isso?????????????

Agradecido,

Rafael Portal

[William Rodrigues]

Seria algo como o On error resume Next?

Abraços,

William Rodrigues

[Rafael Portal]

Não... Eu quero saber se tem como fazer tipo... INDEPENDENTE do erro o programa não fechar.. Tem como ????

Agradecido,

Rafael Portal

[William Rodrigues]

Não?

Fiz um exemplo aqui (olha que eu não uso o VB faz um tempo já hein!) e deu certo, por pior e eficiente que seja....

Private Sub Command1_Click()
On Error Resume Next

label1.Caption = "William"
MsgBox label1.Caption
End Sub

O problema é...Não existe o Label1 se eu comentar a linha On Error Resume Next ele dá erro no Debug e pára o meu projeto na hora. Veja:

Private Sub Command1_Click()
'On Error Resume Next

label1.Caption = "William"
MsgBox label1.Caption
End Sub

Erro: Run Timer Error '424' - Object Required

Assim, usando o On Error Resume Next ele não faz nada, mas não pára o meu projeto!

Faz um teste aí...

Abraços,

William Rodrigues

[Graymalkin]

Bom, pelo que entendi você só não quer é colocar o código em todas as rotinas. Isso porque o código do meu primeiro post impede que o seu programa feche, porém você deverá repeti-lo em todas rotinas. Não conheço uma maneira global de tratar erros.

Abraços,

Graymalkin

[William Rodrigues]

Bom, pelo que entendi você só não quer é colocar o código em todas as rotinas. Isso porque o código do meu primeiro post impede que o seu programa feche, porém você deverá repeti-lo em todas rotinas. Não conheço uma maneira global de tratar erros.

Exatamente brother...

Mas, de acordo com o terceiro post dele (logo abaixo) ele resolve o problema com o On Error Resume Next

Eu quero saber se tem como fazer tipo... INDEPENDENTE do erro o programa não fechar.. Tem como ????

Agora, se ele pretende tratar todos os erros de uma forma global, acredito que isso não seja possível!

Abraços,

William Rodrigues

[Rafael Portal]

Vou procurar tratar todos os erros então.... Valeu galera..!!!!

[William Rodrigues]

Vou procurar tratar todos os erros então.... Valeu galera..!!!!

Beleza então...

Abraços,

William Rodrigues