CANCELAR ON ERROR RESUME NEXT

USUARIO.EXCLUIDOS 13/08/2007 13:15:27
#230694

Olá pessoal!!

Qdo damos um On Error Resume Next ele vale pra toda a Sub..

existe alguma coisa q eu digite q cancele o efeito do On Error tipo?

On Error Resume Next
bla bla bla
bla bla bla
bla bla bla

Cancel On Error Resume Next 'exemplo, pelo amor hein!!
bla bla bla
bla bla bla
USUARIO.EXCLUIDOS 13/08/2007 13:18:31
#230695
Olha só, vc pode fazer assim:


On Error Resume Next
bla bla bla
bla bla bla
bla bla bla

On Error GoTo TrataErro
bla bla bla
bla bla bla


exit sub
TrataErro:
MsgBox "Erro: " & Err.Number & vbcrlf & "Descrição: " & err.Description




Ve se atende as suas necessidades.
USUARIO.EXCLUIDOS 13/08/2007 13:21:51
#230699

Na verdade eu queria ativar e desativar...o On error...vou tentaar algo assim e ja te falo

valew Marcelo!
USUARIO.EXCLUIDOS 13/08/2007 13:27:36
#230703
Bom... que eu saiba, não tem como "cancelar" o On Error.... somente mudar sua direção.

mas tb não tenho certeza desta informação. Vou dar uma pesquisada pra ver se acho algo também.
MORDOR 13/08/2007 13:41:14
#230708 Resposta escolhida
Tem como desabilitar sim através da instrução "On Error GoTo 0".

On Error Resume Next

Dim i As Integer, j As Integer

i = 100 / 0
j = 1

On Error GoTo 0

i = 100 / 0
USUARIO.EXCLUIDOS 13/08/2007 13:53:28
#230711
Hmmm... testei aqui, vc tem razão.

Vivendo e aprendendo!
Tópico encerrado , respostas não são mais permitidas
Voltar