Discussion :

[byrdo]

Bonjour,

Je souhaiterais changer le contenu d'une box lors de l'apparition d'un message d'erreur.

J'ai trouvé ce sujet récent :
http://www.developpez.net/forums/sho...age+d%27erreur

J'ai essayé de l'appliquer, avec le code 3314 (code qui correspond à l'erreur "le champ "machin" ne peut pas contenir une valeur Null car la valeur de la propriété Required etc"

Mais malgré ça, le message erreur système tel que je viens de le citer apparait toujours, et ma box avec le contenu que je lui affecte ne s'affiche pas.

Quelqu'un pourrait me guider?

J'ai peut-être sauté une étape.

[mout1234]

Bonjour,

A première vue, cela devrait fonctionner.

Donne le code tel que tu l'as écris dans Form_Error stp.

[byrdo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Error(DataErr As Integer, Response As Integer)
 
    Select Case DataErr
        Case 3314
            Call MsgBox("La valeur saisie est NULL!" _
                        & vbCrLf & "Saisissez un numero de site conforme." _
                        , vbExclamation, "Erreur de saisie....")
            ' dévalidation du message système
            Response = 0
    End Select
 
   On Error GoTo 0
   Exit Sub
 
End Sub

[Philippe PONS]

Il faut vérifier si le code s'exécute bien quand l'erreur est détectée.
Pour cela, il faut te débrouiler pour être dans une situation d'erreur, mettre un point d'arrêt sur la ligne Private Sub Form_Error(DataErr As Integer, Response As Integer), puis exécuter le code en mode pas à pas(F8), et vérifier que l'erreur 3314 est bien générée(debug.print DataErr), et que dans ce cas le msgbox est bien affiché.

[mout1234]

A première vue ton code devrait fonctionner...

Il faut vérifier si le code s'exécute bien quand l'erreur est détectée.
Pour cela, il faut te débrouiler pour être dans une situation d'erreur, mettre un point d'arrêt sur la ligne Private Sub Form_Error(DataErr As Integer, Response As Integer), puis exécuter le code en mode pas à pas(F8), et vérifier que l'erreur 3314 est bien générée(debug.print DataErr), et que dans ce cas le msgbox est bien affiché.

+1

[byrdo]

Il faut vérifier si le code s'exécute bien quand l'erreur est détectée.
Pour cela, il faut te débrouiler pour être dans une situation d'erreur, mettre un point d'arrêt sur la ligne Private Sub Form_Error(DataErr As Integer, Response As Integer), puis exécuter le code en mode pas à pas(F8), et vérifier que l'erreur 3314 est bien générée(debug.print DataErr), et que dans ce cas le msgbox est bien affiché.

Je suis entièrement disposé à suivre les indications, mais il me faudrait plus de détails, car je suis débutant en VBA, donc me préciser quoi rajouter (comme le "debug.print DataErr")et où pourrait être un plus non négligeable.

Pour le code de l'erreur, en fait quand la box d'erreur apparaît, je clique sur "Aide", et c'est le code erreur qui m'est donné.