AccessTr.neT

Tam Versiyon: Soru Bankasinin bitmiş hali, fakat küçük bir problemi mevcut
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Dediğiniz şekilde her defasındasoruları karıştırıyor, aynı soruları sormuyor.

Private Sub noroloji_Click()
On Error GoTo Err_noroloji_Click

Dim Sayi As String
Sayi = InputBox("Adet giriniz lütfen", "Çözülecek Soru Adedi")
Form.RecordSource = "SELECT TOP " & Sayi & " neuroBoards.mainCategory, neuroBoards.question, neuroBoards.answer FROM neuroBoards WHERE (((neuroBoards.mainCategory)=14)) ORDER By rnd(-(questionID)*Time());"

Exit_noroloji_Click:
Exit Sub

Err_noroloji_Click:
MsgBox ("Soru Adedi girmediniz")
Resume Exit_noroloji_Click


End Sub


Bununla ile de kullanıcıya istediği kadar soruyu baştan seçe bilme imkanı veriyor ben sadece nöroloji butonuna uyarladım siz kendinize göre ayarlayınız.
(05/12/2010, 19:36)iterlemez yazdı: [ -> ]"WHERE (((neuroBoards.mainCategory)=14))" bu bölümü çıkardım ve Top 100 yaptım. Bu şekilde tüm soruların içinden rastgele 100 soru çekiyor ve test yapabilirsiniz.

Pardon ben bölüme göre soru seçmek istediğinizi düşünmüştüm. Bütün bölümlerden olması için yaptığınız düzenleme doğru. Kolay gelsin.
Pulletin kardeş doğru cevap vermiş fakat ben anlayamadım. Yandaki bölümlere her tıklandığında o bölüm içinde rastgele sorular seçiliyor. Problem çözülmüş. Bir de alta 100 butonu koydum. Rastgele tüm soruların içinden 100 soru seçiliyor.

Problem tamamen çözülmüş. Pulletin ve alpeki üstadlara teşekkür
Paylaşım için teşekkürler Sn iterlemez
Paylaşım ve emek için teşekkürler.

Saygılar...
Sayfalar: 1 2