1 Κάντε κλικ στο " Εργαλεία βάσης δεδομένων , " τότε " Visual Basic" για να ανοίξετε το Microsoft Visual Basic. . Κάντε κλικ στο μενού "Εισαγωγή" , στη συνέχεια " Ενότητα " για να προσθέσετε μια νέα λειτουργική μονάδα κώδικα 2
Δημιουργήστε μια νέα διαδικασία ρουτίνας :
Private Sub createErrorMessage ( )
On Error GoTo Err_createErrorMessage :
3
Δημιουργήστε μια μεταβλητή συμβολοσειράς που θα χρησιμοποιήσετε για να δημιουργήσετε ένα σφάλμα:
Dim mydata Όπως String
mydata = " 1234567 "
Η 4
Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσει ένα σφάλμα με την προσθήκη " -1 " για την ιδιότητα μήκους της «Αριστεράς» λειτουργία :
mydata = Left ( 0 , -1 )
5
Πληκτρολογήστε τον ακόλουθο κώδικα για να συλλάβει το σφάλμα και να δημιουργήσετε ένα μήνυμα λάθους που τους ενημερώνει το χρήστη για το σφάλμα :
Exit_createErrorMessage :
Exit Sub
Err_createErrorMessage :
MsgBox " Σφάλμα : . μήκος πρέπει να είναι μεγαλύτερη από το μηδέν " , vbCritical
End Sub
Η
6 Πατήστε το πλήκτρο " F5 " για να τρέξει το επιμέρους διαδικασία και να δείτε την απάντηση .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα