Hi Johannes,
Das war eigentlich schon alles was ich brauchte. Trotzdem so rein interessenhalber: Kann ich den Quellcode auch irgendwie anpassen, so daß es für
verschiedenartige Errors auch unterschiedliche Texte ausgegeben werden???
na ja sicher, z.b. so (hab's jetzt nur 'mal so getipt uznd nicht getestet :)):
---Also...Fehler anders 'loggen':
if Err.number<>0 then
TrapError Err.description, Err.number
end if
---und dann eine entspr. auswahl treffen in 'TrapError':
sub TrapError(descError, numError)
bolErrors= true
select case numError
case 1 strErrorMsg= strErrorMsg & "hallo" & VBCrLf
case 2 strErrorMsg= strErrorMsg & "Welt!" & VBCrLf
.
.
.
case else strErrorMsg= strErrorMsg & "unbekannter Fehler!" & VBCrLf
end select
end sub
so long...
/*,*/