Cuestión : Un expediente por la última fecha

Tengo tblSales de la tabla en esta Tabla I tener los campos y datos siguientes: la necesidad 1111 del
AAAA Juan 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 Juan B. 02/16/2010
CCCC 5555 Juan B. 02/16/2010
CCCC 5555 Ken M. 01/20/2010

I de SoldDate de los vendedores de la categoría del

Product de sacar apenas un expediente por producto con el último date.


Result debe ser: los vendedores SoldDate
AAAA de la categoría del

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

To precisan: Para mí no es importante si el expediente para el producto BBBB es 3333 Ken M. 05/01/2010 o BBBB 4444 Jonh B. 05/01/2010 como ambos tienen iguales la última fecha 05/01/2010
The iguales está con el expediente para el producto CCCC 4444 Juan B. 02/16/2010 que él podría ser CCCC 5555 Juan B. 02/16/2010 pues ambos tienen iguales necesidad vendida del
I de la fecha 02/16/2010 apenas seleccionan la declaración que tirará de este resultado como arriba de mis tlbSales de la tabla en expediente del servidor 2008.
One del SQL por el producto que ha vendido lo más tarde posible la fecha:
class= del

Respuesta : Un expediente por la última fecha

Entonces apenas construir una tabla temporal que lleve a cabo TODOS LOS nombres en un solo campo, junto con una dirección:

Currentdb.Execute “seleccionan la dirección, csz EN YourTempTable de la dirección distinta selecta, csz de YourExistingTable”

Ahora agregar un campo de SendTo:

Currentdb.Execute “ALTERAN la TABLA YourTempTable AGREGAN el TEXTO de SendTo de la COLUMNA (255)”

Ahora construir un recordset donde usted puede colocar con todos los nombres para una dirección específica + un csz, y concatenar los nombres:

Amortiguar el rst como DAO.Recordset
Amortiguar los rstNames como DAO.Recordset
Amortiguar los sNames como secuencia

fijar el rst = Currentdb.OpenRecordset (“SELECCIONAR * de YourTempTable”)

Hacer hasta rst.EOF
  Fijar los rstNames = Currentdb.Openrecordset (“SELECCIONAR * de YourExistingTable DONDE [dirección] = '” y rst (“dirección”) y” “Y csz=”” y rst (el “csz”) y” ') “
  sNames = ""
  Hacer hasta rstNames.EOF
    sNames = sNames y vbCrLf y rstNames (“First_Name”) y” “y rstNames (“Last_Name”)
    rstNames.movenext
  Lazo
  rst. Corregir
  rst (“SendTo”) = sNames
  rst. Actualización
Lazo