Bom dia a todos!!! gente como faço para fazer um função ou melhor dizendo uma rotina de erro que pegue pra mim a data do momento do erro e o tipo de erro e grave automatico no bloco de notas! Para que eu possa conferir os erros depois..
(obs : um exemplo uma forma de como fazer etc. por favor preciso disso!!).
Obrigado a todos. ja tenho a rotina preciso AGORA DA MAQUINA.
Bom gente os exemplos funcionaram so que agora como faço pra pergar a maquina onde ocorreu o erro ( em rede)
essa e a minha função.
---------------------------------------------------------------
função no modulo
============================================
Public Sub Errou(numerro As Integer, descerro As String)
If Err.Number >= 0 Then
Dim f As Byte
Dim s As String
s = Now & vbTab & numerro & vbTab & descerro & vbTab & Erl
f = FreeFile
Open "Erro.txt" For Append As f
Print #f, s
Close #f
End If
------------------------------------------------------------
esse eu uso nas rotinas
On Error GoTo erro:
Exit Sub
erro:
Errou Err.Number, Err.Description
-----------------------------------
HA não consigo encerra o topico.
