A.S.C Filtre, Grafik ve Raporlama Eklentisi

Rastgele Sayıya Göre Rapor Açma
#7
dosyanızı denediğimde bir sorunla karşılaşmadım bazen tekrar tekrar aynı sayıları verse de yeterince rasgele sayı üretince tüm kayıtlar geldi
8 kayıt için bahsettiğiniz aynı sayıların sık sık tekrar etmesi normaldir. aynı şeyi 30-40 kayıtta denerseniz sonuç daha raslantısal olacaktır



  Alıntı
Bu mesajı beğenenler:
#8
(07-06-2021, 16:48)halily demiş ki: dosyanızı denediğimde bir sorunla karşılaşmadım bazen tekrar tekrar aynı sayıları verse de yeterince rasgele sayı üretince tüm kayıtlar geldi
8 kayıt için bahsettiğiniz aynı sayıların sık sık tekrar etmesi normaldir. aynı şeyi 30-40 kayıtta denerseniz sonuç daha raslantısal olacaktır

Mesela şu ekte gönderdiğim dosyada Tablo1'de 664 tane kayıt var. 

açıyorum dosyayı butona tıklayınca ilk sayı 469 veriyor tekrar tıklıyorum 355 sayısını veriyor (469,355,385,193,201 diye gidiyor) buraya kadar sıkıntı yok. 

Yalnız Programı her kapatıp açtığımda  sırasını bozmadan yine aynı sayıları veriyor (469, 355, 385, 193, 201) 

Ağa bağlı başka bilgisayarda denediğimde yine aynı şekilde oluyor.

Sıkıntı bizim bilgisayarlardan mı kaynaklı programdan mı kaynaklı bilemedim.


Eklenti Dosyaları
.rar   Yeni Microsoft Access Veritabanı (2).rar (Boyut: 21,82 KB / İndirilme: 10)



  Alıntı
Bu mesajı beğenenler:
#9
dener misiniz?
ama bu yaklaşım sorunlu arada silinen kayıtlar olunca raporda olmayan kayda gönderdiğinde boş sayfa gelir
Visual Basic
  1. Private Sub Komut2_Click()
  2. Dim toplam, rastgele As Integer
  3.  
  4. toplam = DCount("*", "[Tablo1]")
  5. Randomize ' <==eklenen satır
  6. rastgele = Int((toplam - 1 + 1) * Rnd + 1)
  7. Metin0 = rastgele
  8. End Sub





  Alıntı
Bu mesajı beğenenler:
#10
raporun sorgu kaynağını aşağıdaki kodla değiştirirp dener misiniz?
SQL
  1. SELECT TOP 1 Tablo1.*, *
  2. FROM Tablo1
  3. ORDER BY Rnd(-[Kimlik]*TIME());





  Alıntı
Bu mesajı beğenenler:
#11
Merhabalar,
Yardımcı olmaya çalışan arkadaşlara çok teşekkür ederim. Yalnız hep aynı sonucu verdi. İnternette araştırma yaparken rnd fonksiyonun bir üst satırına Randomize yazmak gerekiyormuş. O şekilde yaptım sorunsuz çalışıyor şimdi. 


Dim toplam, rastgele As Integer
toplam = DCount("*", "[AccessBilgiler]")
Randomize
rastgele = Int((toplam - 1 + 1) * Rnd + 1)
DoCmd.SetFilter , "[Kimlik] = " & [rastgele] & ""



  Alıntı
Bu mesajı beğenenler:
#12
yalnız 10. mesajda belirtmiştim Randomize fonksiyonunu.
ayrıca 11. mesajdaki yöntemi denediğimde her defasında farklı değerler getirdi rapor(uygulamayı kapatıp açtığımda da)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Listbox çift Tıklama Olayında Kayda Göre Pencere Açma Hk. volki3301 1 101 01-06-2021, 15:00
Son Mesaj: onur_can
  [FORM] Form Açma Hatası anno 7 230 17-04-2021, 01:16
Son Mesaj: userx53
  [FORM] Altform'dan Rastgele Seçim Yaparak Istenilen Textbox'a Veri çekmek kamil_55 1 123 17-03-2021, 18:55
Son Mesaj: iscinar
  [VBA] Sürekli Form çift Tıkla Açma benuva 2 171 03-02-2021, 13:14
Son Mesaj: benuva
  Formda Acılan Kutu Değerine Göre Rapor eagle28 4 227 19-01-2021, 21:50
Son Mesaj: eagle28
  [VBA] Aynı Formu Birden Fazla Açma hedefkaya 8 612 20-09-2020, 23:44
Son Mesaj: halily
  [RAPOR] Açılan Kutudan Yapılan Seçime Göre Rapor Listelemek programmer67 3 218 03-09-2020, 12:04
Son Mesaj: userx53
  Klasör Içindeki Pdf Dosyalarını Combobox Tan Seçerek Açma cozum@msn.com 1 286 21-05-2020, 14:04
Son Mesaj: dsezgin

Foruma Git:


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