Вопрос : Один показатель в самую последнюю дату

Я имею tblSales таблицы в этой таблице, котор я имею следующие поля и данные: потребность 1111 B. 02/16/2010
CCCC 5555 Кен M. 01/20/2010

I B. 02/16/2010
CCCC 5555 Джон L. 04/15/2010
BBBB 3333 Кен M. 05/01/2010
BBBB 4444 Питер S. 05/01/2010
CCCC 4444 Джон J. 03/15/2010
BBBB 2222 Джанет B. 02/14/2010
AAAA 1111 Билл
AAAA Джон SoldDate продавецов категории

Product вытянуть вне как раз один показатель в продукт с самым последним проданным date.


Result должна быть: пункт B. 02/16/2010

To J. 03/15/2010
BBBB 3333 Кен M. 05/01/2010
CCCC 4444 Джон SoldDate
AAAA 1111 Билл продавецов категории

Product вне: Для меня не важно если показатель для продукта BBBB 3333 Кен M. 05/01/2010 или B. 05/01/2010 BBBB 4444 Jonh по мере того как оба имеют эти же самая последняя дата 05/01/2010
The такие же будет с показателем на продукт CCCC B., то 02/16/2010 4444 Джон, котор оно smogло быть CCCC B. 02/16/2010 5555 Джон по мере того как оба имеют эти же проданная потребность
I даты 02/16/2010 как раз выбирают заявление вытянет этот результат как выше от моих tlbSales таблицы в показателе сервера 2008.
One SQL в продукт наиболее поздно продавал дату:
class=

Ответ : Один показатель в самую последнюю дату

После этого как раз построьте временно таблицу держит ВСЕ имена в одиночном поле, вместе с адресом:

Currentdb.Execute «выбирают адрес, csz В YourTempTable ОТ отборного определенного адреса, csz ОТ YourExistingTable»

Теперь добавьте поле SendTo:

Currentdb.Execute «ИЗМЕНЯЮТ ТАБЛИЦУ YourTempTable ДОБАВЛЯЮТ ТЕКСТ SendTo КОЛОНКИ (255)»

Теперь построьте recordset где вы можете закрепить петлеть через все имена для специфически адреса + csz, и конкатенируйте имена:

Затемните rst как DAO.Recordset
Затемните rstNames как DAO.Recordset
Затемните sNames как шнур

установите rst = Currentdb.OpenRecordset («ВЫБЕРИТЕ * ОТ YourTempTable»)

Не сделать до rst.EOF
  Установите rstNames = Currentdb.Openrecordset («ВЫБЕРИТЕ * ОТ YourExistingTable ГДЕ [адрес] = '» & rst («адрес») &» «И csz=»» & rst («csz») &» ') «
  sNames = ""
  Не сделать до rstNames.EOF
    sNames = sNames & vbCrLf & rstNames («First_Name») &» «& rstNames («Last_Name»)
    rstNames.movenext
  Петля
  rst. Редактируйте
  rst («SendTo») = sNames
  rst. Уточнение
Петля