Discussion :

[picatchou]

Bonjour, j'utilise afin d'empêcher les utilisateurs de saisir un champ2 avant un champ1 la procédure suivante:

Code :

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

1
2
3
Private Sub Champ1_AfterUpdate(Cancel As Integer)
Me.Champ2.Enabled = Len(Nz(Me.Champ1, "")) > 0
End Sub

Par ailleurs, j'ai dû mettre dans le formulaire la procédure suivante

Code :

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

1
2
3
Private Sub Form_Current()
Me.Champ2.Enabled = Len(Nz(Me.Champ1, "")) > 0
End Sub

Mais voilà, dans la pratique, lorsque j'ai fini de rentrer mon champ1 et que je fais Enter, le champ2 est bien activé mais le curseur ne tombe pas sur le champ2 mais sur le champ3 par exemple. Il faut donc recliquer sur le champ2 pour pouvoir le saisir ce qui n'est pas top!
Pourtant , l'ordre de tabultation est bien Champ1/Champ2/Champ3.

Par ailleurs, j'ai essayé différentes choses pour le code du champ1: après MAJ, sur sortie, sur entrée, sur perte focus...mais je n'ai pas le résultat voulu!

Avez-vous une solution?
Merci d'avance.

[Invité]

Tiens ce code me dis quelque chose

As-tu vérifier l'ordre de tabulation de tes controles dans ton formulaire ?

Sinon tu as la possibilité de faire :

Code :

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

1
2
3
4
5
6
Private Sub Champ1_AfterUpdate(Cancel As Integer)
If Len(Nz(Me.Champ1, "")) > 0 Then
  Me.Champ2.Enabled = True
  Me.Champ2.SetFocus()
Endif
End Sub

Voilà

[picatchou]

Ca marche! Merci beaucoup! Au fait, je vois que tu es passé de membre confirmé à éclairé! Félicitations pour ton nouveau statut (acquis un peu grâce à moi