access2003でデータをランダムに抽出したいです。

質問

現在、accessの勉強中です。

データをランダムに抽出して、一度抽出したものは
10回までは抽出されないといったツールが作りたいです。

（例）テーブルに俳句が１００個入っていて、
１日１回、フォームのあるボタンを押すと、その内の５個が選ばれシートに入ります。（印刷に使用）

→２日目ボタンを押すと、新しい５個が選ばれシートに入ります。

これまでに抽出されたデータは
１０日間は同じ俳句が選ばれないようにしたいです。

access VBA で作りたいのですが、
どのように書けばよいのか解りません(>_<)
教えて下さい。

また、レポートでの印刷は可能でしょうか？
併せて教えて下さい。

宜しくお願いしますm(_ _)m

回答No.1

30246kiku · ベストアンサー

１つの実現案になります。

使用するテーブルは以下の２つ（構成等は案です）

・俳句の入っているテーブル

テーブル名：T俳句
フィールド名：an, rd, 俳句
フィールドの型：an(オートナンバ),rd(単精度浮動小数点型),俳句(テキスト型)

・１日５件選んだテーブル（１０日分格納）

テーブル名：T除外
フィールド名：an, 日付
フィールドの型：an(長整数),日付(日付型)

処理の流れ：概要）

１）その日に処理したかは T除外の日付で判別
２）T除外の日付で１０日前のものがあったら、日付をもとに削除
３）乱数を発生させ、T俳句のrdを書き換える
４）T除外にある an 以外のT俳句のrd昇順のTOP 5の an を実施した日付とともにT除外へ登録
５）印刷等はT除外の日付をもとに an とT俳句の an を結び付けて・・・

記述例）

SQLを記述しますが、クエリからでも VBA のExecute からでも処理しやすい方で、、

１）DLookup("日付","T除外","日付 = Date()") Is Null で、今日は処理していない

２）今日より１０日以前のものがあるか判別するなら
DLookup("日付","T除外","日付 < Date()-10") Is Null

そのまま削除するのなら、
DELETE * FROM T除外 WHERE ((T除外.日付) < Date()-10);

３）乱数の書き込み

UPDATE T俳句 SET T俳句.rd = Rnd([an]);

４）T除外にある an 以外で、T俳句 rd 昇順の TOP 5 をT除外に追加

INSERT INTO T除外 ( an, 日付 )
SELECT TOP 5 T俳句.an, Date() AS 日付
FROM T俳句 LEFT JOIN T除外 ON T俳句.an = T除外.an
WHERE ((T除外.an) Is Null)
ORDER BY T俳句.rd;

５）今日選んだ５件の俳句部分を抽出

SELECT T俳句.俳句
FROM T俳句 INNER JOIN T除外 ON T俳句.an = T除外.an
WHERE ((T除外.日付) = Date());

これらを組み合わせていけば、そこそこのものができると思います。

※　シートに入れる、っていうのがわかりませんでした。

お礼

お礼が遅くなってしまい、申し訳ありません。

丁寧なご説明ありがとうございました。