Discussion :

[fredoh]

Bonjour

j'ai un formulaire indépendant d'une table. Sur ce formulaire il y a un certain nombre de controles, dans lesquels j'affectue une verification du contenu a la validation (événement "Sur Sortie" du controle). Si le contenu est OK je laisse access mettre le focus sur le controle suivant. Si le contenu n'est pas bon, je veux l'effacer et repositionner le focus sur ce même controle.

Mais je n'arrive pas a faire cela. le code suivant ne repositionne pas le curseur sur le controle en cours, mais sur le suivant

Code :

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

Screen.ActiveForm![Screen.ActiveControl].SetFocus

quelqu'un sait il comment faire ?

merci de votre aide.

je suis sous Win 98 et Access 97

[Arkham46]

slt,

c'est que lorsque le code s'exécute tu es déjà dans le contrôle suivant
essaye PreviousControl

[fredoh]

merci pour ta réponse si rapide, mais malheureusement le code suivant ne fonctionne pas mieux

Code :

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

Screen.ActiveForm![Screen.PreviousControl].SetFocus

[Arkham46]

Code :

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

Screen.PreviousControl.SetFocus

:

[DurDur]

bonsoir,

moi, j'ai trompé le machine.

Je mets le focus sur un autre contrôle et ensuite je le mets sur le contrôle désiré.

Et ça marche.

Bon travail

JC57

[fredoh]

ce code ne fonctionne pas non plus (ca ne génère pas d'erreur, mais le retour du focus dans le controle ne s'effectue pas), merci quand même.

Code:
Screen.PreviousControl.SetFocus

merci aussi DurDur pour ta réponse, j'avais pensé à faire cela aussi, mais je pensais qu'Access gérait ce cas de figure, apparrement non ...

[ft035580]

Salut,

Il serait préférable de procéder à ta vérification sur l'évènement BeforeUpdate et de mettre un petit:

Code :

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

Cancel=True

Pense aussi au

Code :

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

Undo

[fredoh]

Merci ft035580, c'est tout à fait ça qu'il fallait faire.

La procédure de test doit effectivement être sur l'événement BeforeUpdate de mon contrôle.

Et si la valeur contenue dans le controle ne convient pas il faut faire la chose suivante :

Code :

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

1
2
Cancel = True
Screen.ActiveControl.Undo

je retire donc les réserves que j'avais émis sur Access