PRESADOS SENHORES SAUDAÇÕES

 

GOSTARIA DE SABER COMO ATIVO O TRATAMENTO DE ERRO NO VB, POR EXEMPLO QUANDO ACONTECE ALGUM ERRO INESPERADO O SISTEMA E FECHADO, GOSTARIA DE SABER SE TEM COMO PREVER UM ERRO E AVISAR

 

ATT: AGINALDO

 

Veja;

 

://macoratti.net/errosl.htm

vlu//

vamos Super , um botão de comando.

 

Private Sub CmdGravar_Click()

On Error Goto SeuErro 'se houver erro ele desvio para o rotulo "SeuErro" que fica abaixo

 

'sua rotina qualquer de gravação

 

'agora em baixo vem o desvio para o tratamento do erro

SeuErro:

if err.number <> 0 then

    Msgbox "Motivo do Erro: " & Err.description ,vbexclamation,err.number

end if

End Sub

Se vc quiser q após o erro, continue executando a próxima linha use:

On error Resume Next

x = 10 / 0 'dá erro

x = 10 / 1 'porém será executado a próxima linha

MsgBox x