[Fait]Comment savoir si les contrôles ont été remplies [FAQ]

[Philippe JOCHMANS]

Bonjour

Voici une petite astuce pour savoir si tous les contrôles d'un formulaire ont été renseignés

Code :

1
2
3
4
5
6
7
8
9
10
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is ComboBox 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

Ce code vous permet de savoir si toutes les combobox ont été renseignées, et cela vous place dans le premier combobox non renseigné.

Pour les texbox, il vous faut changer la ligne

Code :

If TypeOf Ctrl Is ComboBox Then

par

Code :

If TypeOf Ctrl Is TextBox Then

Trés pratique quand vous avez pleins de contrôles sur votre formulaire.

Starec