USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Rotina Global para tratar erros em seus aplicativos
Postada em 5/1/2004 por PC            
Private Sub MinhaFunction()
'**********************************************************
'Ponha isto em cada função, mudando onome ali no tratamento de erro Ok!
On Error GoTo GlobalErrorTreat:
GlobalErrorTreat:
    If Err <> 0 Then
        Call GlobalErros("MinhaFunction")  ' vc pode criar uma constante com o mome de cada form para te facilitar a vida
        Exit Sub ' ou exit function
    End If
'**********************************************************



Dim x As Integer
Dim a As String
Dim r As Boolean
    a = "a"
    x = 1
    r = a * x 'gera um erro
    MsgBox r
End Sub


'Em um MODULE
Public Sub GlobalErros(Optional LocaldoErro As String = "Desconhecido")
    MsgBox "Houve um erro interno:" & vbCrLf & vbCrLf & _
    "Número do erro:" & Err.Number & vbCrLf & _
    "Descrição :" & Err.Description & vbCrLf & _
    "Origem :" & Err.Source & " / " & LocaldoErro
    Err.Clear
    Exit Sub
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página