A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Rastgele Soru (Access Testi-Taruz)
#1
Merhaba,

Sn.Taruz'un Access Testi Uygulaması örneğinde tabloda bulunan sorular her açılışta sırasıyla başlamaktadır. Oysa program her açıldığında tabloya eklenecek 300 sorudan rastgele 20 tanesini arka arkaya sormasını mümkün kılmak için ne yapılabilir ?

Bununla ilgili bir örnek veya ilgili uygulamaya entegre edilebilecek bir örnek varsa linkide olsa kafi bildirebilirmisiniz ?

Teşekkürler.



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba..

RND fonksiyonu amacınız için uygundur..:

Rnd Fonksiyonu

SORU 26: Rastgele isim (Çekiliş)



  Alıntı
Bu mesajı beğenenler:
#3
Sn.Taruz,

Öncellikle ilgilenip cevap verdiğiniz için teşekkürler.. Verdiğiniz örneklerden yola çıkarak bir sorgu oluşturup ölçüt kısmına Rnd fonksiyonunu (Farklı şekillerde deneyerek) girdim. Sorgu her açıldığında farklı 1 soru (oysa 20 soru gelse hallolacak sanırım) ile açıldı.

TSORU formunun kaynağını bu sorguya yönlendirdim. Bu formda her açıldığında farklı sorgudan başlıyor.

Buraya kadar güzel ancak çıkan soruyu cevaplayıp yeni soruya geçtiğimde "soru alanı" boş geliyor F5 ile yenilediğimde doluyor buna bir çözüm bulamazmıyız ?



  Alıntı
Bu mesajı beğenenler:
#4
SQL
  1. SELECT TOP 20 TSORU.ID, TSORU.SORU, TSORU.CEVAP, TSORU.VERILENCEVAP, TSORU.resim
  2. FROM TSORU
  3. ORDER BY Rnd([ID]);



Bu kodla istediğim sonuca bir nebze olsun yaklaştım ama form kısmında gene hatalar alıyorum. Bu seferde "soruyu yanıtlamadınız" gibi abuk bir sorunla karşılaşıyorum. Sanırım formun kaynağını sorguya yönlendirmek sıkıntı yaratıyor..


Eklenti Dosyaları
.zip   AccessForumlari_Test(2).zip (Boyut: 161,99 KB / İndirilme: 30)



  Alıntı
Bu mesajı beğenenler:
#5
Sn yasilkan; form uzerine iliskisiz metin kutusu olusturun ve adini SoruSayisi yapin. Guncelleme olayina asagidaki kodu tasiyip, calistirilmasini saglayin. Form verileri rastgele TSORU tablosundaki kayitlari suzecektir. Sayin Taruz hocamin VT'na ait form sayaclari ile VB kodlarin da kayit sayisina ait satirlar duzeltilmesi gerekiyor.
Private Sub SoruSayisi_AfterUpdate()
Call Ragtgele
End Sub

Sub Ragtgele()
Dim Kac, Kez, Sayi As Long, Cikti As String
Kac = Me.SoruSayisi
For Kez = 1 To Kac
Yeni:
Sayi = Int((DMax("[ID]", "TSORU") - 1 + 1) * Rnd + 1)
If Cikti <> "" And Cikti Like "*" & Sayi & "*" Or DCount("*", "TSORU", "[ID]=" & Sayi) = 0 Then GoTo Yeni
Cikti = Cikti & Sayi & ","
Next Kez
Me.RecordSource = "Select * From TSORU where ((ID) In(" & Cikti & "))"
Me.Requery
End Sub




  Alıntı
Bu mesajı beğenenler:
#6
Sn.dsezgin83260,

Nasıl uygulayacağımı anlayamadım özür dilerim.. Dediklerinizi yaptım ancak sorular halen tsoru tablosundaki sıra ile geliyor.. Uygulama üzerinde göstererek eklemeniz mümkünse müteşekkir olurum..



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Taruz Hocamızın Gelişmiş Yönetici Araçları (Yönetim Paneli) Örneği M_Kemal_Askeri 0 601 12-07-2018, 21:10
Son Mesaj: M_Kemal_Askeri
  [TABLO] Veri Türleri ile alakalı bir soru Sancaktar 2 760 06-02-2018, 10:15
Son Mesaj: Sancaktar
  [SORGU] soru bankası çalışması - her soruda şıkların yerini karıştırmak uzayo 3 3.475 20-01-2018, 11:43
Son Mesaj: romanci
  [VBA] Birkaç Genel Soru alperalper 3 911 03-01-2018, 18:45
Son Mesaj: aydın3838
  [SORGU] Excele Aktarırken Türk Lirası Simgesinin Soru işareti Olarak Gözükmesi mmert06 2 945 29-12-2017, 19:55
Son Mesaj: mmert06
  [FORM] Accesste Formda Random (Rastgele) Çoklu Resim Gösterme Yardım *mehami* 2 1.564 09-05-2017, 10:45
Son Mesaj: dsezgin
  [FORM] Grafik oluşturmayla ilgili bir soru yahyamacit 7 3.098 29-04-2016, 14:56
Son Mesaj: SİNANOZ
  [MAKRO] Taruz Hocanın Programı ekremer1969 3 1.368 20-03-2016, 08:42
Son Mesaj: ekremer1969

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi