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

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

dener misiniz?
ama bu yaklaşım sorunlu arada silinen kayıtlar olunca raporda olmayan kayda gönderdiğinde boş sayfa gelir

raporun sorgu kaynağını aşağıdaki kodla değiştirirp dener misiniz?

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] & ""

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)