Vraag : Één verslag per recentste datum

Ik heb lijst tblSales in deze tabel 1 volgende gebieden en gegevens hebben: de Verkopers SoldDate
AAAA 1111 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

Product/>I behoefte zouden/>


Result terug te trekken moeten zijn: de Verkopers van de Categorie

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

To wijzen op: Voor me is het niet belangrijk als het verslag voor product BBBB 3333 Ken M. 05/01/2010 is of BBBB 4444 Jonh B. 05/01/2010 aangezien allebei het zelfde recentste zelfde/>The van de Datum 05/01/2010
I enkel behoefte
One- verslag per Product zal trekken dat laatst datum heeft verkocht:

Antwoord : Één verslag per recentste datum

Dan bouw enkel een tijdelijke lijst die ALLE namen op één enkel gebied, samen met een adres houdt:

Currentdb.Execute „selecteer Adres, csz IN YourTempTable VAN Uitgezocht Verschillend Adres, csz VAN YourExistingTable“

Voeg nu een gebied SendTo toe:

Currentdb.Execute „VERANDER LIJST YourTempTable TOEVOEGEN de TEKST van SendTo van de KOLOM (255)“

Bouw nu een recordset waar u door alle namen voor een specifiek Adres kunt van een lus voorzien + csz, en de namen aaneenschakelen:

Verduister rst als DAO.Recordset
Verduister rstNames als DAO.Recordset
Verduister sNames als Koord

plaats rst = Currentdb.OpenRecordset („SELECTEER * UIT YourTempTable“)

Doe tot rst.EOF
  Plaats rstNames = Currentdb.Openrecordset („SELECTEER * UIT YourExistingTable WAAR [Adres] = '“ & rst („Adres“) &“ „EN csz=““ & rst („csz“) &“ ') „
  sNames = ""
  Doe tot rstNames.EOF
    sNames = sNames & vbCrLf & rstNames („First_Name“) &“ „& rstNames („Last_Name“)
    rstNames.movenext
  Lijn
  rst. Geef uit
  rst („SendTo“) = sNames
  rst. Update
Lijn