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

 

  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
 


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