access 無作為抽出をしたい

数百件あるレコードから無作為で１０数件のレコードを抽出するようなことできますか？
・重複データははきださない。
・できればやるたびに違う結果がでる。
・たとえば果物から１０件、野菜から１２件…ということができればなお嬉しいです。
できなければ果物や野菜だけはきだしてから、個別に抽出しますが…。

No.2 回答者： mataro 回答日時： 2003/06/03 16:11

こんにちは。

以前似たものを造ったことがあります。（但し、ＶＢＡとＳＱＬの知識が必要です。）
方法としては、
１．抽出元のテーブルにオートナンバー（もしくはその代わりになるもの）を付ける
２．ＲＮＤ関数を使用して無作為のレコードを抽出する
（ＲＮＤ関数で得た数字を利用して、ＤＬＯＯＫＵＰ関数でデータ抽出）
３．抽出したデータを抽出先テーブルに登録
（ＤＯＣＭＤ．ＲＵＮＳＱＬにて”ＩＮＳＥＲＴ～”で登録）
４．２～３をＤＯ　～　ＬＯＯＰにて件数分登録されるまで処理をする

です。

＞・重複データははきださない。
　抽出先に登録する前に既に登録されてないかチェックすればいいです。（ＤＣＯＵＮＴを使用）
＞・できればやるたびに違う結果がでる。
　ＲＮＤ関数を使用する前にＲＡＮＤＯＭＩＺＥステートメントを実行すればいいです。
＞・たとえば果物から１０件、野菜から１２件…ということができればなお嬉しいです。
色々方法はありますが、品物ごとにＤＯ～ＬＯＯＰを作成すればいいと思います。

何かあれば補足します。

No.1 回答者： noname#4564 回答日時： 2003/06/03 16:09

　

> 数百件あるレコードから無作為で１０数件のレコードを抽出するようなことできますか？
> ・重複データははきださない。
> ・できればやるたびに違う結果がでる。

Rnd関数で重複しない一意な乱数列を必要件数だけ生成し、Top句、またはAbsolutePositionでレコードを抽出すれば、可能と思われます。