grouping et data report

Question

Bonjour &#224; tous,

J'ai une application VB que j'ai fait qui utilisait une base de donn&#233;es ACCESS.  Dans mon application, je g&#233;n&#233;re un rapport mensuel avec data report (&#224; m&#234;me vb).  Mon rapport utilise la fonction grouping, voici le code que j'utilise:

[code]

'*****************************************************
' Bouton qui actionne la cr&#233;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.Resync
                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&#233;es"
            txtMois.SetFocus
        End If
    Else
        MsgBox "Ann&#233;e inexistante dans la base de donn&#233;es"
        txtAnnee.SetFocus
    End If
    
   End Sub

[\code]

Je viens de modifier mon application afin d'utiliser une base de donn&#233;es SQL sur un serveur SQL &#224; la place d'une base ACCESS et voil&#224; mon code de rapport mensuel ne fonctionne plus....Lorsque j'arrive &#224; la ligne:

  bdCaissedeDepannage.rsrptMensuel_Grouping.Open

l'application ferme sans g&#233;n&#233;rer mon rapport, j'ai aucun message d'erreur, le rapport ne s'ouvre pas 

J'ai v&#233;rifi&#233; ma connection et tout est correct... on dirait qu'avec une base sql grouping.open ne fonctionne pas, avez-vous une id&#233;e

Kat40

kat40 · Answer

Bonjour,

Information suppl&#233;mentaire....  J'utilise dataenvironnement pour ma  connexion &#224; mon serveur sql.  Mes propri&#233;t&#233;s de regroupement son dans mon dataenvrironnement.  Je vous rappelle que tout fonctionne bien lorsque j'utilise un base de donn&#233;es ACCESS.  D&#232;s que je transforme ma table source en sql serveur mon application se fermen &#224; la ligne grouping.open ????

Kat40

Grouping et data report

1 réponse

Discussions similaires