Discussion :

[-ULK-]

Bonjour,

Je dispose d'une liste remplie par une requête, l'objectif est que l'utilisateur puisse sélectionner les lignes de son choix pour les imprimer dans un état.

Selon l'aide "Le paramètre affecté à la propriété Source (RecordSource) peut être un nom de table, un nom de requête ou une instruction SQL"

Y'a t'il moyen de le faire sans créer une table temporaire ?

[stigma]

Une solution parmi d'autres :
L'utilisateur sélectionne les enregistrements à la souris (ajouter un champ Oui/Non) puis créer une table temporaire qui sera remplie avec les enregistrements. Créer une requête puis un état basé sur cette requête. Et zou !

[-ULK-]

Merci.
C'est ce que je pensais, mais j'avais espoir qu'on puisse y arriver avec un une structure de données créé de toute pièce.
Par exemple faire RecordSet.clone de ma liste dans lequel je supprime les enregistrement qui ne sont pas selectionnés et que je balance en entrée de mon état.
Enfin c'était juste une vague idée, je suis loin de maitriser Access et VBA, je ne connais pas encore bien l'étendue des possibilités... et les limites dans le cas qui nous concerne

[jimay]

Salut

Une deuxième solution est de parcourir dans ta liste tous les champs sélectionnés, et de créer une requête à partir de ça

En Algo ça ferait

Code :

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

1
2
3
4
5
For Each numLigne In Me.Liste.ItemsSelected
    requete = "ID = " & Me.Liste.ItemData(numLigne) & " OR "
Next
 
Call DoCmd.OpenReport("Report", , , requete)

voilou

[stigma]

C'est comme en programmation, une multitude de solution différentes aboutissement à un même résultat. Personnellement je suis adepte du tout VBA.

[-ULK-]

Merci à vous pour vos réponses.

>jimay, ta solution semble me convenir mais il y a un petit truc que je ne comprends pas, à moins que ça ne soit un oubli, ton string requete ne contiendra après la boucle que le dernier élément de la liste. Ou alors la concaténation est implicite en VBA ?
Et sur la forme de la requête, si mon état se fait sur la table "Test", et que je passe un truc du genre "idTest=5 OR idTest=6" ça filtrera automatiquement sur ces tuples ? Ou dois-je plutôt faire un truc du genre "SELECT * FROM Test WHERE idTest=5 OR idTest=6" ?

[jimay]

Salut,

Tu as raison j'avais oublié la concaténation, il faut bien rajouter le petit

Code :

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

Requete = Requete & "... xxx"

Pour la 2ieme partie par contre c'est normal, il faut juste mettre ce qui suivrait le "WHERE"


a+


PS: je viens de voir que mon code ne fonctionnerais pas encore à cause du dernier "OR" qu'il y aura à la fin de la chaine et qu'il faudra donc enlever

[-ULK-]

Ok, j'ai réussis à implémenter ta solution, merci encore

Voici le bout de code en question:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim idDossier As String
    Dim param As String
    param = ""
 
    For Each varItm In Me.ListeDossier.ItemsSelected
         idDossier = Me.ListeDossier.ItemData(varItm)
        param = param & " idDossier=" & idDossier & " OR "
    Next varItm
 
    param= Left(param, Len(param) - 4)
    DoCmd.OpenReport "monEtat", acPreview, , param

A noter que "monEtat" est un état basé sur une requête qui par défaut selectionne tous les dossiers.

[jimay]

Content d'avoir pû t'aider

++