Hvis du forsøger at få mere ud af din MS Access -projekter , eller du er begyndt at programmere i Visual Basic, der har en fejlbehandleren i din Subs og funktioner kan gemme dine slutbrugeren en masse sorg . Her er en enkel måde at tilføje en fejlbehandleren til din kode, der vil give dig mulighed for at beskæftige sig med fejl , som de kommer op og derefter skræddersy respons på den specifikke fejl. Ting du skal
Visual Basic 6 eller et åbent kode vindue i en MS Access 2003 eller tidligere modul
Vis Flere Instruktioner
1
Åbn en kode vindue i enten VB6 eller MS Access-modul og oprette en ny Sub rutine opkaldt TestErrorHandler . På dette tidspunkt vil der ikke være nogen kode i Sub , som vil se sådan ud: Public Sub TestErrorHandler ( ) End Sub
2
Tilføj nedenstående linier til Sub Routine , ikke genindtaste de offentlige Sub og End Sub linjer igen. Det er vigtigt at sørge for, at du tilføjer et kolon efter linjen " Error_Exit " og " ErrorHandler ". Derudover line " ErrorHandler " skal skrives nøjagtigt, som det er erklæret i linjen " On Error GoTo ErrorHandler . " Du kan navngive din fejlbehandleren " Jim ", hvis du gerne vil. men du skal beholde navnet konsekvent: Public Sub TestErrorHandler () On Error GoTo ErrorHandlerError_Exit : Exit SubErrorHandler : End SubThe line " On Error GoTo ErrorHandler " dirigerer sub at lede efter en fejlbehandleren bør en fejl opstår, når det er running.The linje " Error_Exit " udgange dig ud af Sub siden line " Exit Sub " er blevet tilføjet umiddelbart under det.Den linie " ErrorHandler : " er, hvor specifikke fejl vil blive håndteret
3
. nu tilføje følgende to linjer kode direkte under " ErrorHandler " : Vælg Case Err.NumberEnd SelectWe bruger en Select Case erklæring til at håndtere de eventuelle specifikke fejl , som vi måske ønsker at beskæftige sig med
4
. underrette brugeren at en fejl er fundet sted, og give dem nogle supplerende oplysninger. Vi vil gøre , at i vores Select Case hjælp "Case Else ". I dette eksempel vil vi holde det simpelt ved at meddele brugeren om, at en fejl er opstået , og hvad fejlen nummer er , samt en kort beskrivelse. Tilføj følgende linjer kode til din " ErrorHandler " : Case Else pstrErrorMessage = "Fejl nummer : " & Err.Number _ & vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , "Fejl" Genoptag Error_ExitThe hele Sub skulle nu se sådan ud: Public Sub TestErrorHandler () On Error GoTo ErrorHandlerError_Exit : Exit SubErrorHandler : Dim pstrErrorMessage As String Select Case Err.Number Case Else pstrErrorMessage = "Fejl nummer : " & Err.Number _ & vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , "Fejl" Genoptag Error_Exit End SelectEnd Sub
5
Den virkelige fordel af at have en fejlbehandleren på plads, er, at du kan håndtere de forventede fejl i en elegant måde. For eksempel, hvis du beslutter dig for at skrive en Sub rutine, som vil flytte en fil (er ) fra en mappe til en anden , men forventer, at den lejlighed, at på eller flere af filerne ikke vil eksistere , vil du sandsynligvis få en gentagen Fejlnummer 53, som er en fil ikke fundet Fejl . Du kan tilføje en linje til Select Case erklæring , der vil løse problemet , og derefter fortsætte med Sub Routine . Tilføj disse to linjer direkte under linjen "Select Case" : Case 53 Genoptag NextBy beskæftiger sig med den forventede File ikke fundet fejl på denne måde , kan du få den Sub Routine fortsætte med at køre uden at informere brugeren, hvad der er sket . Selvfølgelig, hvis du ønsker, at brugeren skal vide, at den angivne fil mangler , bør du tilføje en MsgBox herom. Hele Sub ser nu sådan ud ( screenshot forbundet med denne trin afspejler, hvordan koden skal se ud i VB programmering miljø ) : Offentlig Sub TestErrorHandler () On Error GoTo ErrorHandlerError_Exit : Exit SubErrorHandler : Dim pstrErrorMessage As String Select Case Err.Number Case 53 Resume Next Case Else pstrErrorMessage = "Fejl nummer : " & Err.Number _ & vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , "Fejl" Genoptag Error_Exit End SelectEnd Sub
< br >