Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4449 / 9994

←次へ　｜　前へ→


	【8791】Re:順不同に並び替え

飛ばない豚 - 06/11/14(火) 19:00 -


	引用なし

	パスワード

▼apple さん：

Rnd()は、ランダムな値を返す関数です。
よって全ての値がユニークになるとは限りません。

それを踏まえた上で、

SELECT テーブル1.フィールド1, Rnd([テーブル1.フィールド1]) AS rd
FROM テーブル1

としてみて下さい。（rdには同じ値もあるかと思います）

完全にユニークにしたいのであれば、
レコードセットを使って、１件ずつ更新していくしかないかと思います。

乱数発行 --> 確認 --> その値が既に使われていれば、再度乱数発行、
使われてなければ、更新

という具合に。

ランダムに並べ替えたいのであれば、上記のクエリで十分かと思います。

SELECT テーブル1.フィールド1,
Rnd([テーブル1.フィールド1]) AS rd,
Rnd([テーブル1.フィールド1]) AS rd2
FROM テーブル1
ORDER BY Rnd([テーブル1.フィールド1]),
Rnd([テーブル1.フィールド1])

ここまでやれば、さらに完璧！？

参考までに。(^･ω･^)

769 hits

▼

【8790】順不同に並び替え apple 06/11/14(火) 17:36