Passer d'un textbox à l'autre

[denis]

bonsoir à tous

Cimment faire pour obliger l'utilisateur d'un user à renseigner toutes les textbox et les combobox
merci pour les réponses
salutations
@+denis

 

[G'Claire]

@Denis, le Forum

J'utilise deux moyen (dont un que j'ai trouvé il y a quelques temps sur le forum et j'en remerci l'auteur @Thierry), pour obliger la saisie de tous les controls textBox et ComboBox, ou par controle.

Le premier oblige la saisie pour tous les controls avec le focus sur le control vide (Par @ Thierry) :

Dim CTRL As Control
For Each CTRL In Me.Controls
If CTRL = "" Then MsgBox "Donnée Incomplete", vbCritical, "ATTENTION CTRL.SetFocus: Exit Sub
Next CTRL

Le second est sélectif, par TextBox ou ComboBox avec le focus sur le controle vide

If Nom de ComboBox= "" Then
MsgBox "Le message ", vbCritical, "ATTENTION"
Le nom du ComboBox.SetFocus
Exit Sub
End If


If Nom du TextBox= "" Then
MsgBox "Message ", vbCritical, "ATTENTION"
Nom du TextBox.SetFocus
Exit Sub
End If

Voila, salut G'Claire

 

[denis]

bonsoir à tous

Super, merci G'Claire
@+denis

 

[scorpion1611]

Il existe aussi la version INPUTBOX qui est intéressante.

If Nom du TextBox.Value = "" Then
Message = "votre message"
Nom du TextBox = InputBox(Message, Title)
End If

 

[denis]

Bonjour à tous

merci G'Claire & scorpion1611

ça marche super, mais pour donner un ordre de passage par exemple textbox1, textbox5, textbox2 ect... le problème: c'est des élèves qui utilise mon fichier et pour èviter les gourdes!!!! je donne un ordre de passage, s'y il renseigne le textbox1 et pas le textbox5 il et bloqué.
merci pour l'aide
salutations
@+denis

 

[LaurentTBT]

Bonsoir à tous.

Je mettrais ces code:

Private Sub TextBox5_Enter()
If TextBox1 = "" Then
MsgBox "La saisie du TextBox1 est obligatoire"
TextBox1.SetFocus
End If
End Sub

Puis

Private Sub TextBox2_Enter()
If TextBox1 = "" Then
MsgBox "La saisie du TextBox1 est obligatoire"
TextBox1.SetFocus
Else if Textbox5="" then
MsgBox "La saisie du TextBox5 est obligatoire"
TextBox5.SetFocus
end if
End Sub

et etc...

Là, il ne peut même pas entrer sur le 5 si le 1 n'est pas saisi, et il est automatiquement renvoyé vers le 1.
De même, il ne peut pas entrer sur le 2 si le 1 où le 5 ne sont pas saisis.

Seul bémol, si un vicieux rentre tout dans l'ordre, puis revient sur le 1 pour tout effacer... Alors il faut re-tester la totalité, par exemple à partir du bouton qui valide toutes les saisies.

Bonne soirée.
Laurent.