+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Soru Bankasinin bitmiş hali, fakat küçük bir problemi mevcut (/konu-soru-bankasinin-bitmis-hali-fakat-kucuk-bir-problemi-mevcut.html)
Sayfalar:
1
2
Soru Bankasinin bitmiş hali, fakat küçük bir problemi mevcut - iterlemez - 05/12/2010
Uzmanlık ve Tıpla ilgili sınavlara hazırlananlar için içinde 5000 soru olan Soru bankasının bitmiş halini sunuyorum. Küçük bir sorun şu.
Forum'da yandaki dallara tıklandığında o bölüm ile igili sorular geliyor ve güzelce sorular çıkıyor. fakat sorular herzaman tablodaki sıraya göre geliyor. ben o soru sırasının rastgele olmasını istiyorum. Yani Nöroloji bölümünden 500 soru çözüldüğünde ve program kapatıldığında tekrar açıldığında 500 soruyu tekrar geçmek gerekir ki 501. soru çıksın. yani soruların sırasının karıştırılmasını istiyorum
Cvp: Soru Bankasinin bitmiş hali, fakat küçük bir problemi mevcut - alpeki99 - 05/12/2010
Akşam müsait olduğumda programı indirip inceleyeceğim ancak ipucu isterseniz Random komutunu incelemenizi tavsiye ederim.
Cvp: Soru Bankasinin bitmiş hali, fakat küçük bir problemi mevcut - iterlemez - 05/12/2010
Biraz araştırdım fakat atağa geçmekte zorlanıyorum.
Soldan bölüm seçildiğinde belli sayıda soru açılıyor. Bu sorular içinde rastgele gezmek için aklıma şu geliyor. İleri butonuna tıklandığında
Private Sub sonraki_Click()
On Error GoTo Err_sonraki_Click
DoCmd.GoToRecord , , acNext
Me.answer.Visible = False
Exit_sonraki_Click:
Exit Sub
Err_sonraki_Click:
MsgBox Err.Description
Resume Exit_sonraki_Click
End Sub
DoCmd.GoToRecord,,acNext yerine
DoCmd.GoToRecord acDataForm, "NeuroBoards", acGoTo, 7 yazmak (7 nolu kayıta gidiyor) 7 yerine toplam soru sayısını Random şeklinde nasıl yazmak gerektiğini düşünüyorum.
Random'u inceledim ama sonuç alamadım
Cvp: Soru Bankasinin bitmiş hali, fakat küçük bir problemi mevcut - Puletin - 05/12/2010
Private Sub noroloji_Click()
Form.RecordSource = "SELECT TOP 50 neuroBoards.mainCategory, neuroBoards.question, neuroBoards.answer FROM neuroBoards WHERE (((neuroBoards.mainCategory)=14)) ORDER By rnd(-(questionID)*Time());"
End Sub"TOP 50" bölümünü kendinize göre değiştire bilirsiniz...
Cvp: Soru Bankasinin bitmiş hali, fakat küçük bir problemi mevcut - iterlemez - 05/12/2010
Pardon bu tablodaki ilk 50 kaydı mı alıyor.
Ben Herhangi bir bölüme tıklandığı zaman o bölüm içerisinde rastgele soruları karıştırnasını istemiştim. yani program her açılışında soruların sırasını karıştırsın aynı soruları sormasın istemiştim
Cvp: Soru Bankasinin bitmiş hali, fakat küçük bir problemi mevcut - iterlemez - 05/12/2010
"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.
Puletin kardeş teşekkür. Bu da işe yarar fakat bölüm seçildikten sonra da ileri butonuna tıklandığında rastgele o bölüm içinden de soru çıksa fena olmaz