Discussion :

[Benji01]

Bonjour à tous.

J'ai un souci avec deux boucle.


Enfaite quand je passe dans la boucle du rst, il m'affiche tous ses enregistrement ainsi que ceux qui sont lié aux rst1, donc par exemple.
Enreg rst N°1
Enreg rst N°2
Enreg rst N°3
Enreg rst1 N°1

Puis quand il n'a pu rien à afficher il passe, le rst1 à l'enregistrement suivant, sauf qu'il me ré-affiche ceux du rst, et je voudrais qu'enfaite il m'affiche ceux du rst une seul fois. en gros, pas de doublon !

Pas facile de m'expliquer, j'avoue que j'ai du mal sur ce coup là

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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase(MaBase)
     SQL = "Select IDPlageAgeCategorie, PACDebut, PACFin From tblPlageAgeCategorie Where PACDebut<=" & AgeCat & " and PACFin>=" & AgeCat & ""
    'Ouverture du recordset
    Set rst1 = db.OpenRecordset(SQL, dbOpenForwardOnly, dbReadOnly)
 
While Not (rst1.EOF)
    IDPAC = rst1.Fields(0)
    strPACDebut = rst1.Fields(1)
    strPACFin = rst1.Fields(2)
 
 
        'MsgBox ("Bienvenue")
        MaPlageTest = 5
 
            ' Ouverture de la base de données
            Set db = DBEngine.OpenDatabase(MaBase)
        sSQL = "SELECT DISTINCT TypeControle, PlageAge, min(Frequence) FROM(SELECT tblSubitSpecifiquement.num_tblPlageAgeCategorie As PlageAge, tblSubitSpecifiquement.num_tblTypeControle As TypeControle, tblSubitSpecifiquement.FrequenceSpecifique As Frequence FROM ((tblCatRisque INNER JOIN tblPlageAgeCategorie ON tblCatRisque.IDCatRisque = tblPlageAgeCategorie.num_tblCatRisque) INNER JOIN tblRegroupe ON tblCatRisque.IDCatRisque = tblRegroupe.num_tblCatRisque) INNER JOIN tblSubitSpecifiquement ON tblPlageAgeCategorie.IDPlageAgeCategorie = tblSubitSpecifiquement.num_tblPlageAgeCategorie WHERE tblRegroupe.num_tblEmploye=18678 and tblSubitSpecifiquement.num_tblPlageAgeCategorie = " & IDPAC & " UNION  Select num_tblPlageAge As PlageAge, num_tblTypeControle As TypeControle, FrequenceNormale As Frequence FROM tblSubitNormalement WHERE num_tblPlageAge=" & MaPlageTest & ") GROUP BY TypeControle, PlageAge, Frequence"
            ' Ouverture du recordset
             Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
                    While Not rst.EOF
                        strMessage = rst.Fields(1) & vbCr & rst.Fields(0) & vbCr & rst.Fields(2)
                        MsgBox (strMessage)
                        If rst.EOF Then
                            rst1.MoveNext
                        Else
                            rst.MoveNext
                        End If
                    Wend
 
rst1.MoveNext
Wend

Merci d'avance à ceux qui prendront le temps de me lire, puis de me répondre si ils ont une éventuelle solution

[Jean-Philippe André]

salut,
tu fais 2 fois un rst1.Movenext dans ton code, dans le cas où rst.EOF est vrai...
est-ce voulu ?

[Benji01]

salut,
tu fais 2 fois un rst1.Movenext dans ton code, dans le cas où rst.EOF est vrai...
est-ce voulu ?

Je m'étais complètement planté sur la façon de faire.

J'avais mal analyser la chose ! maintenant tous va pour le mieux, j'ai fais ma requête à l'aide de l'assistant et pi vouala

Enfaite comme j'avais utiliser les inner join, je n'avais pas besoin de parcourir le rst1... Et c'est ça qui faisait que ça fonctionnait très mal