Rnd без повторов - это реально?

[alehander]

Доброе время суток. Господа, прошу помощи.
есть таблица temp_4. Поля id -integer,id_predm-integer,id_vb-counter.
2 таблица vopr_tmp.
Поля id -integer, id_predm-integer,id_vb-counter.
Задача такая рандомно выбирается id из таблицы temp_4 и заносится в таблицу vopr_tmp.
Я рандом делаю так
x=dcout("[id_vb],temp_4")
for a=1 to z
'где z число вносимое userом
c=int ((x*rnd())+1)
docmd.runsql("INSERT INTO vopr_tmp Select temp_4.id,id_predm from temp_4 where id_vb=c")
next a
Это работает без проблем.
вопрос как занести в vopr_tmp рандомно выбранные значения чтобы они не повторялись.
ну чтообы если рандом выбрал число 5, то чтобы он это число затем не выбирал

[Antonariy]

Сделать в vopr_tmp уникальный индекс по нужному полю. Если это sql сервер, добавить опцию игнорирования повторов.

[alehander]

это бд в ACCESS 2000 офис.
Возможно я не правильно изложил вопрос? Как выбрать рандомом определенное количество записей, таким образом, чтобы рандом если он уже выбран больше не выбирался?
Возможно это можно сделать так, я только не могу сообразить код.
создается таблица проба.
рандом выбирает значение например 7.
вызываются все значения из пробы и сравниваются с семеркой,
если 7 уже есть рандом выбирает другое значение и тоже сравнивает со всеми значениями в таблице.
если этого значения в таблице проба нет, то это значение заносится в таблицу проба и происходит
docmd.runsql("INSERT INTO vopr_tmp Select temp_4.id,id_predm from temp_4 where id_vb=c")
Надеюсь выразился понятно. Надеюсь на помощь.

[alibek]

Создаешь пул, выбираешь случайный элемент, удаляешь элемент из пула.

[Antonariy]

Еще раз говорю, сделать в vopr_tmp уникальный индекс по этому рандомному полю. В этом случае при добавлении docmd.runsql("INSERT INTO vopr_tmp Select temp_4.id,id_predm from temp_4 where id_vb=c") повторного значения возникнет ошибка, которую можно обработать.

[VVitafresh]

Antonariy, мне кажется alibek предложил более интересный вариант.
В твоем случае, когда количество доступных значений (которые выбираются из исходной таблицы) подходит к концу придется обрабатывать все больше исключений (или ошибок, как правильней сказать?).
У alibek'a никаких исключений вообще не должно возникать.

[alehander]

Господа, объясните что такое пул? Это какая нибудь временная таблица, я правильно понял? И как можно работать с пулом используя vba and sql?

[GSerg]

Если у тебя есть 500 рублей купюрами по 100, то это пул из пяти элементов... Как с ним работать? Как с любым другим пулом, беря и возвращая (если надо) элементы...

[alehander]

Спасибо за объяснение. А синтаксис не подскажите а то у меня литературы нормальной нет, есть пара самоучителей, а там про программирование пара строчек. Нормальный литературы не могу найти.