Regroupement dans un Data Report sans Data Environment ?

Résolu
GiBuSS1942 Messages postés 11 Date d'inscription samedi 1 janvier 2005 Statut Membre Dernière intervention 20 juin 2006 - 30 mars 2006 à 11:09
rvblog Messages postés 792 Date d'inscription vendredi 4 mars 2005 Statut Membre Dernière intervention 12 juin 2012 - 31 mars 2006 à 12:55
Bonjour,


<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


Je cherche à créer un regroupement dans un Data Report sans utiliser un Data Environnement.





J’ai ajouté une section en-tête de groupe sur mon Data Report. Dans le code, j’ai défini le recordset source et les champs associés aux différentes zones de texte du Data Report.





Seulement, quand j’exécute, j’ai le message d’erreur suivant :


« Les sections de l’état ne correspondent pas à la source de données »





Si je supprime l’en-tête de groupe du Data Report et le code associé à cet en-tête, l’état est généré sans soucis.





Bref, j’aimerais savoir comment coder un regroupement dans un Data Report…





Merci pour votre aide.





Pour info, voici mon code :


-------------------------------------------------------------------------------------------


Dim Rs As New ADODB.Recordset





StrEtat "select * from destinataire, message where destinataire.numdes message.numdes"


StrEtat StrEtat & " and destinataire.numdes in (" & StrNumdes & ") and datmes '"


StrEtat = StrEtat & LblDate.Caption & "' order by nomdes, predes"





Rs.Open StrEtat, Cn, adOpenDynamic, adLockOptimistic


Set DataReport1.DataSource = Rs





With Me.Sections("GroupeDes").Controls 'Section En-tête de groupe


.Item("txtnomdes").DataField = "nomdes"


.Item("txtpredes").DataField = "predes"


End With





With Me.Sections("SectionMess").Controls 'Section Détails


.Item("txtdatmes").DataField = "datmes"


.Item("txtheurmes").DataField = "heurmes"


.Item("txtnomapp").DataField = "nomapp"


.Item("txtpreapp").DataField = "preapp"


.Item("txtsocapp").DataField = "socapp"


.Item("txttelapp").DataField = "telapp"


End With


---------------------------------------------------------------------------------------------------
A voir également:

1 réponse

rvblog Messages postés 792 Date d'inscription vendredi 4 mars 2005 Statut Membre Dernière intervention 12 juin 2012 7
31 mars 2006 à 12:55
Salut GiBuss,

tu n'aurais pas aussi le code d'ajout et de configuration des sections (juste pour relecture)?

à+


rvblogn<SUP>
</SUP><SUP>Je veux ton bien... et je l'aurais
</SUP>
3