החזרת משתנה של שגיאת סוג משנה המכילה ערך מספר שגיאה על-ידי המשתמש.
תחביר
CVErr ( errornumber )
מספר השגיאה הנדרשארגומנט כל מספר שגיאה חוקי.
הערות
השתמש בפונקציה CVErr כדי ליצור שגיאות המוגדרות על-ידי המשתמש בהליכים שנוצרו על-ידי המשתמש. לדוגמה, אם אתה יוצר פונקציה המקבלת כמה ארגומנטים ומחזירה בדרך כלל מחרוזת, באפשרותך לקבוע שהפונקציה תעריך את ארגומנטי הקלט כדי לוודא שהם נמצאים בטווח המקובל. אם לא, ייתכן שהפונקציה לא תחזיר את מה שאתה מצפה. במקרה זה, CVErr מאפשר לך להחזיר מספר שגיאה שמסביר לך איזו פעולה עליך לבצע.
שים לב כי המרה משתמעת של שגיאה אינה מותרת. לדוגמה, לא ניתן להקצות ישירות את הערך המוחזר של CVErrמשתנה שאינו משתנה. עם זאת, באפשרותך לבצע המרה מפורשת (באמצעות CInt, CDbl וכן הלאה) של הערך המוחזר על-ידי CVErr ולהקצות אותו למשתנה של הערך סוג נתונים.
דוגמה
הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
דוגמה זו משתמשת בפונקציה CVErr כדי להחזיר משתנה ש- VarType שלוהוא vbError (10). הפונקציה המוגדרת על- CalculateDouble מחזירה שגיאה אם הארגומנט שהועבר אליה אינו מספר. באפשרותך להשתמש ב - CVErr כדי להחזיר שגיאות המוגדרות על-ידי המשתמש מהליכים המוגדרים על-ידי המשתמש או כדי לדחות את הטיפול של שגיאת זמן ריצה. השתמש בפונקציה IsError כדי לבדוק אם הערך מייצג שגיאה.
' Call CalculateDouble with an error-producing argument.
Sub Test()
Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
If IsNumeric(Number) Then
CalculateDouble = Number * 2 ' Return result.
Else
CalculateDouble = CVErr(2001) ' Return a user-defined error
End If ' number.
End Function
