Discussion :

[ancylia]

Bonjour,

j'aimerai ouvrir un etat avec les données d'une zone de liste.
J'ai mis le code suivant :

Code :

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

1
2
3
4
5
 
Dim stDocName As String
 
 stDocName = "EtatImpression"
DoCmd.OpenReport stDocName, acViewPreview, , Me.lstResults.RowSource

Mais j'obtiens l'erreur suivant :
" vous avez ecrit une sous requete pouvant renvoyer contenant plus d'un champ sans utiliser le mot reserve EXISTS dans la clause FROM de la requete principale. reviser l'instruction select de la sous-requete pour obtenir un seul champ"

Or la liste lstResults contient plusieurs colonnes et j'aimerai toutes les envoyées à mon etat.

comment resoudre ce probleme ?

[cafeine]

que veux tu dire par : " toutes les envoyer à mon état "

Sur quelle source (Table / Requete) est bati ton état ?

Sinon pour info, la valeur prise par un controle zone de liste est celle déterminée par la "colonne liée".
Tu peux récupérer les autres colonnes avec

Code :

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

Me.ControleZoneDeListe.Column(NumerodeColonne)

[ancylia]

Mon etat est bati sur une table.

Dans mon formulaire, j'ai un bouton qui ouvre cet etat.

et "toutes" correspond à la valeur de chaque colonne

[ancylia]

Désolée de répondre si tard...

En fait mon souci est d'envoyer toutes les valeurs de chaque colonne dans un état en "même" temps.
Or si j'utilise :

Code :

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

1
2
 
DoCmd.OpenReport stDocName, acViewPreview, , Me.lstResults.RowSource

je ne peux pas envoyer toutes ces valeurs.

et avec :

Code :

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

1
2
 
Me.ControleZoneDeListe.Column(NumerodeColonne)

je n'envoie que les valeurs de la ligne selectionnée. (Ou est ce que je me trompe ???)

J'aimerai envoyer les valeurs de toutes les colonnes et toutes les lignes, meme si je ne selectionne aucune ligne...

enfin voila pas facile...

[ancylia]

J'ai enfin trouve une solution pour ceux que ca interesse...

j'ai cree un variable public contenant le code SQL du contenu de ma zone de liste. J'affecte cette variable dès que le contenu change.

et j'envoie cette variable comme argument lors de l'ouverture de l'etat comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim stDocName As String
 
    stDocName = "EtatImpression"
    If Not Me!lstResults.ListCount = 0 Then
        DoCmd.OpenReport stDocName, acViewPreview, printSQL
    Else
        MsgBox "Il n'y a rien à imprimer"
    End If

printSQL est donc le code SQL

voila voila