Applies ToAccess pour Microsoft 365 Access 2021 Access 2019 Access 2016

Retourne un Variant de sous-type Error contenant un numéro d’erreur spécifié par l’utilisateur.

Syntaxe

CVErr ( errornumber )

Le numéro d’erreur requisargument est n’importe quel numéro d’erreur valide.

Notes

Utilisez la fonction CVErr pour créer des erreurs définies par l’utilisateur dans les procédures créées par l’utilisateur. Par exemple, si vous créez une fonction qui accepte plusieurs arguments et retourne normalement une chaîne, vous pouvez demander à votre fonction d’évaluer les arguments d’entrée pour vous assurer qu’ils se trouvent dans la plage acceptable. Si ce n’est pas le cas, il est probable que votre fonction ne retournera pas ce que vous attendez. Dans ce cas, CVErr vous permet de retourner un numéro d’erreur qui vous indique l’action à entreprendre.

Notez que la conversion implicite d’une erreur n’est pas autorisée. Par exemple, vous ne pouvez pas affecter directement la valeur de retour de CVErr à un variable qui n’est pas un Variant. Toutefois, vous pouvez effectuer une conversion explicite (à l’aide de CInt, CDbl, etc.) de la valeur retournée par CVErr et l’affecter à une variable de la type de données appropriée.

Exemple

Remarque : Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.

Cet exemple utilise la fonction CVErr pour retourner un variant dont VarType est vbError (10). La fonction définie par l’utilisateur CalculateDouble retourne une erreur si l’argument qui lui a été transmis n’est pas un nombre. Vous pouvez utiliser CVErr pour renvoyer les erreurs définies par l’utilisateur à partir de procédures définies par l’utilisateur ou pour différer la gestion d’une erreur d’exécution. Utilisez la fonction IsError pour tester si la valeur représente une erreur.

' 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

Besoin d’aide ?

Vous voulez plus d’options ?

Explorez les avantages de l’abonnement, parcourez les cours de formation, découvrez comment sécuriser votre appareil, etc.

Les communautés vous permettent de poser des questions et d'y répondre, de donner vos commentaires et de bénéficier de l'avis d'experts aux connaissances approfondies.