Skip to main content

AccessTr.neT


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

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

#1
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
.rar SoruBankasi.rar (Dosya Boyutu: 308,57 KB | İndirme Sayısı: 125)
iterlemez, 18-07-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Akşam müsait olduğumda programı indirip inceleyeceğim ancak ipucu isterseniz Random komutunu incelemenizi tavsiye ederim.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#3
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

iterlemez, 18-07-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 05/12/2010, 16:55, Düzenleyen: iterlemez.
Cevapla
#4
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...
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
#5
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
iterlemez, 18-07-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
"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
iterlemez, 18-07-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da