Si alors aller à [Résolu]

[Olivierporcinet]

Bonsoir,

J'ai un formulaire avec liste déroulante : OK;A VOIR

Je souhaiterais que lorsque l'on choisisse OK, que l'on aille automatiquement dans un autre enregistrement [Réalisation] afin d'y indiquer quelque chose.

Comment faire ?

En VBA ? et autre possibilité également (macro, ...)

Merci

[Philippe JOCHMANS]

Bonjour

Pour récupérer l'action de sélection dans ta liste, tu peux passer par l'évènement AfterUpdate de celle-ci et faire un test sur la valeur (avec un If ... Then).

Quand tu parles d'autres enregistrements, tu veux sûrement parler d'un champ, si c'est le cas regardes du coté de SetFocus.

Philippe

[Olivierporcinet]

Oui, cela est un champ.

Où indiquer After uptdate ?
Qulle est la condition à mettre ?


Merci

[marsouin_89]

Bonjour Olivier,

Tu sélectionnes ta liste déroulante.
Dans les propriétés, tu sélectionnes l'onglet Evènements.
Tu mets ton curseur dans Après MAJ et tu cliques sur le petit carré qui apparaît situé à droite du champ.
Par exemple :

Code :

1
2
3
4
5
6
7
Private Sub MaListe_AfterUpdate()
Select Case Me.MaListe'Sélectionne la valeur du champ
Case "Ok", "A VOIR"'Si la valeur ressemble à çà
Me.MonChamp2.SetFocus'Le curseur se déplace sur le champ à remplir
End Select
'Donc si aucune valeur, pas de déplacement
End Sub

Cordialement

Christophe

[Olivierporcinet]

J'ai essayé mais....

Voici l'exemple :

nom activité ---> OUI;NON (choix d'après liste déroulante)

Aller à pour test ..........

Suite à donner ........


Donc si je mets OUI dans mon activité, le curseur doit aller directement dans le champ Aller à pour test
Si je mets non, il doit aller dans suite à donner

Merci

[marsouin_89]

Bonjour Olivier,

Rien de bien grave, mais tu aurais pu fouiner un petit peu l'exemple que je t'ai donné.
Cela dit, voici la correction.

Code :

1
2
3
4
5
6
7
8
9
Private Sub MonActivite_AfterUpdate()
Select Case Me.MonActivite'Sélectionne la valeur du champ
Case "Oui"'Si la valeur ressemble à çà
Me.AllerAPourTest.SetFocus'Le curseur se déplace sur le champ à remplir
Case "Non"
Me.SuiteADonner.SetFocus
End Select
'Donc si aucune valeur, pas de déplacement
End Sub

Petit conseil : evite les espaces et la ponctuation dans le nom de tes champs.
Cela t'évitera de nombreux problèmes. En guise d'espace, met un underscore (toute 8 en minuscule)
Il y a des tutoriels sur la normalisation.

Cordialement

Christophe

[Olivierporcinet]

Un super grand merciiiiiiiiiiiiiiiiiiiiiiiiii