Discussion :

[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 :

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

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

[Demco]

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 :

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

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 :

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

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

[adelsunwind]

Merci ca marche nikel.