au secours!!!

Question

Bonjour à tous,

je suis actuellement en formation Conception et développement, et je me retrouve devant VB et je vous avoue avoir beaucoup de mal avec ce logiciel tres performant.

On me demande de réaliser une édition papier listant les clients d'une table client regroupés par représentant.

cela devrait donner a peu près ceci :

Edition Client                     le dd/mm/yyyy

N° Représentant : 999
            Client : N°           Nom                    CA
            Client : N°           Nom                    Ca
            Client : N°           Nom                    CA
                                              TOTAL : CA

N° Représentant : 111
            Client : N°           Nom                    CA
            Client : N°           Nom                    Ca
            Client : N°           Nom                    CA
                                              TOTAL : CA

N° Représentant : 222
            Client : N°           Nom                    CA
            Client : N°           Nom                    Ca
            Client : N°           Nom                    CA
                                              TOTAL : CA

etc...

voici ce que j'ai fait mais cela ne tourne pas du tout

cnn.Open
Set rs = New ADODB.Recordset
req = "select*from CLIENT order by Norepres"
rs.Open req, cnn, adOpenKeyset, adLockReadOnly, adCmdText
Total = rs.RecordCount
rs.MoveFirst
TexteRep = Space(120) & "Total : " & Str(Y) & vbCrLf
rtbEdition.text = rtbEdition.text + TexteRep
Do
    If rs.Fields(6).Value <> X Then
      X = rs.Fields(6).Value
           
       TexteRep = "N° Representant : " & Str(rs.Fields(6).Value) & vbCrLf
   End If
        rtbEdition.text = rtbEdition.text + TexteRep
        Texte = Space(20) & "Client N° : " & Str(rs.Fields(0).Value) & "    Nom : " & rs.Fields(1) & "    Chiffre : " & Val(rs.Fields(5).Value) & vbCrLf
        rtbEdition.text = rtbEdition.text + Texte
        Y = Y + rs.Fields(5).Value

TexteRep = Space(120) & "Total : " & Str(Y) & vbCrLf
rtbEdition.text = rtbEdition.text + TexteRep + vbCrLf + vbCrLf

rs.MoveNext
Loop While Not rs.EOF
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing

End Sub

Je vous remercie d'avance de vos nombreuses réponses

Merci Beaucoup
Xavier

cs_EBArtSoft · Answer

Bonjour, tu trouveras plusieurs exemples/solutions sur ce site dans les rubriques "base de donnée" ou "formulaire". Ou depuis le moteur de recherche avec les mots clef "ado, etat, base de donnée". Si malgres cela tu ne trouves pas de reponse et si ta question est toujours d'actualité, tu peux lancer une nouvelle discussion sur le forum.

Bonne pr@g

Au secours!!!

1 réponse