Résultats de 1 à 4 sur 4

Sujet : grouping ds rapport

  1. #1
    Membre MP
    Inscrit
    août 2013
    Messages
    4

    grouping ds rapport

    Bonjour vous tous,

    Mon application vb me permet de faire des rapport mensuel. Mon problème est que lorsque je demande une rapport pour mai 2004 et que je reviens pour demander une rapport pour avril 2004, il me donne toujours celui de mai 2004. Il faut que je ferme que que je réouvre mon application pour demander un autre mois.

    Je ne sais pas comment faire un refresh sans fermer mon application, ce qui me permetterait de revenir pour demander un autre mois .....

    Code:
     
    
    \' Bouton qui actionne la création du RAPPORT MENSUEL * 
    \'***************************************************** 
    Private Sub cmdGenerer_Click() 
        verifierDate 
        If dateOk = True Then 
            verifierMois 
            If moisOk = True Then 
                supprimerChamps 
                fonctionGenerer2 
                creerNouvelleTable 
                test = recevoirMois(txtAnnee.Text, mois) 
                If clique = 0 Then 
                   bdCaissedeDepannage.rsrptMensuel_Grouping.Open 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Requery 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Close 
                    
                    clique = clique + 1 
                End If 
                If clique > 1 Then 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Close 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Open 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Requery 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Close 
                               End If 
                rptMensuel.Show 
                rptMensuel.SetFocus 
            Else 
                MsgBox \"Mois inexistant dans la base de données\" 
                txtMois.SetFocus 
            End If 
        Else 
            MsgBox \"Année inexistante dans la base de données\" 
            txtAnnee.SetFocus 
        End If 
    End Sub






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

    Existe il une commande que je pourrais mettre après:
    Code:
    bdCaissedeDepannage.rsrptMensuel_Grouping.Close
    qui rafraîchirait mon frm?

    :?:

  2. #2
    Membre MP
    Inscrit
    août 2013
    Messages
    23
    Salut,

    Et si tu rajoutais dans ton code :
    if clique >= 1 en lieu et place de if clique > 1

    Tu incrémente \"clique\" de 1 mais en mettant > 1 dans ton code il omet de passer par 1 donc VB commence bien à 0 mais ne passe pas par 1.

    Peut-être que ça résoudra ton blem :idea:
    Moi !

  3. #3
    Membre MP
    Inscrit
    août 2013
    Messages
    245
    Bonjour
    En Analysant l\'erreur que vous donner cette ligne est trés explicte

    Il faut que je ferme que que je réouvre mon application pour demander un autre mois.
    Si c\'est vrai qu\'il vous faut fermer et réouvrir l\'application pour qu\'elle accepte un autre mois, cela signifie que vous avez ouvert une connection que vous n\'avez pas fermer.

    dans le code que vous avez donné je ne vois pas d\'annomalie ce qui veut dire que le probléme se trouve ailleur, Essaye de vboir le code qui vous permet d-interroger la table contenant les mois.




    Merçi:wink:
    La réussite est au bout de l'effort

  4. #4
    Membre MP
    Inscrit
    août 2013
    Messages
    4
    J\'ai trouvé le problème, il suffit de dépalcer la ligne : clique=clique+1 en dehors du IF



    Code:
    Private Sub cmdGenerer_Click() 
        verifierDate 
        If dateOk = True Then 
            verifierMois 
            If moisOk = True Then 
                supprimerChamps 
                fonctionGenerer2 
                creerNouvelleTable 
                test = recevoirMois(txtAnnee.Text, mois) 
                If clique = 0 Then 
                   bdCaissedeDepannage.rsrptMensuel_Grouping.Open 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Requery 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Close                 
                    
                End If 
                If clique > 1 Then 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Close 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Open 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Requery 
                    bdCaissedeDepannage.rsrptMensuel_Grouping.Close 
                               End If 
                rptMensuel.Show 
                rptMensuel.SetFocus 
                clique = clique + 1 
            Else 
                MsgBox \"Mois inexistant dans la base de données\" 
                txtMois.SetFocus 
            End If 
        Else 
            MsgBox \"Année inexistante dans la base de données\" 
            txtAnnee.SetFocus 
        End If 
    End Sub

Informations du sujet

Utilisateur(s) parcourant ce sujet

il y a actuellement 1 utilisateur(s) parcourant ce sujet. (0 membre(s) et 1 visiteur(s))

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas éditer vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé
Please disable Adblock!