Discussion :

[Nitromard]

Bonjour à tous,

Je voudrais grâce à VBA Access, sélectionner la date la plus récente d'une table et la stocker dans une autre table.

J'ai donc 2 tables. L'une est formée d'un champs identifiant et de la date la plus récente que je voudrais stocker.
L'autre est formé des mêmes identifiant, mais répétés plusieurs fois avec un champ date où est stocker plusieurs dates pour chaque identifiant.

Par exemple j'ai les id : 449 et 450 dans ma 1ère table.
Dans la seconde j'ai 449 31/12/2010, 449 12/12/2010, 449 01/01/2009.
Et 450 21/11/2010, 450 11/11/2009.
Et donc j'aimerais mettre dans ma 1ère table :
449 31/12/2010, 450 21/11/2010.

J'ai pensé à un enchainement :
Faire une boucle sur l'id de la 1ère table.
Pour chaque ID (ex : 449) :
On stocke l'ID dans Var
Req = Dlookup("Max('[Date]')","Table2","[ID] = ' " & Var & " ' ")
Stocker ensuite Req dans la table1 champs Daterécente pour l'ID Var.
Passer à l'ID suivant.

Mais je ne sais pas comment l'écrire en VBA.

Quelqu'un pourrais me donner une piste? Utiliser des record set ou non ou autre chose?

Merci d'avance.

Cordialement,

Q.D.

[f-leb]

bonjour,

cela devrait marcher avec une requête de mise à jour:

Code sql :

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

UPDATE TblDestination  SET LaDateMax = Dmax("LaDate", "TblInitiale", "id=" & id);

[Nitromard]

Euh ok, et je met ça comme ça dans un module VBA?
Sans boucle sur l'id?

J'ai essayé :

Code :

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

Req = DLookup("Max([DATE])", "SRRI_HISTORY", "[SC_ID] = " & Var & "")

Cela stocke la bonne date, mais je ne sais juste pas comment boucler ensuite sur l'id de la table1 pour le mettre en variable Var...

[f-leb]

tu enregistres la requête UPDATE puis en VBA,

Code :

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

CurrentDb.Execute ("NomDeLaRequete", dbFailOnError)

avec la gestion d'erreur qui va bien (cf aide Access sur Database.execute)

[Nitromard]

WOW! Super ça fonctionne !
Merci beaucoup pour le coup de main ^^!