Om du försöker att få ut mer av din MS Access -projekt , eller du börjar program i Visual Basic , med ett felhanterare i dina Subs och funktioner kan spara slutanvändaren en mycket sorg . Här är ett enkelt sätt att lägga till ett felhanterare din kod som gör att du kan hantera fel när de kommer upp och sedan anpassa åtgärderna till den specifika felet . Saker du behöver Review, Visual Basic 6 eller en öppen kod fönster i en MS Access 2003 eller tidigare modul
Visa fler instruktioner
1
Öppna upp en kod fönster i antingen VB6 eller en MS Access-modulen och skapa en ny subrutin heter TestErrorHandler . Vid denna punkt blir det ingen kod i sub som ser ut så här : Public Sub TestErrorHandler ( ) End Sub
2
Lägg nedanstående rader till Sub rutin, inte skriva om Public Sub och End Sub linjer igen . Det är viktigt att se till att du lägger till ett kolon efter raden " Error_Exit " och " ErrorHandler . " Dessutom har raden " ErrorHandler " som ska skrivas exakt som det förklaras i raden " On Error GoTo ErrorHandler . " Du kan namnge din felhanterare " Jim " om du vill . men du måste hålla namnet konsekvent : Public Sub TestErrorHandler ( ) On Error GoTo ErrorHandlerError_Exit : Exit SubErrorHandler : Slut SubThe line " On Error GoTo ErrorHandler " styr sub att leta efter ett fel handler om ett fel uppstår när det är running.The linje " Error_Exit " lämnar dig ur Sub sedan raden " Exit Sub " har lagts till omedelbart under it.The linje " ErrorHandler : " är där specifika fel kommer att hanteras Addera 3
. nu lägga till följande två rader kod direkt under " ErrorHandler " : Select Case Err.NumberEnd SelectWe använder en Select Case uttalande att hantera några specifika fel som vi kanske vill hantera
4
. Meddela användaren om att ett fel har inträffat och ge dem lite extra information. Vi kommer att göra det i vårt Select Case med " Case Else . " För detta exempel kommer vi att hålla det enkelt genom att meddela användaren att ett fel har uppstått och vad felet numret är , liksom en kortfattad beskrivning . Lägg till följande rader med kod till din " ErrorHandler " : Case Else pstrErrorMessage = " Fel nummer: " & Err.Number _ & vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , " Error " Återuppta Error_ExitThe hela Sub nu bör se ut så här : Public Sub TestErrorHandler ( ) On Error GoTo ErrorHandlerError_Exit : Exit SubErrorHandler : Dim pstrErrorMessage As String Select Case Err.Number Case Else pstrErrorMessage = " Fel nummer: " & Err.Number _ & vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , " Error " återuppta Error_Exit End SelectEnd Sub
5
Den verkliga fördelen med att ha ett felhanterare på plats är att du kan hantera förväntade fel i ett elegant sätt . Till exempel , om du väljer att skriva en subrutin som kommer att flytta en fil ( er ) från en mapp till en annan men räknar med att på tillfälle att på eller flera av filerna inte kommer att existera , kommer du förmodligen få en upprepad Felnummer 53 , vilket är en fil hittades inte fel . Du kan lägga till en rad i Select Case uttalande som kommer att lösa problemet , och sedan fortsätta med den subrutin . Lägg till dessa två rader direkt under raden " Select Case " : Mål 53 Återuppta nextby hantera den förväntade File Not Found fel på detta sätt , kan du ha den subrutin fortsätta att köra utan att meddela användaren vad som hänt . Självklart , om du vill att användaren ska veta att den angivna filen saknas , bör du lägga till en MsgBox om detta . Hela Sub ser nu ut så här ( skärmdumpen i samband med detta steg speglar hur koden ska se ut i VB programmering miljö ) : Public Sub TestErrorHandler ( ) On Error GoTo ErrorHandlerError_Exit : Exit SubErrorHandler : Dim pstrErrorMessage As String Select Case Err.Number Case 53 Resume Next Case Else pstrErrorMessage = " Fel nummer: " & Err.Number _ & vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , " Error " Återuppta Error_Exit End SelectEnd Sub
