Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Sıra no'ya göre rasgele konu bulma

Sıra no'ya göre rasgele konu bulma
Kemal0635
Yeni Üye 1-15

*
Kayıt Tarihi: 25.11.2010
Toplam 6 konu açtı.
Toplam 8 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#1
31-12-2010, 15:12
Saygıdeğer accessciler
eklediğim örnekdeki komut düğmesine sıra numarası esas alınarak
(ve bütün sayılar tamamalanmadan tekrar aynı sayıyı göstermemesi koşuluyla) rasgele konu bulması için gerekli kodları yazabilirmisiniz. Benim için çok önemli henüz amatörüm ve bu konulara da meraklıyım, bu sizin için çok basit olabilir ama bilmeyen için çok zor. Yardımlarınız için çok teşekkür ederim. sevgiyle kalın. İyi Yıllar dileklerimle.


Eklenti Dosyaları
.rar   deneme1.rar (Boyut: 10,02 KB / İndirilme: 73)



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

*
Kayıt Tarihi: 25.02.2010
Toplam 20 konu açtı.
Toplam 713 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 1
#2
31-12-2010, 15:51
Merhaba aşağıdaki kodu bir deneyin.


Visual Basic
  1. Dim bul
  2. bul = Int((50 * Rnd()) + 1)
  3.     Dim rs As Object
  4.  
  5.     Set rs = Me.Recordset.Clone
  6.     rs.FindFirst "[Sıra_no] = '" & bul & "'"
  7.     If Not rs.EOF Then Me.Bookmark = rs.Bookmark


"Gönül deniz, dil kıyıdır. Denizde ne varsa kıyıya o vurur"



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#3
31-12-2010, 16:06
Merhaba Sayın kemal0635;
Sayın Dreamt gerekli kodu yazmış birde ben ekleyeyim, istediğini uygulayabilirsin,
Komut düğmesinin Click olayına
Visual Basic
  1. Dim deger
  2. DoCmd.GoToRecord acDataForm, "Form", acLast
  3. deger = [Sıra_no]
  4. DoCmd.GoToRecord acDataForm, "Form", acGoTo, Int((deger * Rnd) + 1)


ekleyebilirsin...
iyi çalışmalar...



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Sayı Bulma evren89 1 323 16-06-2024, 01:49
Son Mesaj: dsezgin
  Kişi Sayısı Bulma evren89 4 510 31-05-2024, 16:54
Son Mesaj: evren89
  Formda Otomatik Sıra No Verme Nasil Olur? mart02 2 481 15-09-2023, 09:21
Son Mesaj: akd27
  [SORGU] Veriler Arasında Eşleşen Kelimeleri Bulma. Satir 5 534 18-02-2023, 15:27
Son Mesaj: celalll
  Altformda Kayıt Bulma Ve Tüm Kayda Metinkutusundan Veri Yazdırma ŞabanTR 4 602 15-01-2023, 18:07
Son Mesaj: ŞabanTR
  [FORM] Sıra No Değiştirme husem 3 580 18-09-2022, 09:53
Son Mesaj: alperalper
  [FORM] Günlük Sıra Numarası Vermek M_Kemal_Askeri 3 606 25-05-2022, 23:00
Son Mesaj: M_Kemal_Askeri
  Metin Kutusu Içinde Metin Bulma alikagan 4 563 25-04-2022, 11:49
Son Mesaj: alikagan

Foruma Git:


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