2 replies to this topic

[PentaHost]

Blz Galera!

Alguém sabe se há como, por exemplo, der algum erro 'Run time error 000000' (exemplo) ele avisar e com um MsgBox e dar um Exit Sub em seguida?

Exemplo...um aplicativo deve conectar à um banco de dados, mas caso o servidor não exista (unknown server), ele gera um erro e diz que o servidor pode estar com problemas, pausado ou parado...

Há COMO?

[Kurt]

Veja se tratando o erro da certo:

On Error GoTo fim
'(aki vc poe o q causa o erro)
fim:
If Err.Number = (numero do erro) Then
MsgBox "Erro no programa!!!", vbOKOnly + vbInformation, "Aviso"
exit sub
End If

Flw!

[PentaHost]

vlw!