С только 5 другими возможностями, оно было бы несколько iffy для того чтобы получить поистине случайно деталь, но вы можете сделать пользу Rnd и хаотизировать функцию как показан ниже «для того чтобы приказать» временно таблицу в случайно заказе. Я имел названную таблицу «tCustomers», и строил вопрос для того чтобы показать мои новые случайно приказываемые данные.
См. это место, где я беззастенчиво скопировал идеи сердечника для этого метода:
http://www.fontstuff.com/vba/vbatut02.htmЗаметьте что я добавил названный вопрос «qryRandomRecords». SQL для того вопроса является следующим:
ВЫБЕРИТЕ ВЕРХНЮЮ ЧАСТЬ 25 tmpCustomers.sName, tmpCustomers.sStreet, tmpCustomers.RandomNumber
ОТ tmpCustomers
ЗАКАЗ tmpCustomers.RandomNumber;
Вы smogли использовать это для того чтобы построить таблицу temp для ваших salespeople, тогда как раз хватаете первый показатель возвращенный тем вопросом:
Тусклое rst как DAO.Recordset
Установите rst = Currentdb.OpenRecords («ОТБОРНУЮ
ВЕРХНЮЮ ЧАСТЬ 1 ОТ qryRandomRecords»)
Rst Msgbox. Поля (0)