Gjenoppta uttrykk

Tilbakestiller feilinformasjon og indikerer hva som skal utføres neste gang.

Syntaks:

Gjenoppta utrykksdiagram

Resume [ [0] | label | Next ]

Parametre:

0: Tilbakestiller feilinformasjon og kjører instruksjonen som forårsaket feilen på nytt. 0 er valgfritt.

etikett: Tilbakestiller feilinformasjon og gjenopptar kjøringen på den angitte etiketten til den gjeldende subrutinen.

Neste: Tilbakestiller feilinformasjon og utfører instruksjonen etter den som forårsaket feilen.

Feilinformasjon er bygget med funksjonene Feil, Feil og Error$.

tip

Å bruke Fortsett for å tilbakestille feilinformasjon forhindrer spredning av den behandlede tilstanden til anropsrutiner.


Feilkoder

20 Fortsett uten feil

Eksempler:

Typiske feilhåndteringsrutiner er: varsle brukeren, fikse feilen, logging av feilinformasjon eller re-kasting av egendefinerte feil som gir forklaringer med løsningsinstruksjoner. Bruk Fortsett-etikett når du krever slike mekanismer.

Sub Error_Handling
try: On Error GoTo catch
    ' rutinekode går her
    Feil 91 ' eksempel feil
finally:
    ' rutinemessig oppryddingskode går her
    Exit Sub
catch:
    Print Erl, Err, Error$
    Resume finally
End Sub ' Error_Handling

Bruk for eksempel Fortsett neste når du rapporterer uregelmessigheter for en iterasjonsprosess som ikke må avbrytes. I så fall kan det være nødvendig med flere håndteringsrutiner.

Sub Iteration
    planets = Array("☿","♀","♁","♂","♃","♄","⛢","♆")
try:
    On Error GoTo ReportAndProcessNext
    For ndx = -3 To 11 Step 1
        MsgBox planets(ndx)
    Next
    On Error GoTo 0 ' Stop error catching
finally:
    Exit Sub
ReportAndProcessNext:
    Print "Error "& Err &" at line "& Erl &" - "& Error$
    Resume Next
End Sub ' Iteration
warning

Å bruke Fortsett uten parametere for å utføre den feilaktige instruksjonen på nytt kan passe i visse situasjoner. Det kan imidlertid føre til en uendelig loop.


Supporter oss!