Hop til teksten

IT FJERNUNDERVISNING
- IT kurser når Du har tid!

Fejlhåndtering

Du kan fange runtime fejl i VBA ved:

On Error GoTo LineLabel

Som vist i dette lille eksempel

    On Error GoTo ErrorTrap
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "testImport", "c:\importfil.xlsx"
    
Rydop:
    'Noget kode, hvis nødvendigt
    
    Exit Sub
ErrorTrap:
    Besked = "Fejl nr: = " & Err.Number & vbCr
    Besked = Besked & Err.Description & vbCr & vbCr
    Besked = Besked & "Sørg for at filen er på c-drevet"
    Svar = MsgBox(Besked, vbQuestion + vbOKCancel, "Error")
    If Svar = vbCancel Then
        Resume Rydop
    Else
        Resume
    End If

Vi har som du ser et par muligheder for at genoptage afviklingen af koden

  • Resume - genoptager afviklingen med den linje der gav fejlen
  • Resume Next - genoptager afviklingen lige efter den linje der gav fejl
  • Resume LinieLabel - genoptager afviklingen ved den label vi har angivet

Du kan også vælge "On Error Resume Next", men det skal man nok lige overveje lidt...

Når du har betalt for kurset får du adgang til øvelser til hver lektion. Og når du har fået godkendt din besvarelse får du desuden adgang til mine løsningsforslag med ekstra tips og trix.