ORDER BY RND(ID) каждый раз разный

Добрый вечер всем.

Столкнулся с такой проблемой: при формировании временной таблицы нужна рандомизация записей (для системы тестирования)
делаю следующим образом

CurrentDb.Execute "SELECT tVoprosi.* INTO " & CurLog & "_temp " & _
                  "FROM tVoprosi WHERE tVoprosi.id_kursa=" & ttt & " ORDER BY rnd(id)"

где CurLog - Windows-логин пользователя
ttt - номер курса

Все отлично формируется, но есть один немаловажный нюнас (уже описаный на форуме, однако оставшийся без решения (может я невнимательно читал?)) -
при закрытии/открытии приложения набор рандомных чисел ОДИНАКОВЫЙ!

Как сделать так, чтобы при каждом открытии формировался разный набор записей?

Заранне благодарен за ответы

Randomize

Владимир Саныч,

а чуточку по-подробнее?

Randomize точно выдает каждый раз новый набор?

ORDER BY rnd(id+Int(Time()*10000))

mds_world,

как-то ничего не поменялось... =((

franck_f

mds_world, как-то ничего не поменялось... =((

Засомневался. Делаю запрос, подставляю сортировку и при каждом запуске она иная. Т.е. именно так, как вы и хотели

franck_f

Как сделать так, чтобы при каждом открытии формировался разный набор записей?

Стоп. Разный набор записей или разная сортировка?

mds_world,

вероятно я некорректно выразился - разный набор записей

Так меняйте ttt, ёлы-моталы.

Трудно сказать, что именно нужно. Ну, например так

Dim s
s=Int(rsd(time)*k)
CurrentDb.Execute "SELECT t.* INTO " & CurLog & "_temp " & _
                  "FROM (Select top " & s & ".* from tVoprosi ) t " _
                  & " WHERE t.id_kursa=" & ttt & " ORDER BY rnd(id)"

Здесь k - ограничитель для максимума случайного числа. Одновременно масштабный коэффициент (в том смысле, что случайные числа должны равномерно распределиться на отрезке 0-k)