IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

[VB6] [Datareport] Pb de rafraichissement


Sujet :

VB 6 et antérieur

  1. #1
    Candidat au Club
    Inscrit en
    Juin 2002
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Juin 2002
    Messages : 2
    Points : 2
    Points
    2
    Par défaut [VB6] [Datareport] Pb de rafraichissement
    A L'AIDE!!!!!!

    Je voudrai afficher un datareport en ayant, au préalable, choisi une date pour sélectionner les données à imprimer. Pb: le datareport ne rafraichi pas correctement la première fois mais fonctionne très bien passé ce cap.

    Je suis preneur de tous les codes de rafraichissement de datareport et dataenvironment. Merci d'avance...

  2. #2
    Membre expert
    Avatar de khany
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    2 073
    Détails du profil
    Informations personnelles :
    Âge : 62
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2002
    Messages : 2 073
    Points : 3 890
    Points
    3 890
    Par défaut
    salut !

    Je fais ce genre de chose dans mes impressions. Je te file une partie de mon code, tu verras que c'est lié à une BD pour les sélections.

    Si ca peut t'aider tant mieux !

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
     
               Set Rs = New ADODB.Recordset
                Rs.Open "SELECT * FROM [Sections] ;", ConStr, adOpenKeyset
                LibSection = Rs.Fields(2)
                With Rs
                    .MoveFirst
                    Do While Not .EOF
                        ChoixGen = .Fields(0)
                        RsMat.Open "SELECT * FROM [Matieres] WHERE Sections LIKE " & Trim(ChoixGen) & " ORDER BY Libellé ASC ;", ConStr, adOpenKeyset
                        With RptMatieres.Sections("Entete")
                            .Controls("lbltitre").Caption = Anacad
                            .Controls("lblsection").Caption = LibSection
                        End With
                        Set DEMatieres.rsCmdMatieres.DataSource = RsMat
                        RptMatieres.PrintReport
     
                        RsMat.Close
                        .MoveNext
                    Loop
                End With
    Voilà, ici j'ai choisi de faire une boucle de sélection et^d'imprimer tjrs le même Report. Il y a aussi moyen de travailler avec un Groupe ds le DataReport et de forcer le saut de page dès que l'on change de critère de sélection (dans mon cas, c'est la valeur de Section qui change.)

    Si tu as encore des prob n'hésite pas !

  3. #3
    Candidat au Club
    Inscrit en
    Juin 2002
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Juin 2002
    Messages : 2
    Points : 2
    Points
    2
    Par défaut
    Merci, ça marche nickel!
    Je crois que je sais à qui demander la prochaine fois!!!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VB6][DataReport] Faire un calcul
    Par Jokeur dans le forum VB 6 et antérieur
    Réponses: 10
    Dernier message: 24/07/2003, 16h10
  2. [VB6] [Datareport] Caracteristiques et utilisation
    Par elifqaoui dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 17/05/2003, 16h52
  3. [VB6] [Datareport] Taille de page
    Par jlvalentin dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 21/03/2003, 14h14
  4. [VB6] [Datareport] définir un champ
    Par ckankonvahou dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 23/10/2002, 11h16
  5. [VB6] [Datareport] Heure d'impression ds pied de page
    Par oazar dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 03/10/2002, 10h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo