Discussion :

[atech]

Bonjour,

J 'ai un souci de requête.



Par l'intermédiaire d'une fonction rubriques() déclarée dans un module, je récupère le critère (string) pour ma requête (valeur issue d'une variable globale issue d'un double-click dans une liste d'un formulaire).

C'est ok quand j'ai la sélection d'un seul critère.

Mais je voudrais donner la possibilité d'avoir plusieurs critères.
Or si j'essaie d'attribuer "A or B" à la fonction rubriques(), forcément, ce code ne marche pas.
Je pourrais créer plusieurs fonctions rubrique(), rubrique2(), rubrique3() etc mais ça ne fait pas propre d'autant que l'utilisateur peut sélection entre 1 et 5 critères.

Au final, je fais apparaitre dans le formulaire le résultat de cette requête.

[ClaudeLELOUP]

Bonjour,

Tu devrais essayer d'expliquer ce que tu veux faire (sans parler de la technique).
Cela permettrait sans doute de te proposer une solution technique : par exemple : en fonction des choix opérés par l'utilisateur, construire à la volée la source du formulaire.

[atech]

Bonjour,

Tu devrais essayer d'expliquer ce que tu veux faire (sans parler de la technique).
Cela permettrait sans doute de te proposer une solution technique : par exemple : en fonction des choix opérés par l'utilisateur, construire à la volée la source du formulaire.

Dans le formulaire j'ai une liste (données provenance d'une table) qui permet de sélectionner 1 ou plusieurs références. En double-cliquant sur cette liste, l'utilisateur met à jour une autre liste qui lui permet de visualiser les références qu'il a sélectionné.

A partir de cette liste de sélection, je voudrais qu'un sous-formulaire fasse apparaitre la liste de données liées aux références choisies.

C'est pourquoi je cherche à mettre dans une requête les valeurs qui ont été placées par l'utilisateur dans la liste de sélection.

[ClaudeLELOUP]

Voici un bout de code pour récupérer les valeurs qui ont été sélectionnées dans la liste :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub LeBouton_Click()
Dim i As Integer
For i = 0 To Me.LaListe.ListCount - 1
   If Me.LaListe.Selected(i) = True Then
 
     'tu fais ici ce que tu dois, lorsqu'un item a été selectionné
     MsgBox Me.LaListe.ItemData(i)
   End If
Next i
End Sub

[marot_r]

Tu pourrais aussi regarder

Création d'un formulaire de recherche multicritères
ici : http://jeannot45.developpez.com/arti...multicriteres/

A+

[LedZeppII]

Bonjour,

Je ne pense pas que cela soit possible avec ta requête.
Le critère est :

Code :

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

WHERE rubriques_loi_eau.rubrique = rubriques()

A droite de l'opérateur de comparaison égale on ne peut pas mettre plus d'une valeur.

Il te faudrait quelque chose du genre :

Code :

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

WHERE rubriques_loi_eau.rubrique IN (valeur1, valeur2, valeur3)

Malheureusement il n'est pas possible d'introduire les valeurs valeur1, valeur2, valeur3 par l'intermédiaire d'une fonction.

La solution la plus simple (hormis l'utilisation d'une table pour stocker la sélection) est la modification du code SQL de la requête, comme dans ce tutoriel :
Concevoir une liste qui en alimente une autre

A+

[philben]

Au final, je fais apparaitre dans le formulaire le résultat de cette requête

Dans ce cas, il suffit de filtrer le formulaire avec les rubriques, par exemple :

Code :

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

1
2
3
 
Me.filter = "rubriques_loi_eau.rubrique IN (" & Rubriques() & ")"
Me.filterOn = True

Avec Rubriques() renvoyant la liste des rubriques séparée par des virgules.

Voir aussi le tuto de Loufab sur l'opérateur IN.

Philippe

[atech]

Merci pour toutes ces propositions, je vais regarder ça. Un filtre peut-il être aussi utilisé pour faire un état ?

[philben]

pas de problème, la commande doCmd.OpenReport permet de passer une clause WHERE en paramètre d'ouverture du rapport.

philippe

[atech]

Dans ce cas, il suffit de filtrer le formulaire avec les rubriques, par exemple :

Code :

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

1
2
3
 
Me.filter = "rubriques_loi_eau.rubrique IN (" & Rubriques() & ")"
Me.filterOn = True

Avec Rubriques() renvoyant la liste des rubriques séparée par des virgules.

Voir aussi le tuto de Loufab sur l'opérateur IN.

Philippe

Ça marche, merci