A.S.C Filtre, Grafik ve Raporlama Eklentisi

Rastgele Sayıya Göre Rapor Açma
#1
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: 15)



  Alıntı
Bu mesajı beğenenler:
#2
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





  Alıntı
Bu mesajı beğenenler:
#3
Sayın userx53 çok teşekkürler.



  Alıntı
Bu mesajı beğenenler:
#4
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.



  Alıntı
Bu mesajı beğenenler:
#5
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);





  Alıntı
Bu mesajı beğenenler:
#6
(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: 5)



  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 217 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