Jeg brruger i mine subs følgende error-handling:
private sub SomeSub(i as Integer ...)
On error goto Err
...
...
...
Exit Sub
Err:
Call ShowError
End Sub
ShowError er defineret i et module som:
Public Sub ShowError()
MsgBox "Error source = " & Err.Source & vbCrLf & _
"Error Description = " & Err.Description & vbCrLf & _
"Error number = " & Err.Number & vbCrLf, , appname & " Error"
End Sub
Mit problem er, at ovenstående ikke giver nogen information af, hvor
fejlen opstår i applikationen under den indledende kodning. Der kan fx
være en lang liste af funktioner, hvor en NULL-error foråsager en fejl
.... men det vil i dette tilfælde give nøjagtig samme fejl via denne
error-handler.
Er det ikke muligt at trække enten linienummeret for fejlen ud - eller
fx den specifikke sub/function, hvor fejlen sker ?
--
Jesper Stocholm
http://stocholm.dk