Frage : Eine Aufzeichnung pro spätestes Datum

Ich habe Tabelle tblSales in dieser Tabelle I, folgende Felder und Daten zu haben:

Product Kategorien-Verkäufer SoldDate
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 Notwendigkeit 1111, gerade eine Aufzeichnung pro Produkt mit spätestem Verkaufsdate.


Result auszuziehen sollte sein:

Product Kategorien-Verkäufer SoldDate
AAAA Bill 1111 J. 03/15/2010
BBBB 3333 Ken M. 05/01/2010
CCCC 4444 John B. 02/16/2010

To unterstreichen: Für mich ist es nicht wichtig, wenn Aufzeichnung für Produkt BBBB 3333 Ken M. 05/01/2010 ist, oder BBBB 4444 Jonh B. 05/01/2010, da beide die selben spätestes Datum 05/01/2010
The selben haben, mit Aufzeichnung für Produkt CCCC 4444 John B. ist, 02/16/2010, das es CCCC 5555 John B. 02/16/2010 sein könnte, da beide die selben Verkaufsdatum 02/16/2010
I gerade Notwendigkeit vorwählen Aussage haben, die dieses Resultat als oben von meinen Tabelle tlbSales in der Aufzeichnung des SQL-Servers 2008.
One pro Produkt zieht, das spät Datum verkauft:

Antwort : Eine Aufzeichnung pro spätestes Datum

Eine temporäre Tabelle, die ALLE Namen in einem einzelnen Feld hält, zusammen mit einer Adresse dann einfach errichten:

Currentdb.Execute „vorwählen Adresse, csz IN YourTempTable von der auserwählten eindeutigen Adresse, csz VON YourExistingTable“

Ein SendTo Feld jetzt addieren:

Currentdb.Execute „ÄNDERN TABELLE YourTempTable ADDIEREN SPALTE SendTo TEXT (255)“

Ein recordset jetzt errichten, in dem Sie durch alle Namen für eine spezifische Adresse + ein csz schlingen können, und die Namen verketten:

Rst als DAO.Recordset verdunkeln
rstNames als DAO.Recordset verdunkeln
sNames als Schnur verdunkeln

rst = Currentdb.OpenRecordset einstellen („* VON YourTempTable VORWÄHLEN“)

Bis rst.EOF tun
  rstNames = Currentdb.Openrecordset einstellen („* VON YourExistingTable VORWÄHLEN, WO [Adresse] = '“ u. rst („Adresse“) u.“ „UND csz=““ u. rst („csz“) u.“ ') „
  sNames = ""
  Bis rstNames.EOF tun
    sNames = sNames u. vbCrLf u. rstNames („First_Name“) u.“ „u. rstNames („Last_Name“)
    rstNames.movenext
  Schleife
  rst. Redigieren
  rst („SendTo“) = sNames
  rst. Update
Schleife