VBA et positionnement dans un formulaire

Version imprimable

22/05/2007, 16h08
langelot222

VBA et positionnement dans un formulaire

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
22/05/2007, 16h13
Domi2

Bonjour,

Code:

Me.Preavis.SetFocus

Domi2

suite

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

Code:

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

solution de bourin

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:

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)

22/05/2007, 16h50
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:

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.
23/05/2007, 09h53
langelot222

Well done

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