Discussion :

[Mat08]

Bonjour,

voici ce qu'était mon problème : je voulais trouver un moyen de vérifier si un champ est vide dans mon formulaire et m'empêcher de quitter si c'était le cas.

J'ai trouvé dans la FAQ une solution de Philippe JOCHMANS que je remerci d'ailleurs.

La voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub TestCtrl()
Dim Ctrl As control
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
            If Ctrl.Value = "" Or IsNull(Ctrl.Value) Then
                MsgBox "Toutes les listes doivent avoir une information", vbOKOnly + vbExclamation, "Sélection"
                Ctrl.SetFocus
                Exit Sub
            End If
        End If
    Next Ctrl
End Sub

Cependant, je dois alors remplir TOUS les champs pour pouvoir quitter.
N'est-il pas possible de mettre des exceptions dans le code ?
Par exemple si je veux que la vérification porte sur tous les champs SAUF MonChamp1, MonChamp2 et MonChamp3.
Comment dois-je procéder ?

Merci d'avance pour vos réponses.

[keita]

bonsoir
Et comme ceci:

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
16
Sub TestCtrl()
Dim Ctrl As control
    For Each Ctrl In Me.Controls
        Select case Ctrl.name
            case in monChamp1, monChamp2, monchampn
            case else
               If TypeOf Ctrl Is TextBox Then
                 If Ctrl.Value = "" Or IsNull(Ctrl.Value) Then
                    MsgBox "Toutes les listes doivent avoir une information", vbOKOnly + vbExclamation, "Sélection"
                    Ctrl.SetFocus
                    Exit Sub
                 End If
               End If
       End select 
    Next Ctrl
End Sub

@+

[Mat08]

Bonjour, cela ne fonctionne pas...
J'ai déjà du modifier la ligne :

Code :

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

case in monChamp1, monChamp2, monchampn

par

Code :

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

case monChamp1, monChamp2, monchampn

(j'ai enlevé le "in").

Et quand je clique sur le bouton sur lequel est le code j'obtiens l'erreur d'exécution 94 : utilisation incorecte de Null.

[Invité]

Bonjour

En écrivant monChamp1 cela est pris comme une variable. Si c'est les noms des champs il faut les mettre entre guillemets (ou doubles quotes ").

Ta ligne deviendrait :

Code :

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

Case "monChamp1", "monChamp2", "monchamp3"

Philippe

[Mat08]

Bonjour,
effectivement en rajoutant les guillemets cela fonctionne très bien.

Merci à vous deux.