ON ERROR GOTO NAO FUNCIONANDO

 Tópico anterior Próximo tópico Novo tópico

ON ERROR GOTO NAO FUNCIONANDO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#314438 - 22/06/2009 23:19:50

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Bolm antes de formatar a máquina, pois é o que falta fazer, perguntos aos senhores se já passaram por isso, tanto OnError Goto Como Resume não funcionam mais em meus projetos.

o pode ser?

Veja um exempo Básico, que deveria funcionar

Private Sub Form_Load()
On Error GoTo TrataErro
aaa '<--- o Erro ocorre e aponta para linha
Exit Sub
TrataErro:
msgbox "Deu Erro!!"
End Sub


bom, quando o erro for identificado ele deveria ir para mensagem deu error porem isto não acontece, a mensagem



se alguém puder ajudar, ficarei super grato.



________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



#314439 - 22/06/2009 23:24:34

JESUEL OLIVEIRA
IBIUNA
Cadast. em:Dezembro/2003


Amigo tente assim, o VB esta dando erro de compilação antes de executar, erro na função. tente igual abaixo

Declara a variavel como NUMERO e manda colocar texto, assim funciona.

Dim aaa As Integer

Private Sub Form_Load()
On Error GoTo TrataErro
'aaa '<--- o Erro ocorre e aponta para linha

aaa = teste

Exit Sub
TrataErro:
MsgBox "Deu Erro!!"
End Sub
  


Se solucionou o problema, encerre o tópico!

Agradeço a todos, Jesuel Oliveira - Ibiúna - SP!



#314440 - 22/06/2009 23:26:57

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Colega o erro é proposital, a questão é porque o ON ERROR GOTO não funciona comigo.



________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



Resposta escolhida #314441 - 22/06/2009 23:29:46

ANDRE.ADMVB
JUNDIAI
Cadast. em:Abril/2006


Última edição em Editado em 22/06/2009 23:30:37 por ANDRE.ADMVB por

Sim, é como se fosse um erro de sintaxe, e não erro durante a execução do aplicativo.
Por isso acho que o VB não ignora, aqui ocorre a mesma coisa, e os outros projetos com ON ERROR funcionam normalmente.

Acho que não há motivos para formatação não Marcelo =]

André Cantarim,
Vida de Escravo - Se fosse fácil, chamava MIOJO!
INFINITI - Tecnologia da Informação

#314442 - 22/06/2009 23:39:15

JESUEL OLIVEIRA
IBIUNA
Cadast. em:Dezembro/2003


Completando o amigo André,

ON ERROR GOTO serve para quando o software em EXECUÇÃO da erro, e passa para o próximo.

Na sua função e software nem executa, ON ERROR serve para programa em execução., não erro de digitação proposital.

Ainda bem que não funciona, imagine a bagunça que seria os códigos fonte.


Se solucionou o problema, encerre o tópico!

Agradeço a todos, Jesuel Oliveira - Ibiúna - SP!



#314443 - 22/06/2009 23:51:06

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Desculpem colegas, mas acredito não estra falando a mesma lingua que vocês, ms eu pediria uma simples favor.

coloquem o código abaixo em um código e executem.

Private Sub Command1_Click()

On Error GoTo TrataErro
aaa '<--- o Erro ocorre e aponta para linha
Exit Sub
TrataErro:
MsgBox "Esta mensagem é proposital, ocorreu um erro!!"
End Sub



a questão aqui é a seguinte, lógico irei formatar minha máquina pois é o que falta, mas vamos a questão, o código acima deve funcionar colega, ou seja ON ERROR GOTO ao detectar um erro no código pula para a função para tratar o erro, isto é basico e comum, se vocês testarem em sua máquina entederão o que estou falando.

Obrigado.


________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



#314444 - 22/06/2009 23:58:51

ANDRE.ADMVB
JUNDIAI
Cadast. em:Abril/2006


Sim, eu já testei e foi o que disse... aqui ta do mesmo jeito...

Então isso deve ser problema do VB, não da sua máquina!

André Cantarim,
Vida de Escravo - Se fosse fácil, chamava MIOJO!
INFINITI - Tecnologia da Informação

#314445 - 23/06/2009 00:02:42

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Valeu André


________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



#314446 - 23/06/2009 00:07:06

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Descobri parte do prolema desta forma funciona certo:

Private Sub Command1_Click()
On Error GoTo TrataErro
aaa.Text '<--- o Erro ocorre e aponta para linha
Exit Sub
TrataErro:
MsgBox "Esta mensagem é proposital, ocorreu um erro!!"
End Sub

________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45