Discussion :

[langelot222]

Bonjour
je voudrai positionner mon curseur dans un des champs de texte de mon formulaire. je m'explique, lorsqu'un utilisateur entre une valeur dans un champ ici Preavis et que cette valeur n'est pas bonne alors j'envoie un message d'erreur avec une message box et l'élément qui est selectionne apres que j'ai mi ma message box est un autre champ texte. comme faire pour faire revenir automatiquement la saisie dans le champs texte de Preavis

[Domi2]

Bonjour,

Code :

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

Me.Preavis.SetFocus

Domi2

[langelot222]

ça ne marche pas, voici le code de la procédure associé au champ

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub nPreavis_Exit(Cancel As Integer)
     If (nDureContrat.Value - nPreavis.Value >= 1) Then
        dDateLet.Value = DateAdd("m", -nPreavis.Value, dDateFin.Value)
    Else
        MsgBox ("Preavis trop grand par rapport à la durée du contrat")
        Me.nPreavis.SetFocus
        nPreavis.Value = 0
 
    End If
End Sub

[langelot222]

voici une solution de bourin mais elle est vraiment pas élégante, et vu que ce n'est pas pour moi j'aimerai faire plus joli :

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
17
18
 
Private Sub nPreavis_Exit(Cancel As Integer)
    Dim valeur As Integer
 
    If (nDureContrat.Value - nPreavis.Value >= 1) Then
        dDateLet.Value = DateAdd("m", -nPreavis.Value, dDateFin.Value)
    Else
        MsgBox ("Preavis trop grand par rapport à la durée du contrat")
        Me.nPreavis.SetFocus
ask:     valeur = InputBox("Entrez une valeur correcte :", "Préavis")
        While (nDureContrat.Value - valeur < 1)
            GoTo ask
        Wend
 
        nPreavis.Value = valeur
        dDateLet.Value = DateAdd("m", -nPreavis.Value, dDateFin.Value)
    End If
End Sub

si quelqu'un a mieux
(version office 2003)

[javelot69]

Bonjour,

Je crois que la solution est d'envoyer d'abord le focus sur un autre champ (l'idéal est un champ caché si tu en as un) puis de le renvoyer dans le champ souhaité.

Code :

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

1
2
Me.AutreChamp.SetFocus
Me.nPreavis.SetFocus

Cela se passe très vite et si on passe par un champ caché l'oeil ne voit rien.

Bonne journée.

[langelot222]

ça marche en selectionnant d'abord un autre champ et en remettant celui que l'on veut. merci beaucoup