Discussion :

[buzz73]

Bonjour,

J'ai une requête qui me permet de connaitre les identifiants de promotions n'étant plus d'actualité. Cette requête nécessite un regroupement.
J'aimerais mettre le champ "Drop" à Vrai pour les résultats de la requête.

J'ai actuellement le code suivant mais ça ne fonctionne pas :

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
Sub DAOOpenRecordset()
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    Dim sSQL_Update As String
    ' Ouverture de la base de données
    Set db = CurrentDb
    'Requête sélection retournant les ID_Promotion_Et_Annee considérés (identifiants)
sSQL = _
    "SELECT T_Promotion_Et_Annee.ID_Promotion_Et_Annee " & _
    "FROM R_ImportPromo_Norme RIGHT JOIN T_Promotion_Et_Annee ON " & _
    "(R_ImportPromo_Norme.ID_NomPromotion = T_Promotion_Et_Annee.ID_NomPromotion) AND " & _
    "(R_ImportPromo_Norme.Annee = T_Promotion_Et_Annee.Annee) " & _
    "WHERE (((R_ImportPromo_Norme.ID_NomPromotion) Is Null)) OR (((R_ImportPromo_Norme.Annee) Is Null));"
 
 
'La mise à jour souhaitée
    sSQL_Update = _
    "UPDATE T_Promotion_Et_Annee " & _
    "SET T_Promotion_Et_Annee.Drop_Promotion_Et_Annee = True " & _
    "WHERE (((T_Promotion_Et_Annee.ID_NomPromotion)=36));"
 
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
    If Not rst.EOF Then
        'rst.MoveFirst
        Do While Not rst.EOF
         ' code
            'Différents essais mais rien de concluant : 
            rst.Edit
            rst("Drop_Promotion_Et_Annee") = True
            rst.Update
         'Suivant
         rst.MoveNext
        Loop
    Else
      MsgBox "Le jeu d'enregistrements est vide"
    End If
 
 
    ' Fermeture du Recordset
    rst.Close
End Sub

[jimay]

Salut,

Je ne suis pas sûr de moi mais il me semble qu'il est impossible de faire une modification sur un résultat de requette contenant un regroupement. à mon avis tu devra récupérer une clefs dans cette requete de regroupement puis modifier la table correspondante.

Si quelqu'un peut confirmer ^^

[buzz73]

il semblerait en fait qu'on ne puisse pas faire de mise à jour depuis une requête regroupement.
Je récupère cependant bien une clé avec la requête de regroupement : T_Promotion_Et_Annee.ID_Promotion_Et_Annee

J'ai mis ça dans le recordset mais je n'arrive pas à mettre à jour la table T_Promotion_Et_Annee en parcourant mon recordset.
Il faudrait que pour chaque enregistrement du recordset, je puisse mettre à jour le champs Drop de la table pour l'identifiant correspondant (ID_Promotion_Et_Annee)

[jimay]

re,


tu devrais essayer de modifier un peu tes requetes pour obtenir un recordset modifiable, du genre:

Code sql :

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

1
2
3
4
5
6
7
8
9
10
SELECT * 
FROM T_Promotion_Et_Annee 
WHERE ID_Promotion_Et_Annee IN ( 
    SELECT T_Promotion_Et_Annee.ID_Promotion_Et_Annee 
    FROM R_ImportPromo_Norme 
    RIGHT JOIN T_Promotion_Et_Annee 
    ON (R_ImportPromo_Norme.ID_NomPromotion = T_Promotion_Et_Annee.ID_NomPromotion) 
    AND (R_ImportPromo_Norme.Annee = T_Promotion_Et_Annee.Annee) 
    WHERE (((R_ImportPromo_Norme.ID_NomPromotion) Is Null)) 
    OR (((R_ImportPromo_Norme.Annee) Is Null)))

tu as juste à parcourir le recordset issu de cette requete pour modifier tes données.

[buzz73]

J'ai finalement trouvé une solution mais je la trouve quand même très "bourrin"
Ma requête regroupement me cré un recordset que je parcours et à chaque enregistrement, j'exécute une requête de mise à jour de ma table avec en condition, la clé contenue dans l'enregistrement courant du recordset.

Mes temps de traitement peuvent-ils exploser avec l'augmentation de données (pour l'instant j'ai 100 lignes mais par la suite ça va augmenter.

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
34
35
36
37
38
39
Sub DAOOpenRecordset()
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    Dim sSQL_Update As String
    ' Ouverture de la base de données
    Set db = CurrentDb
    sSQL = _
    "SELECT T_Promotion_Et_Annee.ID_Promotion_Et_Annee " & _
    "FROM R_ImportPromo_Norme RIGHT JOIN T_Promotion_Et_Annee ON " & _
    "(R_ImportPromo_Norme.ID_NomPromotion = T_Promotion_Et_Annee.ID_NomPromotion) AND " & _
    "(R_ImportPromo_Norme.Annee = T_Promotion_Et_Annee.Annee) " & _
    "WHERE (((R_ImportPromo_Norme.ID_NomPromotion) Is Null)) OR (((R_ImportPromo_Norme.Annee) Is Null));"
 
 
 
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
    If Not rst.EOF Then
        'rst.MoveFirst
        Do While Not rst.EOF
         ' code
            Debug.Print rst("ID_Promotion_Et_Annee").Value
            sSQL_Update = _
            "UPDATE T_Promotion_Et_Annee " & _
            "SET T_Promotion_Et_Annee.Drop_Promotion_Et_Annee = True " & _
            "WHERE (((T_Promotion_Et_Annee.ID_Promotion_Et_Annee)=" & rst("ID_Promotion_Et_Annee").Value & "));"
            DoCmd.RunSQL sSQL_Update
         'Suivant
         rst.MoveNext
        Loop
    Else
      MsgBox "Le jeu d'enregistrements est vide"
    End If
 
 
    ' Fermeture du Recordset
    rst.Close
End Sub

On a posté en même temps, je vais tester ta solution.

[buzz73]

Excellente ta solution , je prends.
je ne connaissais pas la condition IN.


j'obtiens donc le code suivant qui marche impeccable :

Code :

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

1
2
3
4
5
6
7
8
UPDATE T_Promotion_Et_Annee SET T_Promotion_Et_Annee.Drop_Promotion_Et_Annee = True
WHERE (((T_Promotion_Et_Annee.ID_Promotion_Et_Annee) In (SELECT T_Promotion_Et_Annee.ID_Promotion_Et_Annee 
    FROM R_ImportPromo_Norme 
    RIGHT JOIN T_Promotion_Et_Annee 
    ON (R_ImportPromo_Norme.ID_NomPromotion = T_Promotion_Et_Annee.ID_NomPromotion) 
    AND (R_ImportPromo_Norme.Annee = T_Promotion_Et_Annee.Annee) 
    WHERE (((R_ImportPromo_Norme.ID_NomPromotion) IS NULL)) 
    OR (((R_ImportPromo_Norme.Annee) IS NULL)))));