Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Rastgele Sayıya Göre Rapor Açma

Rastgele Sayıya Göre Rapor Açma
dmn815
Yeni Üye 1-15

*
Kayıt Tarihi: 04.06.2021
Toplam 3 konu açtı.
Toplam 11 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#1
04-06-2021, 09:49
Merhabalar
Ekteki Access dosyasının içerisinde yer alan raporu rastgele sayı üretip o sayıya göre filtreleme yaparak açmak istiyorum, yalnız aşağıdaki şekilde filtreleme yapamıyorum.  Konuyla ilgili yardımcı olursanız çok memnun olurum. Şimdiden çok teşekkürler…
 
Private Sub Report_Load()
Dim toplam, rastgele
toplam = DCount("*", "[Tablo1]")
rastgele = Int((toplam - 1 + 1) * Rnd + 1)
DoCmd.SetFilter , [Kimlik] = rastgele
End Sub


Eklenti Dosyaları
.rar   deneme.rar (Boyut: 29,45 KB / İndirilme: 61)



  Bul
  Alıntı
Bu mesajı beğenenler:
userx53
Önemli Üye 200-300

*
Kayıt Tarihi: 08.08.2012
Toplam 0 konu açtı.
Toplam 278 yorum yaptı.
Toplam 137 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 4 / 14
#2
04-06-2021, 16:16
Sayın dmn815
Alttaki kodu dener misiniz?
Visual Basic
  1. Private Sub Report_Load()
  2. Dim toplam, rastgele
  3. toplam = DCount("*", "[Tablo1]")
  4. rastgele = Int((toplam - 1 + 1) * Rnd + 1)
  5. DoCmd.SetFilter WhereCondition:="[Kimlik] = " & [rastgele] & ""
  6. End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:
dmn815
Yeni Üye 1-15

*
Kayıt Tarihi: 04.06.2021
Toplam 3 konu açtı.
Toplam 11 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#3
04-06-2021, 16:23
Sayın userx53 çok teşekkürler.



  Bul
  Alıntı
Bu mesajı beğenenler:
dmn815
Yeni Üye 1-15

*
Kayıt Tarihi: 04.06.2021
Toplam 3 konu açtı.
Toplam 11 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#4
07-06-2021, 12:52
Merhabalar. 

Yukarıdaki konu ile ilgili olarak her defasında ürettiğim sayılar (6, 5, 5, 3) bu şekilde oluyor.  Programı kapatıyorum açıyorum yine bu sırada oluyor. Konuyla yardımcı olabilirmisiniz.



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#5
07-06-2021, 14:25
raporun veri kaynağına aşağıdaki kodu yazar mısınız?
Visual Basic
  1. SELECT TOP 1 Tablo1.*, *
  2. FROM Tablo1
  3. ORDER BY Rnd(Kimlik);





  Bul
  Alıntı
Bu mesajı beğenenler:
dmn815
Yeni Üye 1-15

*
Kayıt Tarihi: 04.06.2021
Toplam 3 konu açtı.
Toplam 11 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#6
07-06-2021, 16:25 (En son düzenleme: 07-06-2021, 16:25 dmn815.)
(07-06-2021, 14:25)halily demiş ki: raporun veri kaynağına aşağıdaki kodu yazar mısınız?
Visual Basic
  1. SELECT TOP 1 Tablo1.*, *
  2. FROM Tablo1
  3. ORDER BY Rnd(Kimlik);


Sayın halily dediğiniz şekilde yaptım. Ama diğerinden bir farkı olmadı. Örnek dosyayı yüklüyorum


Eklenti Dosyaları
.rar   deneme.rar (Boyut: 35,35 KB / İndirilme: 56)



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [RAPOR] Access De Ki Raporu Word Belgesi Olarak Vba Kodu Ile Açma Ahmet51 10 990 01-08-2024, 10:28
Son Mesaj: dsezgin
  Rastgele Ara adnan 11 810 27-07-2024, 21:31
Son Mesaj: adnan
  Klasor Açma Kars36 6 6.147 14-11-2023, 15:35
Son Mesaj: vetaltan
  [FORM] Içinde Başka Form Olan Formu Gizli Açma hedefkaya 8 853 27-03-2023, 17:05
Son Mesaj: hedefkaya
  [VBA] Alt Rapor Içeren Bir Rapor Her Personel Için Ayrı Excel Sayfasına Atılabilir Mi? abkbek 12 1.463 29-01-2023, 13:29
Son Mesaj: abkbek
  Altformda Koşullu Filtreleme Ve Filtreli Raporu Açma ŞabanTR 2 716 25-01-2023, 21:31
Son Mesaj: ŞabanTR
  [SORGU] Metni Sayıya Dönüştür Bora34 27 2.004 04-11-2022, 22:41
Son Mesaj: Bora34
  Sorgudaki Her Bir Kayıt Için Ayrı Excel Dosyası Açma tamersyilmaz 4 641 29-09-2022, 14:47
Son Mesaj: tamersyilmaz

Foruma Git:


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