Soru Bankasinin bitmiş hali, fakat küçük bir problemi mevcut

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...