Question : Un disque par dernière date

J'ai des tblSales de table dans ce Tableau I avoir de prochains champs et données : le besoin 1111 du
AAAA John B. 02/14/2010
AAAA 1111 Bill J. 03/15/2010
BBBB 2222 Janet L. 04/15/2010
BBBB 3333 Ken M. 05/01/2010
BBBB 4444 Peter S. 05/01/2010
CCCC 4444 John B. 02/16/2010
CCCC 5555 John B. 02/16/2010
CCCC 5555 Ken M. 01/20/2010

I de SoldDate de vendeurs de catégorie du

Product de retirer juste un disque par produit avec le dernier date.


Result devrait être : les vendeurs SoldDate
AAAA de catégorie du

Product Bill 1111 J. 03/15/2010
BBBB 3333 Ken M. 05/01/2010
CCCC 4444 John B. 02/16/2010

To précisent : Pour moi il n'est pas important si le disque pour le produit BBBB est 3333 Ken M. 05/01/2010 ou BBBB 4444 Jonh B. 05/01/2010 car tous les deux ont la même chose la plus défunte date 05/01/2010
The mêmes est avec le disque pour le produit CCCC 4444 John B. 02/16/2010 qu'il pourrait être CCCC 5555 John B. 02/16/2010 car tous les deux ont la même chose le besoin vendu du
I de la date 02/16/2010 juste choisissent le rapport qui tirera ce résultat comme ci-dessus de mes tlbSales de table dans le disque du serveur 2008.
One de SQL par produit qui le plus tard a vendu la date :
class= de

Réponse : Un disque par dernière date

Construire alors juste une table provisoire qui tient TOUS LES noms dans un domaine simple, avec une adresse :

Currentdb.Execute « choisissent l'adresse, le csz DANS YourTempTable d'adresse distincte choisie, csz de YourExistingTable »

Ajouter maintenant un champ de SendTo :

Currentdb.Execute « CHANGENT la TABLE YourTempTable AJOUTENT le TEXTE de SendTo de COLONNE (255) »

Établir maintenant un recordset où vous pouvez faire une boucle par tous les noms pour une adresse spécifique + un csz, et enchaîner les noms :

Obscurcir le rst comme DAO.Recordset
Obscurcir les rstNames comme DAO.Recordset
Obscurcir les sNames comme corde

placer le rst = le Currentdb.OpenRecordset (« CHOISIR * À PARTIR de YourTempTable »)

Faire jusqu'à rst.EOF
  Placer les rstNames = le Currentdb.Openrecordset (« CHOISIR * À PARTIR de YourExistingTable OÙ [adresse] = ' » et rst (« adresse ») et » « ET csz= » » et rst (le « csz ») et » ') « 
  sNames = ""
  Faire jusqu'à rstNames.EOF
    sNames = sNames et vbCrLf et rstNames (« First_Name ») et » « et rstNames (« Last_Name »)
    rstNames.movenext
  Boucle
  rst. Éditer
  rst (« SendTo ») = sNames
  rst. Mise à jour
Boucle