1 reply to this topic

[PentaHost]

Galera, uma dúvida meio bestinha, mas importante.

Se por exemplo, eu estou numa aplicação...até aí, tudo bem. Mas se por ex., durante uma conexão à um DB, a pessoa digitar uma tabela, db, etc errado. Esse erro, tem um número e identificação e minha dúvida é a seguinte:

"Há como criar uma condição, que se der por ex.:

If ERROR "Run time ERROR: xxxxx" then
MsgBox ""..........
exit if

...como seria essa sintaxe?

[PentaHost]

Encontrei!

Antes do comandos do Sub, adicionei:

On Error GoTo GeraErro

e depois do suposto comando que poderia dar erro, o comando do GeraErro:

GeraErro:
If Err Then
MsgBox "Teste", vbCritical, "ERRO CRÍTICO DURANTE A CONEXÃO"
Exit Sub
End If

o que falta agora, é saber o número do erro, pra especificar melhor, iria ficar mais profissional. Assim, seria:

GeraErro:
If Err = "<numero>" Then
MsgBox "Teste", vbCritical, "ERRO CRÍTICO DURANTE A CONEXÃO"
Exit Sub
End If

Abraços,
Felipe D.