|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Salvando ERROS em arquivo LOG
|
 |
|
|
|
Postada em 3/2/2003 por Felipe
Crie a função:
Public Sub errLogger(ByVal lNum As Long, ByVal sDesc As String, ByVal sFrom As String)
Dim FileNum As Integer
FileNum = FreeFile
Open App.Path & "\Errors.log" For Append As FileNum
Write #FileNum, lNum, sDesc, sFrom, Now()
Close FileNum
End Sub
Usando:
Private Sub butGenErr_Click()
On Error GoTo Err_handler
'codigos e mais codigos
Exit Sub
Err_handler:
If Err.Number <> 0 Then
errLogger Err.Number, Err.Description, "butGenErr_Click"
Err.Clear
Resume Next
End If
End Sub
|
|
|
|
|
