|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Tratar um erro de sistema e gerar um log
|
 |
|
|
|
Postada em 6/10/2002 por San.dro
Por acaso seus usuários já fizeram este tipo de reclamação sem dar nenhuma informação útil para que você resolvesse o caso ?
Tive este problema, e então resolvi registrar num Erros.Txt todas as mensagens de erro do sistema.
Em cada procedimento do sistema, fiz algo assim:
Sub Botão1_click()
on error goto Botão1_Erro
...
Botão1_Erro:
TrataErro me.name & "Botão1.Click"
End Sub
A rotina TrataErro é assim...
Sub TrataErro(vRot As String)
Dim vMsg As String, vArq As String
If Err.Number = 13 Then
vMsg = "Você digitou algo errado no campo, confira se a digitação"
vMsg = vMsg & " está correta, e corrija o que for necessário !"
ElseIf Err.Number = 3705 Then
tb.Close
Else
vMsg = "Ocorreu um erro no sistema, e provavelmente o comando que você"
vMsg = vMsg & " executou não foi concluído satisfatoriamente. Informe a"
vMsg = vMsg & " descrição do erro abaixo." & Chr(13) & Chr(13)
vMsg = vMsg & Err.Number & " - " & Err.Description & " (" & Err.Source & ")."
End If
vArq = App.Path & "\Erros.Log"
Open vArq For Append As #1
Print #1, Format(Now, "ddmmyy-hhnn") & " - ";
Print #1, App.EXEName & " " & App.Major & "." & App.Minor & ".r" & App.Revision & " - " & vRot;
Print #1, " - usuário: " & vUser & " Err: " & Err.Number;
Print #1, " - " & Err.Description & " (" & Err.Source & ")."
Close #1
MsgBox vMsg, vbCritical, "Erro em " & vRot
End Sub
|
|
|
|
|
