Pergunta : Um registro por a data a mais atrasada

Eu tenho tblSales da tabela nesta tabela que eu tenho campos e dados seguintes: a necessidade 1111 do
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 dos vendedores da categoria do

Product de retirar apenas um registro por o produto com o date.


Result deve ser: os vendedores SoldDate
AAAA da categoria do

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

To indic: Para mim não é importante se o registro para o produto BBBB é 3333 Ken M. 05/01/2010 ou BBBB 4444 Jonh B. 05/01/2010 como ambos têm o mesmos a data a mais atrasada 05/01/2010
The mesmos é com registro para o produto CCCC 4444 John B. 02/16/2010 que ele poderiam ser CCCC 5555 John B. 02/16/2010 porque ambos têm o mesmos necessidade vendida do
I da data 02/16/2010 apenas selecionam a indicação que puxará este resultado como acima de meus tlbSales da tabela no registro do usuário 2008.
One do SQL por o produto que tem vendido o mais tarde a data:
class= do

Resposta : Um registro por a data a mais atrasada

Então apenas construir uma tabela provisória que prenda TODOS OS nomes em um único campo, junto com um endereço:

Currentdb.Execute “selecionam o endereço, csz em YourTempTable do endereço distinto seleto, csz de YourExistingTable”

Adicionar agora um campo de SendTo:

Currentdb.Execute “ALTERAM a TABELA YourTempTable ADICIONAM o TEXTO de SendTo da COLUNA (255)”

Construir agora um recordset onde você possa dar laços com todos os nomes para um endereço específico + um csz, e concatenar os nomes:

Escurecer o rst como DAO.Recordset
Escurecer rstNames como DAO.Recordset
Escurecer sNames como a corda

ajustar o rst = o Currentdb.OpenRecordset (“SELECIONAR * de YourTempTable”)

Fazer até rst.EOF
  Ajustar rstNames = Currentdb.Openrecordset (“SELECIONAR * de YourExistingTable ONDE [endereço] = '” & rst (“endereço”) &” “E csz=”” & rst (o “csz”) &” ') “
  sNames = ""
  Fazer até rstNames.EOF
    sNames = sNames & vbCrLf & rstNames (“First_Name”) &” “& rstNames (“Last_Name”)
    rstNames.movenext
  Laço
  rst. Editar
  rst (“SendTo”) = sNames
  rst. Atualização
Laço