Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Form.Error, événement (Access)Form.Error Event (Access)

office 365 dev account|Dernière mise à jour: 17/04/2018
|
2 Collaborateurs

L’événement Error est déclenché lorsqu’une erreur d’exécution se produit dans Microsoft Access alors qu’un formulaire est activé.The Error event occurs when a run-time error is produced in Microsoft Access when a form has the focus.

SyntaxeSyntax

expression.expression.Error( ** DataErr, ** Response )Error( ** DataErr, ** Response )

expression Une variable qui représente un objet Form.expression A variable that represents a Form object.

ParamètresParameters

NomNameRequis/FacultatifRequired/OptionalType de donnéesData TypeDescriptionDescription
DataErrDataErrObligatoireRequiredIntegerIntegerCode d’erreur renvoyé par l’objet Err quand une erreur est générée.The error code returned by the Err object when an error occurs.Vous pouvez utiliser l’argument DataErr avec la fonction Error pour mapper le numéro au message d’erreur approprié.The error code returned by the Err object when an error occurs. You can use the DataErr argument with the Error function to map the number to the corresponding error message.
ResponseResponseObligatoireRequiredIntegerIntegerLa valeur de cet argument détermine si un message d’erreur s’affiche ou non. L’argument Response peut être l’une des constantes intrinsèques suivantes.The setting determines whether or not an error message is displayed. The Response argument can be one of the following intrinsic constants.
  • acDataErrContinue Ignore l’erreur et continue sans afficher le message d’erreur par défaut de Microsoft Access.acDataErrContinue Ignore the error and continue without displaying the default Microsoft Access error message. You can supply a custom error message in place of the default error message.

Vous pouvez fournir un message d’erreur personnalisé à la place du message d’erreur par défaut.acDataErrContinue Ignore the error and continue without displaying the default Microsoft Access error message. You can supply a custom error message in place of the default error message.

  • acDataErrDisplay (valeur par défaut) Affiche le message d’erreur par défaut de Microsoft Access.acDataErrDisplay (Default) Display the default Microsoft Access error message.

  • |

    RemarquesRemarks

    Cela inclut les erreurs du moteur de base de données Microsoft Access, mais pas les erreurs d’exécution de Visual Basic ou d’ADO.This includes Microsoft Access database engine errors, but not run-time errors in Visual Basic or errors from ADO.

    Pour exécuter une macro ou une procédure événementielle quand cet événement se produit, affectez le nom de la macro ou [Procédure événementielle] à la propriété OnError.To run a macro or event procedure when this event occurs, set the OnError property to the name of the macro or to [Event Procedure].

    L'exécution d'une procédure événementielle ou d'une macro associée à un événement Error vous permet d'intercepter un message d'erreur de Microsoft Access et de le remplacer par un message personnalisé mieux adapté à votre application.By running an event procedure or a macro when an Error event occurs, you can intercept a Microsoft Access error message and display a custom message that conveys a more specific meaning for your application.

    Lien fourni par :Icône de membre de la communauté la communauté UtterAccessLink provided by:Community Member Icon TheUtterAccess community

    ExempleExample

    L’exemple suivant indique comment vous pouvez remplacer un message d’erreur par défaut par un message d’erreur personnalisé.The following example shows how you can replace a default error message with a custom error message.Quand Microsoft Access renvoie un message d’erreur indiquant qu’il a détecté une clé en double (code d’erreur 3022), cette procédure événementielle affiche un message qui donne aux utilisateurs des informations plus spécifiques à l’application.The following example shows how you can replace a default error message with a custom error message. When Microsoft Access returns an error message indicating it has found a duplicate key (error code 3022), this event procedure displays a message that gives more application-specific information to users.

    Pour essayer cet exemple, ajoutez la procédure événementielle suivante à un formulaire qui est fondé sur une table dotée d'un numéro d'identification d'employé unique comme clé de chaque enregistrement.To try the example, add the following event procedure to a form that is based on a table with a unique employee ID number as the key for each record.

    Private Sub Form_Error(DataErr As Integer, Response As Integer) 
        Const conDuplicateKey = 3022 
        Dim strMsg As String 
    
        If DataErr = conDuplicateKey Then 
            Response = acDataErrContinue 
            strMsg = "Each employee record must have a unique " _ 
                &; "employee ID number. Please recheck your data." 
            MsgBox strMsg 
        End If 
    End Sub
    

    L’exemple suivant indique comment vous pouvez remplacer un message d’erreur par défaut par un message d’erreur personnalisé.The following example shows how you can replace a default error message with a custom error message.

    Exemple de code fourni par :Collaborateur MVP Bill Jelen,MrExcel.comSample code provided by:MVP Contributor Bill Jelen,MrExcel.com

    Private Sub Form_Error(DataErr As Integer, Response As Integer)
        Select Case DataErr
            Case 2113
                MsgBox "Only numbers are acceptable in this box", vbCritical, "Call 1-800-123-4567"
                Response = acDataErrContinue
            Case 2237
                MsgBox "You can only choose from the dropdown box"
                Response = acDataErrContinue
            Case 3022
                MsgBox "You entered a value that exists already in another record"
                Response = acDataErrContinue
                SSN.Value = SSN.OldValue
            Case 3314
                MsgBox "The DOH is required, so you cannot leave this field empty"
                Response = acDataErrContinue
            Case Else
                Response = acDataErrDisplay
        End Select
        ActiveControl.Undo
    End Sub
    

    À propos des contributeursAbout the Contributors

    UtterAccess est le premier forum d’aide et wiki de Microsoft Access.UtterAccess is the premier Microsoft Access wiki and help forum.

    Holy Macro! Books publie des livres divertissants pour les personnes qui utilisent Microsoft Office. Vous pouvez consulter le catalogue complet sur MrExcel.com.Holy Macro! Books publishes entertaining books for people who use Microsoft Office. See the complete catalog at MrExcel.com.

    Voir aussiSee also

    ConceptsConcepts

    Form, objetForm Object

    © 2018 Microsoft