Fråga : Ett rekord per senast daterar

Jag har att bordlägga tblSales i denna bordlägger mig har sätter in därefter och data: för kategorirepresentanter för

Product för SoldDate handtag 1111 för behov för räkningen 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
AAAA John B. 02/14/2010
AAAA 1111 ut precis ett rekord per produkt med senast såld date.


Result bör vara: för kategorirepresentanter för

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

To pekar ut: För mig det är inte viktigt, om rekordet för produkten BBBB är 3333 Ken M. 05/01/2010, eller BBBB 4444 Jonh B. 05/01/2010, som båda har samma senast att datera 05/01/2010
The samma, är med rekordet för produkt CCCC 4444 John B., 02/16/2010 som det kunde vara CCCC 5555 John B. 02/16/2010, som båda har samma som säljs för att datera 02/16/2010 behov för
I, väljer precis meddelandet som ska handtag detta resultat som från mitt bordlägger över tlbSales i rekord för SQL-server 2008.
One per produkten, som har senast sålt daterar:
" klar "

Svar : Ett rekord per senast daterar

Därefter bygg precis ett tillfälligt bordlägger som rymmer alla namnger i en singel sätter in, tillsammans med en tilltala:

Valda Currentdb.Execute ”tilltalar, csz IN I YourTempTable FRÅN valt distinkt tilltalar, csz FRÅN YourExistingTable”,

Tillfoga nu en SendTo sätter in:

Currentdb.Execute ”FÖRÄNDRAR SIG BORDLÄGGER YourTempTable TILLFOGAR KOLONNSendTo TEXT (255)”,

Bygg nu en recordset var alla du kan kretsa till och med namnger för en närmare detalj tilltalar + csz och länkar samman namnger:

Dunkel rst som DAO.Recordset
Dunkla rstNames som DAO.Recordset
Dunkla sNames som stränger

fastställd rst = Currentdb.OpenRecordset (”VÄLJ * FRÅN YourTempTable”),

Gör till rst.EOF
  Fastställda rstNames = Currentdb.Openrecordset (”VÄLJ * FRÅN YourExistingTable VAR [tilltala] = '” & rst (”tilltala”) &” ”OCH csz=”” & rst (”csz”) &” ') ”,
  sNames = "",
  Gör till rstNames.EOF
    sNames = sNames & vbCrLf & rstNames (”First_Name”) &” ”& rstNames (”Last_Name”)
    rstNames.movenext
  Kretsa
  rst. Redigera
  rst (”SendTo”) = sNames
  rst. Uppdatering
Kretsa