Πώς να δημιουργήσετε ένα πρόγραμμα χειρισμού σφαλμάτων για ένα πρόγραμμα VB

Εάν προσπαθείτε να πάρετε περισσότερες των έργων MS Access σας , ή είστε αρχίζουν να προγραμματίσετε σε Visual Basic , με ένα πρόγραμμα χειρισμού σφαλμάτων σε Subs και λειτουργίες σας μπορεί να σώσει τον τελικό χρήστη ένα σας πολλή θλίψη . Εδώ είναι ένας απλός τρόπος για να προσθέσετε ένα πρόγραμμα χειρισμού σφαλμάτων στον κώδικά σας που θα σας επιτρέψει να ασχοληθεί με τα λάθη που έρχονται και στη συνέχεια να προσαρμόσει την απάντηση στο συγκεκριμένο σφάλμα . Τα πράγματα που θα χρειαστείτε
Visual Basic 6 ή ένα ανοιχτό παράθυρο κώδικα σε MS Access 2003 ή παλαιότερη μονάδα

Παρουσίαση Περισσότερες οδηγίες
Η

1 Ανοίξτε ένα παράθυρο κώδικα είτε σε VB6 ή μια μονάδα MS Access και να δημιουργήσετε ένα νέο Sub ρουτίνας που ονομάζεται TestErrorHandler . Σε αυτό το σημείο θα υπάρχει κωδικός στο Υπό που θα μοιάζει με αυτό : Public Sub TestErrorHandler ( ) End Sub 2

Προσθέστε τις παρακάτω γραμμές στο Sub ρουτίνας ? Δεν πληκτρολογήσετε τον Public Sub και End Sub και πάλι γραμμές . Είναι σημαντικό να βεβαιωθείτε ότι έχετε προσθέσει μια άνω και κάτω τελεία μετά τη γραμμή " Error_Exit " και τον "χειριστή λαθών ". Επιπλέον , η γραμμή " χειριστή λαθών " πρέπει να πληκτρολογηθεί ακριβώς όπως έχει δηλωθεί στη γραμμή " On Error GoTo ErrorHandler . " Μπορείτε να ονομάσετε χειρισμού σφαλμάτων σας " Jim" αν θέλετε . αλλά θα πρέπει να κρατήσει το όνομα συνεπής : Public Sub TestErrorHandler ( ) On Error GoTo ErrorHandlerError_Exit : Έξοδος SubErrorHandler : Τέλος της γραμμής SubThe " On Error GoTo χειριστή λαθών " κατευθύνει το υποβρύχιο για να ψάξουν για ένα πρόγραμμα χειρισμού σφαλμάτων θα πρέπει να προκύψει ένα σφάλμα όταν είναι running.The γραμμή " Error_Exit " θα βγαίνει έξω από το Υπο αφού έχει προστεθεί αμέσως κάτω γραμμή it.The η γραμμή "Exit Sub " " χειριστής λαθών : " εκεί είναι που θα πρέπει να αντιμετωπίζονται συγκεκριμένα λάθη
εικόνων 3

. τώρα προσθέστε τις ακόλουθες δύο γραμμές κώδικα ακριβώς κάτω από τον "χειριστή λαθών " : Select Case Err.NumberEnd SelectWe χρησιμοποιείτε μια πρόταση Select Case για να χειριστεί τα συγκεκριμένα λάθη που θα μπορούσαμε να θέλουμε να αντιμετωπίσουμε με τη
4

. Ειδοποιήστε τον χρήστη που έχει λάβει χώρα ένα σφάλμα και να τους δώσει κάποιες πρόσθετες πληροφορίες . Εμείς θα κάνουμε ότι Επέλεξε μας υπόθεση χρήση "Case Else ». Για αυτό το παράδειγμα , θα το κρατήσουμε απλό από την ειδοποίηση του χρήστη ότι έχει συμβεί ένα λάθος και τι είναι ο αριθμός σφάλματος είναι , καθώς και μια σύντομη περιγραφή . Προσθέστε τις ακόλουθες γραμμές κώδικα στον "χειριστή λαθών " σας : Case Else pstrErrorMessage = " Αριθμός σφάλματος : " & _ & Err.Number vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , " Σφάλμα " Συνέχιση Error_ExitThe ολόκληρο Sub θα πρέπει τώρα να μοιάζει κάπως έτσι : TestErrorHandler Public Sub ( ) On Error GoTo ErrorHandlerError_Exit : Έξοδος SubErrorHandler : Dim pstrErrorMessage Όπως String Select Case Err.Number Case Else pstrErrorMessage = " Αριθμός σφάλματος : " & _ & Err.Number vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , " Σφάλμα " Συνέχιση Error_Exit End Sub SelectEnd
5

το πραγματικό πλεονέκτημα της ύπαρξης ενός χειρισμού σφαλμάτων στη θέση του είναι ότι μπορείτε να ασχοληθεί με αναμενόμενα σφάλματα σε ένα κομψό τρόπο . Για παράδειγμα , αν αποφασίσετε να γράψετε ένα Sub ρουτίνας που θα μετακινήσετε ένα αρχείο (α) από ένα φάκελο σε άλλο, αλλά προβλέπουν ότι σε περίπτωση που ή περισσότερα από τα αρχεία δεν θα υπάρχουν , θα πάρετε πιθανώς μια επαναλαμβανόμενη Αρ.Σφάλματος 53 , το οποίο είναι ένα αρχείο δεν εντοπίστηκε λάθος . Μπορείτε να προσθέσετε μια γραμμή στην πρόταση Select Case που θα επιλύσετε αυτό το σφάλμα και στη συνέχεια να συνεχίσει με το Sub ρουτίνας . Προσθέστε αυτές τις δύο γραμμές ακριβώς κάτω από τη γραμμή " Select Case » : υπόθεση 53 Συνέχιση NextBy που ασχολούνται με την αναμενόμενη αρχείο δεν βρέθηκε σφάλμα με αυτό τον τρόπο , μπορείτε να έχετε το Υπο ρουτίνας συνεχίσει να λειτουργεί χωρίς να ενημερώσει το χρήστη για το τι έχει συμβεί . Προφανώς , αν θέλετε ο χρήστης να γνωρίζει ότι το αρχείο που καθορίζεται λείπει , θα πρέπει να προσθέσετε ένα MsgBox για το σκοπό αυτό . Το σύνολο του Υπο μοιάζει τώρα με αυτό ( το screenshot που σχετίζονται με αυτό το βήμα αντανακλά το πώς ο κώδικας θα πρέπει να κοιτάξουμε στο περιβάλλον προγραμματισμού VB ) : Δημόσια TestErrorHandler Sub ( ) On Error GoTo ErrorHandlerError_Exit : Έξοδος SubErrorHandler : Dim pstrErrorMessage Όπως String Select Case Err.Number Case 53 Resume Next Case Else pstrErrorMessage = " Αριθμός σφάλματος : " & _ & Err.Number vbCrLf & Err.Description MsgBox pstrErrorMessage , vbExclamation , " Σφάλμα " Συνέχιση Error_Exit End Sub SelectEnd

Η