etat sur requete d'analyse croisée

Bonjour,

Une solution parmi tant d'autres ...
A l'ouverture de l'état, tu fais un recordset sur la requête
Initialisation de toutes les zones de texte du détail de telle sorte qu'il
n'y ait plus de source controle
une boucle sur tous les champs avec définition du source controle du
controle voulu.




"frip" <frip01@wanadoo.fr> a écrit dans le message de news:
c1j9np$j28$1@news-reader2.wanadoo.fr...

bonsoir

comment peut on faire pour n'imprimer que les en tête de colonne
utilisés sur un etat liés a une requete d'analyse croisée?, sachant que
selon le resultat de la requete, ces en tête peuvent changer?

si quelqu'un a la solution, je suis preneur.

merci et A+

bertrand

Bonjour

Tu pourras trouver un exemple dans la base "solution.mdb" fournit
avec Access...

@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"frip" <frip01@wanadoo.fr> a écrit dans le message news:
c1j9np$j28$1@news-reader2.wanadoo.fr...

bonsoir

comment peut on faire pour n'imprimer que les en tête de colonne
utilisés sur un etat liés a une requete d'analyse croisée?, sachant que
selon le resultat de la requete, ces en tête peuvent changer?

si quelqu'un a la solution, je suis preneur.

merci et A+

bertrand

voici ds l'entete du report ce qu'il faut faire
exemple 15 champs max ds le report

Dim db As Database
Dim rc As Recordset
Set db = CurrentDb
Dim qf As QueryDef
Set qf = db.QueryDefs("remise_cheque")
'qf.Parameters("") = "" eventuellement
Set rc = qf.OpenRecordset()
Dim i As Integer
Dim fld As Field
For Each fld In rc.Fields
i = i + 1
If i > 15 Then MsgBox "+ de 15 rubriques": GoTo fin
e = etiquette
z=champ ds la zone detail
t=champ ds fin etat pour totaux eventuellement
Me("e" & i).Caption = fld.Name
Me("et" & i).Caption = fld.Name
Me("z" & i).ControlSource = "[" & fld.Name & "]"
Me("t" & i).ControlSource = "=sum(nz([" & fld.Name
& "],0))"
Me("c" & i).ControlSource = "=sum(nz([" & fld.Name
& "],0))"
'Debug.Print Me("t" & i).ControlSource & " " & Me("z"
& i).ControlSource & " " & Me("c" & i).ControlSource
Next
fin:
rc.Close
Set rc = Nothing

-----Message d'origine-----
bonsoir

comment peut on faire pour n'imprimer que les en tête de
colonne

utilisés sur un etat liés a une requete d'analyse
croisée?, sachant que

selon le resultat de la requete, ces en tête peuvent
changer?

si quelqu'un a la solution, je suis preneur.

merci et A+

bertrand
.