colega a função que deu erro não será possivel identificar, mas se você numerar as linhas de código poderia exibir o numero da linha
veja este exemplo em um módulo cole
Public Function GeraLog(Arquivo As String, Formulario As Form)
Dim Erro As Integer
Dim LogErr As String
LogErr = Date & " - " & Time & "- erro em: " & Formulario.Name & " - nº " & Str$(Err.Number) & _
" na Linha " & Str$(Erl) & " - " & _
Err.Description & " - gerado por " & Err.Source
If Dir(Arquivo) = "" Then ' se o arquvivo não existir ele grava o arquivo
Erro = FreeFile
Open Arquivo For Output As #Erro
Print #Erro, LogErr
Else 'Caso o arquivo já exista, ele apenas inclui uma nova linha
Erro = FreeFile
'abre o arquivo jah existente
Open Arquivo For Append Shared As #Erro
Print #Erro, LogErr
End If
MsgBox LogErr
Close #Erro
End Function
depois para teste em um form cole
Private Sub Form_Load()
On Error GoTo Trataerro
10 Me.Caption = "testado"
20 tet1.Text = "uuqu"
Exit Sub
Trataerro:
GeraLog "c:\arquivoerro.log", Me
End Sub
o Código acima alem de exibir a mensgem de erro gera um arquivo log no disco rigido
veja se te serve, e boa sorte
