OnError meerdere keren mogelijk?

[BasHD]

Er worden verschillende overzichten uitgelezen. Als er een overzicht ontbreekt wordt de melding gegeven “Geen overzicht voor lid”. Er moeten meerdere overzichten uitgelezen worden. Als er 1 ontbreekt wordt de foutmelding gegeven en gaat hij door naar de volgenden. Maar als er 2 of meer ontbreken wordt bij de eerste de foutmelding gegeven maar bij de tweede die ontbreekt gaat hij niet naar de volgende maar loopt die vast in VBA.

Ik gebruik onderstaande systematiek om te openen en een fout eruit te halen.

On Error GoTo BestandBestaatNiet0

Open "C:\LIDNIEUW\" & Left$(LidCode.Value, 6) & "\" & LidCode.Value & "\" & "Overzicht".txt" For Input As #1
GoTo verder0
BestandBestaatNiet0:
Dummy = MsgBox(" Geen overzicht voor lid", vbOKOnly, "FOUT")
On Error Resume Next
On Error GoTo 0
GoTo OverzettenAlle
verder0:
On Error Resume Next
On Error GoTo 0

Bij de 2e maal OnError loopt VBA vast. Hoe krijg ik de lus zo dat er meerdere keren OnError voor kan komen?

Gr

Bas

 

[OctaFish]

OnError meldingen kun je op verschillende lagen toepassen, bijvoorbeeld in elke geneste If of For loop kun je een eigen On Error plaatsen.

In jouw voorbeeld lijkt alles zich op één niveau af te spelen, waarbij je een On Error Resume Next laat volgen door een On Error GoTo 0. Wat is daar de bedloeling van?
De routine gaat daarna verder met OverzettenAlle. Zit daar ook een OnError routine in?
Zo ja, welke?

 

[BasHD]

Na OverzettenAlle leest die een txt bestandje uit. Is dat klaar dan komt het volgende txt bestandje met de zelfde onerror routine.

Er zijn 5 txt bestandjes die allemaal 1 voor 1 uitgelezen worden op de zelfde laag.

groet