COMO FAÇO TRATAMENTO DE ERRO PARA USAR EM QQ PARTE DO SISTEMA 

TRATANDO PARA NÃO SAIR FORA?

=> no inicio da função:

 

On Error Goto erro

 

=>Função erro:

 

erro:

If Err.Number <> 0 Then
   Me.MousePointer = vbDefault
   MsgBox "Erro n°: " & Err.Number & " Descrição: " & Err.Description, vbCritical
   Exit Sub
End If

 

 

EU PRECISO TER ISSO MAS PARA QQ LUGAR NO SISTEMA QUE DER ERRO USAR A MESMA FUNÇÃO SEM PRECISAR COLOCAR EM CADA FORM.

 

ENTENDEU??

 

Nao dá nao... o vb nao permite tratar excessões dessa forma

O q vc pode fazer é colocar em um Modulo uma função q vai ser usada em todo o sistema, por exemplo chamada TrataErroGlobal(), e qdo der erro, chamar a função...

Mas mesmo assim vai precisar colocar o On Error em todas as Procedures do seu sistema q podem dar erro...

 

Mas Pascoal, vou te dar um conselho q aprendi com OO (.Net): nunca queira generalizar, procure ser o mais expecifico qto ao tratamento de erro... mtas vezes o erro pode ser simplesmente resolvido, sem a necessidade de travar, ou de avisar o usuario... vc precisa conhecer seu codigo, saber onde pode e onde nao pode dar erro... na media, apenas em 1/10 das suas funções (procedures) vc vai precisar de tratamento de erro... as demais da pra vc ter certeza q nao vai dar erro jamais... procure analizar todo o seu codigo e  verificar onde realmente pode ocorrer erros, e aí sim tratra-los...

 

Flw!