probleme de sortie boucle LOOP

Bonjour voilà j ai un formulaire avec un bouton.
Quand je selectionne ce bouton j aimerai qu un controle soit vérifié à savoir est il vide ou pas?
J ai alors un probleme puisque je teste bien si le controle est vide ou pas par contre le messagebox suite au fait qu il est vide ne disparait pas.Meme si je clique OK dessus.
voici le code

Code:

---

1 2 3 4 5 6 7

If MsgBox("Voulez vous sauvegarder ces nouvelles Références ?", vbYesNo, "INFORMATION") = vbYes Then   Do MsgBox "Sélectionner une station!", vbOKOnly, "INFORMATION" Loop Until IsNull(Me!liste1) = False

---

En fait j aimerai pouvoir avoir apres vérification et alerte la main sur ce controle pour pouvoir lui mettre une valeur et ne pas le laisser vide.
Merci

Citation:

---

Envoyé par adelsunwind

Bonjour voilà j ai un formulaire avec un bouton.
Quand je selectionne ce bouton j aimerai qu un controle soit vérifié à savoir est il vide ou pas?
J ai alors un probleme puisque je teste bien si le controle est vide ou pas par contre le messagebox suite au fait qu il est vide ne disparait pas.Meme si je clique OK dessus.
voici le code

Code:

---

1 2 3 4 5 6 7

If MsgBox("Voulez vous sauvegarder ces nouvelles Références ?", vbYesNo, "INFORMATION") = vbYes Then   Do MsgBox "Sélectionner une station!", vbOKOnly, "INFORMATION" Loop Until IsNull(Me!liste1) = False

---

En fait j aimerai pouvoir avoir apres vérification et alerte la main sur ce controle pour pouvoir lui mettre une valeur et ne pas le laisser vide.
Merci

---

Tu peux faire par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If Nz(Me!liste1) = "" then   MsgBox "Veuillez sélectionner une station.", vbOKOnly, "INFORMATION" Me!liste1.setFocus() 'on rend le focus au contrôle   else   If MsgBox("Voulez vous sauvegarder ces nouvelles Références ?", vbYesNo, "INFORMATION") = vbYes Then   'traitement de sauvegarde   end if end if

---

Merci ca marche nikel.