Discussion :

[adrien.gendre]

Bonjour j'ai mon code dans un formulaire qui relève la valeur de plusieurs champs et l'enregistre dans la table.
J'ai mi une gestion des erreurs au cas ou un des champs soit pas rempli et que visual basic passe en mode débeugage.

J'ai donc un :

Code :

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

1
2
3
4
5
6
7
On Error Goto ChampVide
 'Tout mon code
 'Et à la fin j'ai ceci :
 
Champvide:
MsgBox Err.Description & Chr(13) & "Vérifiez que tous vos champs soient remplis correctement", vbCritical, "Erreur de type " & Err.Number
   Exit Sub

Seulement il m'affiche le message même quand il n'y a pas d'erreur. Si quelqu'un sait pourquoi ... Merci
Cordialement
Adrien GENDRE

[loufab]

Bonjour,

Il faut sortir avant l'étiquette sinon il continu l'execution des lignes. Tu devrais regarder les exemples générés par ACCESS (bouton d'ouverture de formulaire par exemple).

Cordialement,

[adrien.gendre]

En fait j'ai fait

Code :

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

1
2
3
4
ChampVide:
If Err.Number <> 0 Then
         MsgBox Err.Description,,Err.number
End IF

Et sa marche nikel merci.
Adrien GENDRE

[loufab]

plus simple en faisant

Exit Sub
ou
Exit Function

avec le nom de l'étiquette.