Créer un état en fonction de la réponse de l'utilisateurRésolu

Question

Bonjour,


Je travaille actuellement sur une base de donn&#233;es sous ACCESS comportant une table : &#233;chantillon. L'un des champs de cette table est le nom du site de pr&#233;l&#232;vement de l'echantillon : nom_site. De plus j'ai cr&#233;&#233; un formulaire o&#249; je propose &#224; l'utilisateur de choisir le site qu'il souhaite consulter . Pour cela j'ai ins&#233;r&#233; une zone de texte dans mon formulaire (c'est ma variable site). Mon probl&#232;me c'est que je n'arrive pas &#224; cr&#233;er un &#233;tat en fonction de la r&#233;ponse. J'ai r&#233;cup&#233;rer des id&#233;es &#224; droite &#224; gauche mais il manque encore quelque chose.Voil&#224; mon code qui ne marche pas.
        Dim rpt As Report
        Dim requete As String
        requete = "SELECT * FROM echantillon WHERE (nom_site='" & Site & "')"
        Set rpt = CreateReport
        rpt.RecordSource = requete
        rpt.Caption = "site"
        DoCmd.OpenReport rpt.Name, acPreview

Au final mon programme ouvre un &#233;tat mais la page est blanche.
Merci pour vos r&#233;ponse.
Seb.

cs_Yoyo2B · Accepted Answer

c nomal, l'&#233;tat est bien bas&#233; sur ta requete, mais rien ne lui dit quel champ afficher.
Le + simple , c de cr&#233;er un &#233;tat bas&#233; sur ta table, d&#233;ssine tes champs, ferme l'etat, et au momen ou tu chagera la source de donn&#233;e, si tu specifie juste une clause WHERE (n'el&#232;ve pas ou ne rajoute pas de champs) alors ton &#233;tat affichera les donn&#233;es

sinon, tu peux baser l'&#233;tat par rapport &#224; une requete fig&#233;e, avec en param&#232;tre de ta requ&#234;te la valeur du site.

voil&#224;

happy coding ...

TrafMaxime · Answer

Si t'es en vb.net et que t'utilise le Crystal Report qui va avec, je te
conseil de dessiner un maximum dans le design du report qui est assez
bien foutu, de cr&#233;er ta connection et de bien y placer tes champs...



ensuite, tu ne fais que la s&#233;lection en code :



Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared



public sub boutonprint()
Dim Xeor As New ReportDocument()

        Xeor.Load("C:\path.rpt")

        Dim SelectFormula As String

        SelectFormula "{echantillion.nomdusite} " & textbox1.text

        Xeor.RecordSelectionFormula = SelectFormula

        Xeor.PrintToPrinter(1, True, 1, 1)

end sub



au final, tu auras l'impression de la 1ere page de ton rapport..
.Maytheforcebewithyou.Maxime.

cokinoumasterflash · Answer

Toujours concernant mon probl&#232;me d'&#233;tat j'ai cr&#233;er mon etat avec mes champs mais je n'ai pas tr&#232;s bien compris la derni&#232;re remarque :


ferme l'etat, et au momen ou tu chagera la source de donn&#233;e, si tu specifie juste une clause WHERE (n'el&#232;ve pas ou ne rajoute pas de champs) alors ton &#233;tat affichera les donn&#233;es

Est ce que tu pourrais me d&#233;tailler ta solution s'il te plait ?
Merci
@+

cokinoumasterflash · Answer

C'est bon &#231;a marche !
J'ai r&#233;ussi &#224; comprendre la derni&#232;re remarque de Yoyo2B.
Merci &#224; tout le monde de m'avoir sorti de l&#224; !

Bye,
Seb.