Méthode Application.AccessError (Access)

Utilisez la méthode AccessError pour renvoyer la chaîne descriptive associée à une erreur DAO (Microsoft Access ou Data Access Objects).

Syntaxe

expression. AccessError (ErrorNumber)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
ErrorNumber	Obligatoire	Variant	Numéro de l'erreur pour laquelle vous voulez renvoyer une chaîne descriptive.

Valeur renvoyée

Variant

Remarques

Utilisez la méthode AccessError pour renvoyer la chaîne descriptive associée à une erreur Microsoft Access ou DAO lorsque l’erreur ne s’est pas réellement produite, mais vous ne pouvez pas l’utiliser pour les erreurs ADO.

Utilisez la méthode Visual Basic Raise pour déclencher une erreur Visual Basic. Une fois que vous avez déclenché l’erreur, vous pouvez déterminer la chaîne descriptive associée en lisant la propriété Description de l’objet Err .

Vous ne pouvez pas utiliser la méthode Raise pour déclencher une erreur DAO ou Microsoft Access. Toutefois, vous pouvez utiliser la méthode AccessError pour renvoyer la chaîne descriptive associée à ces erreurs, sans avoir à générer l'erreur.

Utilisez la méthode AccessError pour renvoyer une chaîne descriptive à partir de l’événement Error d’un formulaire.

Si l'erreur Microsoft Access s'est produite, vous pouvez renvoyer la chaîne descriptive à l'aide de la méthode AccessError ou la propriété Description de l'objet Visual Basic Err.

Exemple

La fonction suivante retourne une chaîne d’erreur pour tout numéro d’erreur valide.

Remarque

Pour que le code s’exécute dans l’IDE VBA, vos options d’interception des erreurs doivent être définies sur Arrêter sur les erreurs non gérées . Vous pouvez définir cette option sous l’onglet Général de la boîte de dialogue Options du menu Outils VBA.

Function ErrorString(ByVal lngError As Long) As String 
 
 Const conAppError = "Application-defined or " & _ 
 "object-defined error" 
 
 On Error Resume Next 
 Err.Raise lngError 
 
 If Err.Description = conAppError Then 
 ErrorString = AccessError(lngError) 
 ElseIf Err.Description = vbNullString Then 
 MsgBox "No error string associated with this number." 
 Else 
 ErrorString = Err.Description 
 End If 
 
End Function

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.