Bonjour
Voici une petite astuce pour savoir si tous les contrôles d'un formulaire ont été renseignés
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
If TypeOf Ctrl Is ComboBox Then
par
If TypeOf Ctrl Is TextBox Then
Trés pratique quand vous avez pleins de contrôles sur votre formulaire.
Starec
Partager