Discussion :

[fredoh]

Bonjour


j'ai deux contrôles sur un formulaire, liée a une table. Dans le premier je test, par VBA et dans l'évènement AfterUpdate() ou Exit() , si la valeur saisie est valide. Si elle ne l'est pas je voudrais annuler la valeur saisie et retourner dans le premier contrôle.
J'arrive a annuler cette valeur (avec me.undo), mais je ne parviens pas a retourner dans le premier contrôle, j'ai testé .setfocus et docmd.gotocontrol


merci de votre aide.

[Heureux-oli]

Si tu pouvais nous mettre ton code, ce serait plus pratique !

Normalement, c'est avec un setfocus que l'on retourne sur un contrôle.

[fredoh]

ok merci de ton aide.

voici le code. Disons que la valeur invalide pourrait être la saisie de la chaine "test".

J'ai "quoté" le DoCmd dans cet exemple, mais je l'ai également testé

Code :

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

1
2
3
4
5
6
7
 
Private Sub Ctrl1_Exit(Cancel As Integer)
If Me!Ctrl1 = "test" Then
    Me![Ctrl1].SetFocus
    'DoCmd.GoToControl "Ctrl1"
End If
End Sub

j'ai mis le fichier .mdb en ligne ici :
http://fredoh91.free.fr/Access/TestSortie.mdb

[fredoh]

J'ai réussi a forcer le retour dans le contrôle contenant la valeur invalide (Ctrl1).
Pour cela, j'ai déjà placé le focus sur le contrôle Ctrl2 puis je replace le focus sur le Ctrl1.

Code :

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

1
2
3
4
5
6
Private Sub Ctrl1_Exit(Cancel As Integer)
If Me!Ctrl1 = "test" Then
    Me![Ctrl2].SetFocus
    Me![Ctrl1].SetFocus
End If
End Sub

[Heureux-oli]

J'ai regarde ce que tu as mis dans le post, mais effectivement, comme tu le fait ça marche, car on ne peut donner le focus à un contrôle qui le possède.

Le fait de basculer le focus sur un autre contrôle et revenir ensuite fonctionne.

[fredoh]

ok bien conclu, merci