CRIAR LOG DE ERROS

Public Sub EscreverLog(eTipoDeLog As String, strMsg As String)

Dim intArq          As String
Dim strPath         As String


   On Error GoTo EscreverLog_Error

If eTipoDeLog = "LogDeErro" Then
  strPath = App.path & "\" & "Log.txt"
End If
If eTipoDeLog = "LogDeTrabalho" Then
  strPath = App.path & "\" & "Log.txt"
End If


    intArq = FreeFile
    
    Open strPath For Append As intArq
    Print #intArq, Date & " - " & Time & " > " & strMsg
    Close (intArq)

  Exit Sub

EscreverLog_Error:

  MsgBox "LogDeErro", "Error " & err.Number & " (" & err.Description & ") in procedure EscreverLog of Módulo mdlPrincipal"
  err.Clear
  Resume Next
  Exit Sub


End Sub

Citação:

EMERSON_TADEU escreveu:
O seguinte, embora VB seja uma linguagem mto bacana ela é ferramenta tal qual um martelo.
Do que é capaz um martelo sem as mãos habilidosas de um bom marceneiro .. e o que ele faz estando com um escultor ??

O que o Almarti falou ta certinho, basta vc criar uma função GLOBAL que receba como parametro o erro e grave o log, ae vc cria um modelo no MZToll e ele replica em toda função vc tem q tratar o erros.

A função q grava o log será uma só para todo o sistema ... e se criar uma dll servira pra outros sistemas tambem.

Não adianta ficar procurando mais, a resposta está aki.