Access VBA質問箱 IV

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

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


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

6219 / 9994

←次へ　｜　前へ→


	【6983】乱数をレコードで使用

ナオキ - 05/12/15(木) 16:31 -


	引用なし

	パスワード

Randomizeを使用すればいいと分かっているのですが、どうやって使用したらいいのかわかりません。
Private Sub コマンド17_Click()
　If Me!解答選択 = Me!解答Ｄ Then
　　 tensu = tensu + 1
Else
　　　　mis = mis + 1
　End If
If Me.NewRecord = False Then
　　DoCmd.GoToRecord , , acNext
End If
　　点数.Value = tensu
　　ミス.Value = mis
　　goukei = mis + tensu
　　合計.Value = goukei

If goukei = 5 Then
　　　　MsgBox "あなたのこれまでの点数は" & tensu & "です"
　　Select Case tensu
　　　　Case Is < 2
　　　　MsgBox "まだまだですね。修行がたりません！！"
　　　　Case Is < 5
　　　　MsgBox "あ～、、、知ったか程度ですね！"
　　　　Case Else
　　　　MsgBox "おぉ！！やるやん自分！認めちゃる！！"
　　End Select
　DoCmd.GoToRecord , , acFirst
　点数.Value = 0
　ミス.Value = 0
　合計.Value = 0
　tensu = 0
　mis = 0
　goukei = 0
End If
'点数.Value = tensu
'ミス.Value = mis
'goukei = mis + tensu
'合計.Value = goukei
　　End Sub
と、今やています。
とりあえず全レコード数　10　でクイズをしています。三択式のクイズです。
５問といたら評価がでるという仕組みです。今のところ、レコードの順でしか問題がでないのでこれを乱数を使用してレコードをランダムに出題したいと考えています。分かる方いらっしゃいましたら、アドバイスお願いします。

267 hits

▼

【6983】乱数をレコードで使用 ナオキ 05/12/15(木) 16:31

≪