Olá,

 

A estrutura On Error GoTo 0 é igual a estrutura On Error Resume Next ?

Caso não seja, pra que serve On Error GoTo 0 ?

Procurei no help de vbscript(só tenho esse aqui) e só achei sobre On Error Resume Next.

 

Grato, 

 

 

Olá Vilmarbr,

 

Isto eu tirei do livro VISUAL BASIC 6 PARA PROFISSIONAIS de Alcindo Alves dos Reis Filho da editora Brasport:

 

' On Error GoTo 0
' Desliga a condição de erro definida inicialmente na "Sub"

 

Private Sub Form_Load()
  On Error GoTo Erro     ' em caso de erro desviar para Erro
  Dim Emissao As Date
  Emissao = "aa/aa/aa"   ' ocorrerá um erro nesta linha
  On Error GoTo 0        ' desabilita o On Error GoTo inicial
  On Error Resume Next   ' ignora o error e segue em frente
  Emissao = "aa/aa/aa"   ' o erro será liberado
  Exit Sub
Erro:
  Screen.MousePointer = vbDefault
  MsgBox "Ocorreu o erro nº " & Err.Number & vbCr & vbCr & Err.Description, 64, "Atenção"
  Resume Next
End Sub

 

Jayme

 

O GOTO 0 desabilita o desvio de erro. Ou seja se houver um erro apos o comando ele ira mostrar a tela de erro do Vb.

Exemplo

On error goto TRATA_ERRO

.......

On error goto 0

...

Linha com erro <<< nao tera o desvio para o TRATA_ERRO ja que foi desabilitado com o GOTO 0, entao a tela de erro do VB sera mostrada.

 

O RESUME NEXT caso ocorra algum erro ele ira executar a proxima linha sem apresentar nada.

Exemplo.

 

Valeu povo, belas explicações!

 

grato