Discussion :

[geektarist]

Bonjour à tous!

Je suis actuellement en stage, et je bosse sur un outil de suivit de commandes sur access. Je voudrais savoir comment trier les différents projet en fonction de leur statut (en cours: ec, finis: fi etc.)

Voici le formulaire: http://www.hapshack.com/?v=w5Mnf.jpg

Est il possible d'afficher que les projets d'un seul statut en les sélectionnant avec cette liste déroulante? http://www.hapshack.com/?v=7ntx6.jpg

Je ne connait pas super bien vba donc si cela peut se faire grace à une macro ça serait cool!

Merci d'avance

[geektarist]

Je fais un petit up car je dois avoir finis ce projet dans 2h

[FreeAccess]

Bonjour,

..comment trier les différents projet en fonction de leur statut.

Trier = afficher l'ensemble des données dans un ordre particulier (croissant, décroissant)

Filtrer = afficher une sélection de données basée sur un critère (toutes les données commençant par "A")

...Je suis actuellement en stage

. . . donc pas de précipitation, un stage ("normalement") c'est fait pour apprendre ....

Pour ton problème, intéresse toi à la propriété Filter . . . à mettre sur l'événement "Après MaJ" de ta Zone de liste.....

Code :

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

1
2
3
Private Sub MaZoneListe_AfterUpdate()
Me.Filter = "Statut = '" & Me.MaZoneListe.Value & "'"
Me.FilterOn = True

[geektarist]

Merci beaucoup! Je vais regarder ça! C'est vrai que j'ai un peut tendance à stresser depuis le début du stage Mais bon après tout tu as raison, je suis la our apprendre

[geektarist]

Hey! C'est encore moi
J'ai essayé d'utiliser ce code:

Code :

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

1
2
3
4
5
 
Private Sub Filtre_Statut_AfterUpdate()
Me.Filter = "Statut = '" & Me.Filtre_Statut.Value & "'"
Me.FilterOn = True
End Sub

Le problème, c'est que cela change la valeur du premier statut de la liste, et ne filtre rien Je ne connais quasiment rien en vb, y-a t il quelquechose que j'ai mal fait?

[FreeAccess]

Petite explication. . . (tu adaptes en fonction de tes propres noms de contrôles)

En fonction de ta pièce jointe . . .:

Tu as un formulaire basé sur une table (ou requête) qui affiche tes différents champs
Client | Projet | ...... | Nature | Statut | ......

Sur ce même formulaire, tu as un contrôle Zone de liste déroulante indépendante [Filtre_Statut] basée sur une requête qui affiche l'ensemble des statuts possibles (EC, FI, . . . )
Sur l'événement "Après MaJ" de cette ZdL....

Code :

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

1
2
3
4
Private Sub Filtre_Statut_AfterUpdate()
Me.Filter = "Statut = '" & Me.Filtre_Statut.Value & "'"
Me.FilterOn = True
End Sub

Ici, le code suivant . .Me.Filter = "Statut = '" & Me.Filtre_Statut.Value & "'" . . . signifie

"Filtre mon formulaire (représenté par Me) pour n'afficher QUE les enregistrements dont le champ nommé [Statut] est égal à la valeur contenu dans la ZdL nommée [Filtre_Statut]

Maintenant, si tu emploies un sous-formulaire, la syntaxe varie quelque peu.....

Code :

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

1
2
3
4
Private Sub Filtre_Statut_AfterUpdate()
Me.NomSF.Form.Filter = "Statut = '" & Me.Filtre_Statut.Value & "'"
Me.NomSF.Form.FilterOn = True
End Sub

. . . ou NomSF correspond au nom de ton contrôle sous-formulaire.

[geektarist]

Ça a marché Un grand grand merci! J’espère avoir un jour le niveau pour aider les autres
Merci encore