Discussion :

[AidezMoiSvp]

Bonjour,

Je vais essayer d'être le plus clair possible.

Soit un requête access qui me permet de savoir quelle entreprise a répondu à quel appel d'offres.
Chaque entreprise qui répond à un numéro d'arrivée. Ce numéro peut ne pas être continu (ex. 2,4,5,6,8).

A partir d'un code vba, je génère un tableau qui comprend autant de lignes qu'il y a d'entreprises. Ce code fonctionne très bien.

Le problème porte sur le code qui remplit le(s) tableau(x). Je voudrais que pour chaque nouvelle ligne du tableau, il passe à l'enregistrement suivant. Vous me suivez ?

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For nbLot = 1 To nbLot - 1
        For nbLigLot = 1 To nbLigLot + 1
            'sqlCandidat = "SELECT Tbl_Registre_Depot.Numero_Depot, Tbl_Entreprise2.Denomination_Entreprise, Tbl_Entreprise2.Adresse_Entreprise, Tbl_Entreprise2.Code_Postal_Entreprise, Tbl_Entreprise2.Ville_Entreprise, Tbl_Registre_Depot.ID_Marche, Tbl_Registre_Depot.ID_Entreprise, Tbl_Registre_Depot.Lot_Depot FROM Tbl_Entreprise2 INNER JOIN Tbl_Registre_Depot ON Tbl_Entreprise2.ID_Entreprise = Tbl_Registre_Depot.ID_Entreprise WHERE Tbl_Registre_Depot.ID_Marche=34 AND Tbl_Registre_Depot.Lot_Depot=" & nbLot & " ORDER BY Tbl_Registre_Depot.Numero_Depot"
            sqlCandidat = "SELECT Tbl_Registre_Depot.Numero_Depot, Tbl_Entreprise2.Denomination_Entreprise, Tbl_Entreprise2.Adresse_Entreprise, Tbl_Entreprise2.Code_Postal_Entreprise, Tbl_Entreprise2.Ville_Entreprise, Tbl_Registre_Depot.ID_Marche, Tbl_Registre_Depot.ID_Entreprise, Tbl_Registre_Depot.Lot_Depot FROM Tbl_Entreprise2 INNER JOIN Tbl_Registre_Depot ON Tbl_Entreprise2.ID_Entreprise = Tbl_Registre_Depot.ID_Entreprise WHERE Tbl_Registre_Depot.ID_Marche = 34 And Tbl_Registre_Depot.Lot_Depot =" & nbLot & " ORDER BY Tbl_Registre_Depot.Numero_Depot"
            Set dbCandidat = CurrentDb
            Set rsCandidat = dbCandidat.OpenRecordset(sqlCandidat)
            ActiveDocument.Tables(nbLot).Cell(nbLigLot + 1, 1).Range.Text = rsCandidat.Fields("Numero_Depot")
            ActiveDocument.Tables(nbLot).Cell(nbLigLot + 1, 2).Range.Text = rsCandidat.Fields("Denomination_Entreprise") & vbCrLf & rsCandidat.Fields("Adresse_Entreprise") & vbCrLf & rsCandidat.Fields("Code_Postal_Entreprise") & " " & rsCandidat.Fields("Ville_Entreprise")
            rsCandidat.Close
            Set rsCandidat = Nothing
            dbCandidat.Close
            Set dbCandidat = Nothing
        Next nbLigLot
Next nbLot

nbLot compte le nombre de lot dans un contrat (ca me permet de créer autant de tableau qu'il y a de lots).
nbLigLot compte le nombre d'enregistrement par lot. Ceci fonctionne très bien pour la deuxième étape du code car nbLigLot correspond à l'ordre de classement des entreprises qui lui est continu (1,2,3,4,...). Il me permet donc facilement de faire correspondre la ligne du tableau word avec le numéro d'enregistrement de la requête.


Donc pour résumer : comment aller à l'enregistrement suivant pour chaque nouvelle ligne dans le tableau word ?

J'espère que j'ai réussi à me faire comprendre.


Merci

[AidezMoiSvp]

Bon bah j'ai réussi tout seul

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
21
22
23
24
For nbLot = 1 To nbLot - 1
 
            sqlCandidat = "SELECT Tbl_Registre_Depot.Numero_Depot, Tbl_Entreprise2.Denomination_Entreprise, Tbl_Entreprise2.Adresse_Entreprise, Tbl_Entreprise2.Code_Postal_Entreprise, Tbl_Entreprise2.Ville_Entreprise, Tbl_Registre_Depot.ID_Marche, Tbl_Registre_Depot.ID_Entreprise, Tbl_Registre_Depot.Lot_Depot FROM Tbl_Entreprise2 INNER JOIN Tbl_Registre_Depot ON Tbl_Entreprise2.ID_Entreprise = Tbl_Registre_Depot.ID_Entreprise WHERE Tbl_Registre_Depot.ID_Marche = 34 And Tbl_Registre_Depot.Lot_Depot =" & nbLot & " ORDER BY Tbl_Registre_Depot.Numero_Depot"
            Set dbCandidat = CurrentDb
            Set rsCandidat = dbCandidat.OpenRecordset(sqlCandidat)
            While Not rsCandidat.EOF
 
        For nbLigLot = 1 To nbLigLot + 1
 
 
            ActiveDocument.Tables(nbLot).Cell(nbLigLot + 1, 1).Range.Text = rsCandidat.Fields("Numero_Depot")
            ActiveDocument.Tables(nbLot).Cell(nbLigLot + 1, 2).Range.Text = rsCandidat.Fields("Denomination_Entreprise") & vbCrLf & rsCandidat.Fields("Adresse_Entreprise") & vbCrLf & rsCandidat.Fields("Code_Postal_Entreprise") & " " & rsCandidat.Fields("Ville_Entreprise")
            rsCandidat.MoveNext
 
 
        Next nbLigLot
 
            Wend
            rsCandidat.Close
            Set rsCandidat = Nothing
            dbCandidat.Close
            Set dbCandidat = Nothing
 
Next nbLot