Objet Error (DAO)

S’applique à : Access 2013, Office 2013

L'objet Error contient des détails sur les erreurs d'accès aux données, chacune d'entre elle appartenant à une opération simple impliquant DAO.

Remarques

Toute opération impliquant DAO peut générer une ou plusieurs erreurs. Par exemple, un appel à un serveur ODBC peut entraîner une erreur au niveau du serveur de base de données, d'ODBC, et de DAO. Lorsque chacun de ces types d'erreur se produit, un objet Error est placé dans la collection Errors de l'objet DBEngine. Un événement simple peut alors entraîner l'apparition de plusieurs objets Error dans la collection Errors.

Lorsqu'une opération DAO suivante génère une erreur, la collection Errors est effacée, et un ou plusieurs nouveaux objets Error sont placés dans la collection Errors. Les opérations DAO qui ne génèrent pas d'erreur n'ont aucun effet sur la collection Errors.

Le jeu d'objets Error de la collection Errors décrit une erreur. Le premier objet Error est l’erreur de niveau le plus bas (l’erreur d’origine), le second l’erreur de niveau supérieur suivant, et ainsi de suite. Par exemple, si une erreur ODBC se produit lors de la tentative d’ouverture d’un objet Recordset , le premier objet Error ( Errors(0) – contient l’erreur ODBC de niveau le plus bas ; les erreurs suivantes contiennent les erreurs ODBC retournées par les différentes couches d’ODBC. Dans ce cas, le gestionnaire de pilote ODBC, voire le pilote lui-même, renvoient des objets Error séparés. Le dernier objet Error , Errors.Count-1, contient l’erreur DAO indiquant que l’objet n’a pas pu être ouvert.

L'énumération des erreurs spécifiques dans la collection Errors permet à vos programmes de traitement des erreurs de déterminer plus précisément la cause et l'origine d'une erreur, et entreprend la procédure appropriée pour effectuer la récupération. Vous pouvez lire les propriétés de l'objet Error afin d'obtenir des détails spécifiques sur chaque erreur, notamment :

• La propriété Description, qui contient le texte de l'alerte d'erreur qui va être affichée à l'écran si l'erreur n'est pas interceptée.

• La propriété Number, qui contient la valeur d'entier long de la constante d'erreur.

• La propriété Source, qui identifie l'objet qui a généré l'erreur. Cela s'avère particulièrement utile lorsque la collection Errors contient plusoeurs objets Error suite à une demande auprès d'une source de données ODBC.

• Les propriétés HelpFile et HelpContext, qui indiquent respectivement le fichier d'aide et la rubrique d'aide Microsoft Windows appropriés (le cas échéant) pour l'erreur.

  Remarque

  [!REMARQUE] Lors de la programmation dans Microsoft Visual Basic pour Applications (VBA), si vous utilisez le mot clé New pour créer un objet qui entraîne consécutivement une erreur avant que cet objet soit ajouté à une collection, la collection Errors de l'objet DBEngine ne contient pas d'entrée pour l'erreur de cet objet, car le nouvel objet est associé à l'objet DBEngine. Cependant, les informations d'erreur sont disponibles dans l'objet VBA Err. Le code de traitement des erreurs VBA doit examiner la collection Errors chaque fois que vous anticipez une erreur d'accès aux données.

  Si vous écrivez un gestionnaire d'erreur centralisé, testez l'objet VBA Err pour déterminer si les informations d'erreur dans la collection Errors sont valides. Si la propriété Number du dernier élément de la collection Errors (DBEngine.Errors.Count - 1) et la valeur de l’objet Err correspondent, vous pouvez utiliser une série d’instructions Select Case pour identifier la ou les erreurs DAO spécifiques qui se sont produites. Si elles ne correspondent pas, utilisez la méthode Refresh dans la collection Errors.

Exemple

Cet exemple force une erreur, la capture et affiche les propriétés Description, Number, Source, HelpContext et HelpFile de l'objet Error qui en résulte.

Sub DescriptionX() 
 
   Dim dbsTest As Database 
 
   On Error GoTo ErrorHandler 
 
   ' Intentionally trigger an error. 
   Set dbsTest = OpenDatabase("NoDatabase") 
 
   Exit Sub 
 
ErrorHandler: 
   Dim strError As String 
   Dim errLoop As Error 
 
   ' Enumerate Errors collection and display properties of  
   ' each Error object. 
   For Each errLoop In Errors 
      With errLoop 
         strError = _ 
            "Error #" & .Number & vbCr 
         strError = strError & _ 
            "  " & .Description & vbCr 
         strError = strError & _ 
            "  (Source: " & .Source & ")" & vbCr 
         strError = strError & _ 
            "Press F1 to see topic " & .HelpContext & vbCr 
         strError = strError & _ 
            "  in the file " & .HelpFile & "." 
      End With 
      MsgBox strError 
   Next 
 
   Resume Next 
 
End Sub