Hallo Leute!
Folgendes Problem:
private sub test
on error goto fehler1
open „test01“ for input as #1
on error goto 0
fehler1:
on error goto fehler2
open „test02“ for input as #1
on error goto 0
fehler2:
msgbox"fehler"
end sub
Wenn die zweite Datei nicht gefunden wurde, bekomme ich einen Laufzeitfehler ‚53‘. Warum wird dieser Fehler nicht mehr abgefangen? Wer kann mir hierbei helfen?
Besten Dank im Voraus!
Gruß aus OÖ!
Aus dem Fehlerbehandler muss man mit Resume herausgehen, auch musst du aufpassen, dass du nicht in den Fehlerbehandler „hineinläufst“:
private sub test
on error goto fehler1
open "test01" for input as #1
ex:
exit sub
test2:
on error goto fehler2
open "test02" for input as #1
goto ex
fehler1:
MsgBox "Fehler1"
resume test2
fehler2:
msgbox "fehler2"
resume ex
end sub
Gruß aus dem Norden
Reinhard Kraasch (http://www.kraasch.de - Access Tipps & Tricks)