Discussion :

[applefield]

Bonjour à tous,

J'ai un état filtré grâce à un code VBA :

Code :

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

1
2
3
4
EtatNom = "FeuilleDébitProfiléPlan"
    Condition = "[CommandeDébitRef]=" & [CommandeDébitRef]
    DoCmd.Close
    DoCmd.OpenReport EtatNom, acViewPreview, Selection, Condition

Ceci me permet de voir dans un état tous les débits classés par numéro de plans, suivant un numéro de commande choisi dans une liste (condition).

Je voudrais pouvoir sélectionner dans une liste, 1 ou plusieurs numéros de plan, et afficher seulement les selections dans l'état.

Pour se faire, j'ai créé une requête "Selection" basée sur ma requête "Impression"(->Etat : FeuilleDébitProfiléPlan) qui permet d'afficher dans une zone de liste, les numéros de plans correspondants au numéro de commande.

J'ai essayé de créer un filtre grâce à un code VBA, avec les propriétés ItemsSelected et itemData de ma zone de liste, mais je n'arrive pas à comparer ma chaîne (par ex. "123;13;135;;") avec le champ contenant le numéro de plan.

Suis-je sur la bonne piste?

Mecrci d'avance à tous ceux qui pourront m'aider.

[mout1234]

Cela peut être une solution... dans ce cas il faut que tu crées une chaine de valeurs séparées par des virgules et que tu utilises l'opérateur IN.

Le but est d'obtenir une syntaxe SQL de ce genre:

Code SQL :

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

1
2
SELECT * FROM Matable
WHERE CommandeDébitRef IN (10,5,68)

[applefield]

Merci de ta réponse, j'essaye tout de suite !

[applefield]

D'après ce que je comprends de ce que tu as écrit, je ne crois pas que cette solution soit valide.

Suivant mon numéro de commande sélectionné auparavant, je n'aurai pas toujours les mêmes numéros de plans, donc ma requête SQL ne peut pas contenir une liste de valeurs.

[mout1234]

D'après ce que je comprends de ce que tu as écrit, je ne crois pas que cette solution soit valide.

Suivant mon numéro de commande sélectionné auparavant, je n'aurai pas toujours les mêmes numéros de plans, donc ma requête SQL ne peut pas contenir une liste de valeurs.

Bien sur... mais à toi de générer la liste par code en parcourant la liste des éléments sélectionnés de ta zone de liste.

[applefield]

Avec un truc du style :

Code :

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

1
2
3
    For Each i In DébitProfiléPlan.ItemsSelected
        Selection = DébitProfiléPlan.ItemData(i) & "," & Selection
    Next i

Sachant que DébitProfiléPlan est ma zone de liste?

[mout1234]

Avec un truc du style :

Code :

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

1
2
3
    For Each i In DébitProfiléPlan.ItemsSelected
        Selection = DébitProfiléPlan.ItemData(i) & "," & Selection
    Next i

oui... en n'oubliant pas d'éliminer la virgule en trop à la fin de ta chaine ainsi construite et d'ajouter les parenthèse et le IN.

[applefield]

Désolée, je ne vois pas ce que tu veux dire.

Je comprends vite, mais faut m'expliquer longtemps!!!

[mout1234]

Désolée, je ne vois pas ce que tu veux dire.

Je comprends vite, mais faut m'expliquer longtemps!!!

Ben fais une execution pas à pas de ta boucle... tu verras qu'il reste une virgule en fin à supprimer...

qq chose du genre:

Code :

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

Selection = "IN (" & Left(Selection,len(Selection)-1) & ")"

[applefield]

ca y est ! J'ai compris ce que tu voulais dire !
Effectivement, la virgule finale est supprimée!

Je te remercie de ton aide et de ta patience!

Par contre, est-il possible de filtrer suivant mes 2 critères (N° commande et N° de plan) dans le code? J'ai oublié de dire que la requete sur laquelle est basé mon etat est reprise pour d'autres états dont les filtres sont indiqués dans le code.

Qqchose genre :

Code :

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

1
2
    Condition = "[CommandeDébitRef]=" & [CommandeDébitRef] And "[DébitProfiléPlan]=" & Selection
    DoCmd.OpenReport EtatNom, acViewPreview, , Condition

[mout1234]

est-il possible de filtrer suivant mes 2 critères (N° commande et N° de plan)

Tant que tu respectes les syntaxes SQL, normalement y a pas de problème.

[applefield]

Comme tu l'as sans doute remarqué, je suis pas très expérimenté.
Pourrez-tu me donner un exemple, s'il te plait?

Je n'arrive pas à trouver de syntaxe "juste".

Merci beaucoup pour ton aide!!

[mout1234]

Le mieux est de faire un exemple de requete à la main, puis de regarder le code SQL correspondant.

Ensuite dans le VBA, tu t'appliques à reconstruire le texte SQL respectant la syntaxe.

Ici tu as mis

Code :

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

1
2
 
Condition = "[CommandeDébitRef]=" & [CommandeDébitRef] And "[DébitProfiléPlan]=" & Selection

Prends le temps de bien repérer quels sont les éléments fixes et les éléments variables de ta chaine SQL.
Ici le code SQL attendu est du genre:

[CommandeDébitRef]=17 And [DébitProfiléPlan] IN (19,34)

Donc seul le 17 de mon exemple et la chaine correspondant au contenu de Sélection tel que défini plus haut doit être remplacé.

Cela donne donc

Code :

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

1
2
 
Condition = "[CommandeDébitRef]=" & [CommandeDébitRef] & " And [DébitProfiléPlan] " & Selection

Notes que les espaces sont importants...

Bon dev

[applefield]

Merci, tes conseils m'ont permis de bien avancer.

Je vais étudier ce que tu viens de me dire...