Discussion :

[fbu78]

Bonjour, je vous soumets mon problème à propos duquel je ne trouve pas de solution.

J'ai une table qui contient mes enregistrements.
je dois extraire de cette table, tous les jours,
220 enregistrements max avec comme critères :
- 13 enregistrements max par département (qui est dans un champ)

et parmi ces 13 enregs :
- 9 de type 1
- 4 de type 2

Si vous voyez une solution ou une piste je suis preneur
Merci d'avance

[Dermochelys]

Bonjour,

Même si je ne maîtrise pas trop le SQL et les requêtes (le VBA est plus souple je trouve ), je me lance ...

Comme tu ne donnes pas trop d'info sur la structure de ta table, je suis donc parti avec une table bidon ordonnée comme ceci:

Il y a 9 départements (de A à I ). Chaque département a, respectivement, plus de 10 enregistrements de type 1 et 2. Plus les données associées à ces enregistrements.

J'ai créé 2 requêtes intermédiaires qui limite l'affichage pour chaque type:

Code SQL :

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

1
2
3
4
SELECT TOP 9 Table1.Type, Table1.Data
FROM Table1
GROUP BY Table1.Type, Table1.Data
HAVING (((Table1.Type)=1));

et

Code SQL :

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

1
2
3
4
SELECT TOP 4 Table1.Type, Table1.Data
FROM Table1
GROUP BY Table1.Type, Table1.Data
HAVING (((Table1.Type)=2));

Puis, j'ai combiné ces requêtes à l'aide de jointures

Code SQL :

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

1
2
3
SELECT Table1.Departement, rqTop9Type1.Type, rqTop4Type2.Type, rqTop9Type1.Data, rqTop4Type2.Data
FROM (Table1 LEFT JOIN rqTop9Type1 ON Table1.Type = rqTop9Type1.Type) LEFT JOIN rqTop4Type2 ON Table1.Type = rqTop4Type2.Type
GROUP BY Table1.Departement, rqTop9Type1.Type, rqTop4Type2.Type, rqTop9Type1.Data, rqTop4Type2.Data;

Et, on obtient:


Je pense que c'est une première piste pour faire ce que tu veux.
Il faut encore améliorer les requêtes car tu remarqueras que ce sont toujours les même valeurs de data qui sont affichées (donc, tu as du travail )

Belle journée à toi

[fbu78]

Merci beaucoup pour cette piste prometteuse... je reviendrai pour donner le résultat !
Merci encore

[fbu78]

Effectivement après transposition dans ma base, j'obtiens les mêmes datas pour tous les départements, mais je ne vois pas pourquoi.
La sélection des TOP 4 et TOP 9 est sans doute le problème car ces requêtes sélectionnent les 9 ou 4 TOP de la table, et dans la table finale on demande à ACCESS d'afficher ces mêmes TOP, ce qu'il fait



S'il y a une bonne âme pour y réfléchir avec moi, je suis preneur

[Dermochelys]

Bonjour,

Je suis toujours en train d'y réfléchir mais de l'aide du forum sera utile je pense

Code :

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

1
2
3
4
5
6
7
select i.*
from Table1 as i 
where i.Data in (select top 13 i2.Data
               from table1 as i2
               where i2.Departement = i.Departement
               order by i2.Data desc
              );

Cette requête basée directement sur la table1 de mon exemple (je l'ai alimentée pour avoir plus de 13 données par type et plsu de 20 données par département) renvoie un maximum de 13 enregistrements par département, mais avec un nombre variable de type d'un département à l'autre.
Je pense que on est sur le bon chemin mais j'espère de l'aide du forum pour clarifier cela car je ne suis pas du tout doué en SQL pur.

[Dermochelys]

Bonjour,

Après une nuit de réflexion et quelques tests ce matin, ceci donne quasi le résultat attendu:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
SELECT i.*
FROM Table1 AS i
WHERE i.Data IN (SELECT i2.Data
              FROM table1 AS i2
              WHERE i2.Data IN (SELECT TOP 9 i3.Data
                                                  FROM table1 AS i3
                                                  WHERE (i3.Departement = i.Departement AND i3.type = 1)
                                                  )
                          OR
                          i2.Data IN (SELECT TOP 4 i3.Data
                                                   FROM table1 AS i3
                                                   WHERE (i3.Departement = i2.Departement AND i3.type = 2)));

MAIS je ne sais pas pourquoi, pour le département A (ou le premier rencontré dans la table?) uniquement, ça retourne toujours 5 enregistrements de type 2. Peut-être qu'un spécialiste SQL pourra m'éclairer (car là je sèche lamentablement)?

Tout est ok pour les autres départements.

A toi de tester si ça réponds à ton besoin. Si oui, n'oublie pas de mettre résolu

[fbu78]

Je suis aussi encore à réfléchir au sujet, et c'est compliqué...
Je vais tester ta piste et je reviendrai donner le résultat
Merci en tout cas pour ton aide..

[Dermochelys]

Re-Bonjour,

En VBA c'est mieux ;-)
J'ai mis le code ci-dessous (certainement améliorable) sur le chargement d'un formulaire, mais tu peux le mettre sur un bouton aussi.

Il crée une TableResultat au départ des données de la Table 1, avec exactement 13 enregistrements par département, 9 pour le type 1 et 4 pour le type 2.
Ne pas oublier d'effacer la TableResultat avant de lancer la procédure sinon ça plante tel que c'est.

A modifier en fonction de tes besoins

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
Option Compare Database
Option Explicit
 
Private Sub Form_Load()
    Dim Db As DAO.Database
    Dim rst As DAO.Recordset
    Dim rst2 As DAO.Recordset
    Dim rstDepartement As DAO.Recordset
    Dim rstType As DAO.Recordset
    Dim sql As String
    Dim sqlDepartement As String
    Dim sqlType As String
    Dim i As Integer
    Dim n As Integer
    Dim n1 As Integer   'compteur pour le type 1
    Dim n2 As Integer   'compteur pour le type 2
 
    n1 = 9
    n2 = 4
 
    Set Db = CurrentDb()
    'Ouvrir le recordset de la table 1
    sql = "SELECT * FROM Table1 Order by Departement, Type, Data Desc"
    Set rst = Db.OpenRecordset(sql, dbOpenDynaset)
 
    'créer la table résultat
    CreerTable rst
 
    'Ouvrir le recordset sur la table qui recevra les enregistrements adéquats
    Set rst2 = Db.OpenRecordset("SELECT * FROM TableResultat", dbOpenDynaset)
 
    'Ouvrir le recordset  qui servira a parcourir les différents Départements
    sqlDepartement = "SELECT Departement FROM Table1 GROUP BY Departement"
    Set rstDepartement = Db.OpenRecordset(sqlDepartement, dbOpenDynaset)
    If rstDepartement.EOF Then GoTo Sortie
    rstDepartement.MoveLast
    rstDepartement.MoveFirst
 
    'Ouvrir le recordset  qui servira a parcourir les différents Types
    sqlType = "SELECT Type FROM Table1 GROUP BY Type"
    Set rstType = Db.OpenRecordset(sqlType, dbOpenDynaset)
    If rstType.EOF Then GoTo Sortie
    rstType.MoveLast
    rstType.MoveFirst
 
    'on ajoute au rst2 les données de la table 1 qui correspondent aux différents critères
    If rst.RecordCount <> 0 Then
        rst.MoveFirst
        Do While rst.EOF = False
            Do While rstDepartement.EOF = False
                Do While rstType.EOF = False
                    If rstType.Fields(0).Value = 1 Then
                        For i = 0 To n1 - 1
                            rst2.AddNew
                            rst2.Fields(0) = rstDepartement.Fields(0)
                            rst2.Fields(1) = rstType.Fields(0)
                            rst2.Fields(2) = rst.Fields(2)
                            rst2.Update
                            rst.MoveNext
                        Next
                    End If
                    If rstType.Fields(0).Value = 2 Then
                        For i = 0 To n2 - 1
                            rst2.AddNew
                            rst2.Fields(0) = rstDepartement.Fields(0)
                            rst2.Fields(1) = rstType.Fields(0)
                            rst2.Fields(2) = rst.Fields(2)
                            rst2.Update
                            rst.MoveNext
                        Next
                    End If
                    rstType.MoveNext
                Loop
                rstType.MoveFirst
                rstDepartement.MoveNext
            Loop
            rst.MoveNext
        Loop
    Else
        MsgBox "La table Table1 n'a pas d'enregistrements"
    End If
 
Sortie:
    'fermer les objets
    rstType.Close
    Set rstType = Nothing
    rstDepartement.Close
    Set rstDepartement = Nothing
    rst2.Close
    Set rst2 = Nothing
    rst.Close
    Set rst = Nothing
    Db.Close
    Set Db = Nothing
 
End Sub
 
''''
'modifié d'après https://www.developpez.net/forums/d151638/logiciels/microsoft-office/access/vba-access/vba-creer-table-partir-d-recordset/#post976616
''''
Public Sub CreerTable(ByVal rsSrce As DAO.Recordset)
    Dim Db As DAO.Database 'Base de données cible
    Dim Td As DAO.TableDef 'Table à créer
    Dim fdSrce As DAO.Field 'Champ générique du recordset source
 
    'Création de la structure de la table sans ajouter de données dedans
    Set Db = CurrentDb()
    Set Td = New DAO.TableDef
 
        Td.Name = "TableResultat"
        For Each fdSrce In rsSrce.Fields
            Set fdDest = New DAO.Field
            fdDest.Name = fdSrce.Name
            fdDest.Type = fdSrce.Type
            Select Case fdDest.Type
                Case dbBinary, dbLongBinary, dbText 'Champs de taille réglable fdDest.Size = fdSrce.Size
            Case Else
                'On ne fait rien car la taille est implicite
            End Select
            Td.Fields.Append fdDest 'Ajout du champ à la table
        Next
 
        Db.TableDefs.Append Td 'Ajout de la table à la base
 
    'Fermeture 
    Set Td = Nothing
    Db.Close
    Set Db = Nothing
 
End Sub

[fbu78]

Merci encore pour cette autre piste, dès que je sors du train je m'y mets pour essayer de comprendre et d'adapter ton code.

a+

[fbu78]

Bonjour,
Après moultes essais, j'en arrive à la conclusion que la version VBA est plus compréhensible et plus adaptable à mes besoins.
Merci encore pour tes 2 pistes (sql et vba) qui fonctionnent toutes les 2.

Bonne journée.

[fbu78]

Désolé de revenir sur ce sujet

Je viens de réadapter le code VBA à ma base de production, et avec le code impossible de copier les enregs dans la TableResultat.
Je ne comprends pas ce qui se passe ...
Merci d'avance pour vos précisions

Ci-dessous le code utilisé.sur un click de bouton :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
Private Sub Boîte286_Click()
    Dim Db As DAO.Database
    Dim rst As DAO.Recordset
    Dim rst2 As DAO.Recordset
    Dim rstDepartement As DAO.Recordset
    Dim rstType As DAO.Recordset
    Dim sql As String
    Dim sqlDepartement As String
    Dim sqlType As String
    Dim i As Integer
    Dim n As Integer
    Dim n1 As Integer   'compteur pour le type 1
    Dim n2 As Integer   'compteur pour le type 2
 
    n1 = 9
    n2 = 4
 
    Set Db = CurrentDb()
    'Ouvrir le recordset de la table 1
    sql = "SELECT * FROM T1 Order by Departement, TestCT, IDCLIENT Desc"
    Set rst = Db.OpenRecordset(sql, dbOpenDynaset)
 
    'créer la table résultat
    CreerTable rst
 
    'Ouvrir le recordset sur la table qui recevra les enregistrements adéquats
    Set rst2 = Db.OpenRecordset("SELECT * FROM TableResultat", dbOpenDynaset)
 
    'Ouvrir le recordset  qui servira a parcourir les différents Départements
    sqlDepartement = "SELECT Departement FROM T1 GROUP BY Departement"
    Set rstDepartement = Db.OpenRecordset(sqlDepartement, dbOpenDynaset)
    If rstDepartement.EOF Then GoTo Sortie
    rstDepartement.MoveLast
    rstDepartement.MoveFirst
 
    'Ouvrir le recordset  qui servira a parcourir les différents Types
    sqlType = "SELECT TESTCT FROM T1 GROUP BY TESTCT"
    Set rstType = Db.OpenRecordset(sqlType, dbOpenDynaset)
    If rstType.EOF Then GoTo Sortie
    rstType.MoveLast
    rstType.MoveFirst
 
    'on ajoute au rst2 les données de la T1 qui correspondent aux différents critères
    If rst.RecordCount <> 0 Then
        rst.MoveFirst
        Do While rst.EOF = False
            Do While rstDepartement.EOF = False
                Do While rstType.EOF = False
                    If rstType.Fields(0).Value = 1 Then
                        For i = 0 To n1 - 1
                            rst2.AddNew
                            rst2.Fields(0) = rstDepartement.Fields(0)
                            rst2.Fields(1) = rstType.Fields(0)
                            rst2.Fields(2) = rst.Fields(2)
                            rst2.Update
                            rst.MoveNext
                        Next
                    End If
                    If rstType.Fields(0).Value = 2 Then
                        For i = 0 To n2 - 1
                            rst2.AddNew
                            rst2.Fields(0) = rstDepartement.Fields(0)
                            rst2.Fields(1) = rstType.Fields(0)
                            rst2.Fields(2) = rst.Fields(2)
                            rst2.Update
                            rst.MoveNext
                        Next
                    End If
                    rstType.MoveNext
                Loop
                rstType.MoveFirst
                rstDepartement.MoveNext
            Loop
            rst.MoveNext
        Loop
    Else
        MsgBox "La table T1 n'a pas d'enregistrements"
    End If
 
Sortie:
    'fermer les objets
    rstType.Close
    Set rstType = Nothing
    rstDepartement.Close
    Set rstDepartement = Nothing
    rst2.Close
    Set rst2 = Nothing
    rst.Close
    Set rst = Nothing
    Db.Close
    Set Db = Nothing
 
End Sub
'*************
Public Sub CreerTable(ByVal rsSrce As DAO.Recordset)
    Dim Db As DAO.Database 'Base de données cible
    Dim Td As DAO.TableDef 'Table à créer
    Dim fdSrce As DAO.Field 'Champ générique du recordset source
    Dim fdDest As DAO.Field 'Champ générique du recordset source
 
    'Création de la structure de la table sans ajouter de données dedans
    Set Db = CurrentDb()
    Set Td = New DAO.TableDef
 
        Td.Name = "TableResultat"
        For Each fdSrce In rsSrce.Fields
            Set fdDest = New DAO.Field
            fdDest.Name = fdSrce.Name
            fdDest.Type = fdSrce.Type
            Select Case fdDest.Type
                Case dbBinary, dbLongBinary, dbText 'Champs de taille réglable fdDest.Size = fdSrce.Size
            Case Else
                'On ne fait rien car la taille est implicite
            End Select
            Td.Fields.Append fdDest 'Ajout du champ à la table
        Next
 
        Db.TableDefs.Append Td 'Ajout de la table à la base
 
    'Fermeture
    Set Td = Nothing
    Db.Close
    Set Db = Nothing
 
End Sub

[Dermochelys]

Bonjour,

Le code semble bien le même (tu as bien vu que j'avais oublié de déclarer

Code :

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

Dim fdDest As DAO.Field 'Champ générique du recordset source

dans la procédure CreerTable).

Ta TableResultat est bien effacée avant de relancer le clic sur ton bouton?

Je continue mes tests et te reviens si/quand je trouve une solution....

[fbu78]

Ma table est bien effacée avant.

un truc que je ne comprends pas trop et qui pose peut-être problème :

Code :

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

1
2
3
4
5
6
                            rst2.AddNew
                            rst2.Fields(0) = rstDepartement.Fields(0)
                            rst2.Fields(1) = rstType.Fields(0)
                            rst2.Fields(2) = rst.Fields(2)
                            rst2.Update
                            rst.MoveNext

que représente exactement les 0, 1 et 2
Je pense qu'il s'agit des champs 1, 2 et 3 de ma table, dans cet ordre.
Je les ai remplacé par :

Code :

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

1
2
3
                            rst2.Fields([Departement]) = rstDepartement.Fields([Departement])
                            rst2.Fields([TestCT]) = rstType.Fields([TestCT])
                            rst2.Fields([IDCLIENT]) = rst.Fields([IDCLIENT])

Mais c'est pareil...

[fbu78]

Mon erreur vient bien de cette partie

Je teste le critère T ou vide. Si je remplace par T ou " " je ne récupère que les enregs avec T, ceux qui sont vides ne s'ajoutent pas... Et le problème c'est que rst2 ne peut être vide a priori selon le message d'erreur que je reçois

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
If rstType.Fields(0).Value = T Then
                        For i = 0 To n1 - 1
                            rst2.AddNew
                            rst2.Fields(0) = rstDepartement.Fields(0)
                            rst2.Fields(1) = rstType.Fields(0)
                            rst2.Fields(2) = rst.Fields(2)
                            rst2.Update
                            rst.MoveNext
                        Next
                    End If
                    If rstType.Fields(0).Value = " " Then
                        For i = 0 To n2 - 1
                            rst2.AddNew
                            rst2.Fields(0) = rstDepartement.Fields(0)
                            rst2.Fields(1) = rstType.Fields(0)
                            rst2.Fields(2) = rst.Fields(2)
                            rst2.Update
                            rst.MoveNext
                        Next

[fbu78]

trouvé en modifiant la ligne en If IsNull(rstType.Fields(0).Value) Then et ça fonctionne !

Petite question... comment intégrer "proprement" dans le code la suppression de la table. Je suppose que c'est dans la fonction CreerTable

un simple : DoCmd.DeleteObject acTable, "TableResultat" ?

Merci encore

[Dermochelys]

Bonjour Fbu78,

Bon ben tu as trouvé la solution :-) Et, en effet, 0, 1 et 2 sont les champs 1, 2 et 3 de ta table.

Concernant l'effacement de la table si elle existe, la FAQ ici te donne une solution clé en main
J'utiliserai l'appel de la fonction Delete_Table juste avant CreerTable dans le module du bouton.
Et je rajouterai un DoEvents entre les deux (pas nécessaire normallement, mais on ne sait jamais si Access coince un peu entre la délétion et la création de la table, ca l'aidera).

Content d'avoir pu t'aider :-)
Bonne continuation!

PS: ne pas oublier un petit résolu