Discussion :

[maxime350]

Bonsoir à tous !

J'ai un problème avec un test If dans un formulaire Access.

Je fais un test pour vérifier si un champ texte est rempli.
Si celui ci l'est, le code doit continuer sa route, sinon il doit s'arrêter et m'afficher un message.
Il détecte bien le champ vide, m'affiche le message d'avertissement mais continu ensuite d'exécuter le code.

Voici mon code:

Code :

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

1
2
3
4
If Me.txt_nclient = "" Then
MsgBox "Veuillez renseigner le nom du client", vbInformation + vbOKOnly, "Nom du client absent"
 
Else

Ma question est donc de savoir comment arrêter l'exécution du code à l'affichage de mon MsgBox ?

Merci,
Maxime

[rjamin]

Bonjour,

Ajouter Exit Sub à la suite du message dans le IF

Code :

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

1
2
3
4
5
6
IF condition THEN
Message
EXIT SUB
ELSE
Instructions
END IF

[BW7541]

Essaye d'insérer

Code :

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

Exit Sub

avant ton

Code :

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

 else

comme ci-dessous

Code :

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

1
2
3
4
If Me.txt_nclient = "" Then
MsgBox "Veuillez renseigner le nom du client", vbInformation + vbOKOnly, "Nom du client absent"
Exit sub
Else

[maxime350]

Merci les gars de votre réponse.
Mais en ajoutant

Code :

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

Exit Sub

avant le Else il continue d'exécuter mon code :/

[FreeAccess]

Bonjour,

Sur quel événement place-tu ton code de vérification

Sinon ceci fonctionne très bien (à placer sur l'événement 'Après MAJ' du contrôle à vérifier)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub txt_nclient_AfterUpdate()
'Vérifier que le champ de saisie ne soit pas vide
If (IsNull(txt_nclient) Or (txt_nclient = vbNullString)) Then
    MsgBox "Veuillez renseigner le nom du client", 48, "Nom du client absent"
    Me.txt_nclient.SetFocus
    Exit Sub
Else
.......suite du code
.......suite du code
End if
End Sub

...à voir

[maxime350]

Merci de votre aide, j'ai fini par trouver une solution:

Code :

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

1
2
3
4
If Me.txt_nclient = Null Then
MsgBox "Veuillez renseigner le nom du client", vbInformation + vbOKOnly, "Nom du client absent"
Exit sub
Else

Donc je rajoute bien le Exit Sub, mais je change les "" par Null et txt_nclient a prendre Null comme valeur sur une action précédente.
C'est pas optimal comme code, mais ça fonctionne.

Merci