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
Partager