|
|
|
|
|
|
|
|
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
|
|
|
|
|
