Επιστρέφει Variant, του δευτερεύοντος τύπου Error, που περιέχει αριθμό σφάλματος ορισμένου από το χρήστη.

Σύνταξη

CVErr(αριθμός_σφάλματος)

Το απαιτούμενο όρισμα αριθμός_σφάλματος είναι κάθε έγκυρος αριθμός σφάλματος.

Παρατηρήσεις

Χρησιμοποιήστε τη συνάρτηση CVErr για να προκαλέσετε σφάλματα οριζόμενα από τον χρήστη σε διαδικασίες που δημιουργούνται από το χρήστη. Για παράδειγμα, εάν δημιουργήσετε μια συνάρτηση η οποία δέχεται διάφορα ορίσματα και κανονικά επιστρέφει μια συμβολοσειρά, η συνάρτηση μπορεί να υπολογίσει τα ορίσματα εισόδου για να εξασφαλίσει ότι είναι μέσα στο αποδεκτό διάστημα. Εάν αυτό δεν ισχύει, είναι πιθανό ότι η συνάρτησή σας δεν θα επιστρέψει ό,τι περιμένετε. Σε αυτή την περίπτωση, η CVErr σας δίνει τη δυνατότητα να επιστρέψετε αριθμό σφάλματος που σας υποδεικνύει πώς να ενεργήσετε.

Σημειώστε ότι δεν είναι δυνατή η άδηλη μετατροπή ενός Error. Για παράδειγμα, δεν μπορείτε να εκχωρήσετε άμεσα την επιστρεφόμενη τιμή της συνάρτησης CVErr σε μεταβλητή η οποία δεν είναι Variant. Ωστόσο, μπορείτε να πραγματοποιήσετε ρητή μετατροπή της τιμής που επιστρέφεται από την συνάρτηση CVErr (χρησιμοποιώντας τις συναρτήσεις CInt, CDbl, κ.ο.κ.) και να εκχωρήσετε την τιμή σε μεταβλητή του κατάλληλου τύπου δεδομένων.

Στο παράδειγμα αυτό χρησιμοποιείται η συνάρτηση CVErr ώστε να επιστραφεί Variant (πολυμεταβλητή) για την οποία η τιμή της VarType είναι vbError (10). Η οριζόμενη από το χρήστη συνάρτηση Υπολογισμός_ΠραγματικούΔΔ επιστρέφει σφάλμα εάν το όρισμα που μεταβιβάζεται σε αυτή δεν είναι αριθμός. Μπορείτε να χρησιμοποιήσετε τη συνάρτηση CVErr για την επιστροφή σφαλμάτων οριζόμενων από το χρήστη από διαδικασίες οριζόμενες από το χρήστη, ή για την αναστολή του χειρισμού ενός σφάλματος κατά την εκτέλεση. Χρησιμοποιήστε τη συνάρτηση IsError για τον έλεγχο του κατά πόσον η τιμή αντιπροσωπεύει σφάλμα.

' Κλήση της Υπολογισμός_ΠραγματικούΔΔ με όρισμα που προκαλεί σφάλμα.
Sub Δοκιμή()
 Debug.Print Υπολογισμός_ΠραγματικούΔΔ("345.45θωμάς")
End Sub
' Ορισμός της διαδικασίας της συνάρτησης Υπολογισμός_ΠραγματικούΔΔ.
Function Υπολογισμός_ΠραγματικούΔΔ(Αριθμός)
 If IsNumeric(Αριθμός) Then
  Υπολογισμός_ΠραγματικούΔΔ = Αριθμός * 2 ' Επιστροφή αποτελέσματος.
 Else
  Υπολογισμός_ΠραγματικούΔΔ = CVErr(2001) ' Επιστροφή αριθμού σφάλματος οριζόμενου

End If ' από το χρήστη.
End Function