![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_03.png?e8efa67)
はじめまして。access初心者です。
Rnd乱数を使ってテーブルからランダムにフォームに表示するおみくじのようなモノを作っています。テーブルには「CD」のフィールドを作り連番で整数を並べ、発生する乱数はこの範囲に指定し、テーブルのレコードを追加することでおみくじの回答を増やせる仕組にしています。
実際、動かすとランダムにおみくじの回答がフォームに表示されるのですが、一度accessを閉じて開いた場合の1回目の回答が毎回同じになってしまいます。(続けて2回目ですとランダムに出ます)原因や回避方法はあるのでしょうか?また、ファイルの保存先はファイルサーバーである事も何か影響あるのでしょうか?
ご教授願えれば幸いです。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
Googleででも「乱数 種」で照会し、多数出る記事を読んでください。
こういうことも知らず、乱数ーー>RNDだ、と使っているからの疑問ではないかな。http://itpro.nikkeibp.co.jp/article/COLUMN/20080 …
辺りがわかりやすいかな。
対策・やり方は、上記にも#1にも出ているRandomizeで行う。
No.1
- 回答日時:
どういうコードを書いていますか?提示をお願いします。
ちなみに「Randomize」は入れてますか?
この回答への補足
回答ありがとうございます。コードは下記の通りです。教本等を見て書きました。
Private Sub Form_Open(Cancel As Integer)
Dim mi As Long
Dim ma As Long
mi = DMin("占いcd", "t_占い")
ma = DMax("占いcd", "t_占い")
Me![cd] = Int((ma - mi + 1) * Rnd + mi)
Me.RecordSource = "q_占い表示"
「t_占い」と言うテーブルに「占いcd」フィールドを作り整数を入れています。このテーブルを基にしたクエリ「q_占い表示」の抽出条件に発生した乱数を当て、ランダムに選択させているつもりです。
文章がへたくそですみません。伝わったでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Access(アクセス) Accessテキストボックス内に2つのフィールドの値を比較して大きい方の値を表示させる方法 1 2022/09/09 10:50
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセス・テーブルの改行につ...
-
ACCESSの時刻の引き算
-
Access フォーム上でのテキス...
-
クエリ上でフィールド名が2つ...
-
Access 別テーブルにある値を抽...
-
アクセス: フォーム上で計算...
-
Accessで更新履歴情報を保存(...
-
アクセスでフォームに入力した...
-
ACCESSのリストボックスで複数...
-
アクセスの追加クエリで教えて...
-
アクセスでの、フォームとテー...
-
access テーブルの色分けについて
-
INT関数のバグ?
-
アクセス:SQLでフィールド...
-
アクセスでテーブル入力用のフ...
-
accessにてフォームの計算
-
access2003の乱数で・・・
-
日付型のフィールドに空白を入...
-
差込印刷での全角表示について...
-
SQL文で パラメータが少なすぎ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
クエリ上でフィールド名が2つ...
-
アクセス・テーブルの改行につ...
-
Accessで更新履歴情報を保存(...
-
アクセス: フォーム上で計算...
-
Access フォーム上でのテキス...
-
ACCESSの時刻の引き算
-
Access 別テーブルにある値を抽...
-
アクセスクエリで英数字のみ半...
-
INT関数のバグ?
-
アクセスでの、フォームとテー...
-
アクセス:SQLでフィールド...
-
access テーブルの色分けについて
-
ACCESSのリストボックスで複数...
-
アクセスでフォームに入力した...
-
アクセスに自動入力を入れたい
-
Accessでチェックボックスから...
-
アクセスでテーブル入力用のフ...
-
Access 住所入力支援が機能しま...
-
Access ルックアップが反映され...
-
Access フォームで複数テーブル...
おすすめ情報