Discussion :

[matt41]

Bonjour tout le monde,

Je n'arrive pas à faire une requête "update" dans ma macro.
Je m'explique :
J'ai une table T_RECO_SRC possédant entre autres les champs Reco_Ref (référence de la recommandation), Code, et Year.
Reco_Ref et Year forment la clé de la table puisque l'on peut avoir la même référence pour deux années différentes mais pas pour la même année.
J'ai dans les variables current_year et previous_years deux années différentes.

J'aimerais pouvoir, quand la référence existe pour les deux années, updater le code de l'année présente avec celui de l'année précédente.

C'est peut être tout bête mais je ne vois vraiment pas comment faire ! Merci d'avance.

[titi95]

Bonjour

D'après les éléments fournis, je crains (mais pas sûr) que tu finisses par stocker des données surabondantes (oui/non ?).
Reste sur le principe "une donnée, une fois seulement". (sauf les champs permettant d'établir des relations)

Tu as un champ year dans la table.

les variables current_year et previous_years

Contrôles dans un formulaire ? Champs de la Table ? Différences avec year ?

titi95

[VincentNguon]

Méthode bricolo (avec ADO) :

- Requete ou tu ouvres toute ta table

Code :

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

1
2
3
4
5
6
7
8
SQL1 = "SELECT * FROM T_RECO_SRC"
Requete1.Open SQL1, CurrentProject.Connection
Requete1.MoveFirst
 
While not Requete1.EOF
 
Reference = Requete1![Reco_Ref]
Année = Requete1![Year]

- Pour chaque enregistrement, tu ouvres une requete avec tous tes champs avec en condition le code de l'enregistrement en cours et l'année différente de l'enregistrement en cours

Code :

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

1
2
SQL2 = "SELECT * FROM T_RECO_SRC WHERE [T_RECO_SRC].Reco_Ref = '" & Reference & "' AND [T_RECO_SRC].Year <> " & Année
Requete2.Open SQL2, CurrentProject.Connection

Si ton champ Reco_Ref est en numérique alors enlève les ' avant les "

- Si cette nouvelle requête n'est pas vide (if not requete.EOF Then) alors mise à jour du champ CODE de la première requête par le champ CODE de la deuxième requête.

Code :

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

1
2
3
4
5
6
If not requete2.EOF Then
     Requete1![CODE_] = Requete2![CODE_]
End If
Requete2.Close
Requete1.movenext
Wend

[matt41]

Merci pour vos réponses !
Je me suis inspiré de ta réponse Vincent en faisant qq modifs car j'utilise DAO.

Bon après midi

[f-leb]

bonjour,

avec une requête update (paramétrée):

Code sql :

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

1
2
3
4
UPDATE T_RECO_SRC T1 INNER JOIN  T_RECO_SRC T2
ON (T1.Reco_Ref=T2.Reco_Ref)
Set T1.[LeChampCode]=T2.[LeChampCode]
WHERE (T1.[Year]=[current year] AND T2.[Year]=[previous year]);

[EDIT]
pas cool le nom du champ [code] dans la balise , et avec le champ [year] (également un mot réservé d'Access) en prime c'est carrément de la provoc