Discussion :

[mercatog]

bonjour,
j'ai un état qui comprends plusieurs pages qui décrit la situation des clients.
j'aimerai par zone de liste d'un formulaire lancer l'impression seulement des clients sélectionnés (la sélection peut être multiple)
merci pour votre aide

[Jeannot45]

Basé sur une récupération de la F.A.Q et non testé :

Code :

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

1
2
3
4
5
Dim VarLr As Variant
For Each VarLr In Me!MaListe.ItemsSelected
    Me!MaListe.Selected(VarLr) = False
    DoCmd OpenReport "MonEtat",acViewNormal,,"CodeClient = " & me.MaListe
Next VarLr

[mercatog]

Merci pour votre réponse précieuse
je vais tester et vous rendre compte du résultat!

j'aurai besoin d'approfondir d'abord ma méthode de recherche dans la FAQ

[mercatog]

Rebonjour,
je reviens avec le résultat du test:
ma zone de liste est nommée choix
mon état est basé sur une table dont la clé primaire est idClien (numéro auto)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ISC_Click()

Dim VarLr As Variant
Dim stDocName As String

stDocName = "E_MvtCompte"

For Each VarLr In Me!choix.ItemsSelected
    Me!choix.Selected(VarLr) = False
    DoCmd.OpenReport stDocName, acPreview, , "idClien= " & Me.choix
Next VarLr
End Sub

A l'exécution du code l'erreur suivante sur la ligne en rouge:
err 3075
) en trop dans l'expression (idClien=)

le débogage donne la valeur null pour Me.choix de la clause

merci

[Gabout]

Bonjour,

Je pense plutôt à quelque chose comme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ISC_Click()
Dim VarLr As Variant
Dim strFiltre as string
Dim stDocName As String
stDocName = "E_MvtCompte"
strFiltre=""
For Each VarLr In Me!choix.ItemsSelected
  if strFiltre <> "" Then strFiltre = strFiltre & " OR "
  strFiltre = strFiltre & "[idClien]=" & Me!choix.ItemData(VarLr)
Next VarLr
DoCmd.OpenReport stDocName, acPreview, , strFiltre
End Sub

A tester

A+

[Renardo]

Bonjour
Ta zone de liste contient bien IdClien en première colonne (Attention au colonne cachée)?

[mercatog]

Merci Gabout, ça marche impecc

oui Renardo, le idClien caché en première colonne

[mercatog]

Emballé trop vite peut-être

le filtre concaténé, a une certaine limite de longueur!!!

pour la sélection de d'une certain nombre d'item, erreur: Filtre trop long, j'ai même changé la déclaration de strFiltre as variant

le maximum est 126 items
Merci

[Gabout]

Bonjour,

126 items, c'est déjà pas mal pour une liste. Si tu veux plus, il faut peut être envisager de passer par un autre mode de sélection (sous-formulaire avec case à cocher, etc.)

A+

[mercatog]

Certes!
merci pour votre aide précieuse