[FORM] Liste Kutusundan Seçilen Verilerin Toplamını Alma
#1
kolay gelsin
liste kutusundan seçtiğm verilerin toplamını liste kutusunun altındaki metin kutularına aldırılabilir mi?

[Resim: attachment.php?aid=24579]


Eklenti Dosyaları
.rar   liste kutusu toplama.rar (Boyut: 20,38 KB / İndirilme: 72)
.jpg   topla.JPG (Boyut: 83,35 KB / İndirilme: 129)



  Alıntı
Bu mesajı beğenenler:
#2
aşağıdaki kodu dener misiniz?
Liste0 tıklama olayı
Visual Basic
  1. Private Sub Liste0_Click()
  2. TpPlt = 0
  3. TpGln = 0
  4. Dim Scl As Variant
  5. For Each Scl In Me.Liste0.ItemsSelected
  6. TpGln = TpGln + CLng(Me.Liste0.Column(2, Scl))
  7. TpPlt = TpPlt + CLng(Me.Liste0.Column(3, Scl))
  8. Next Scl
  9. Me.GELEN_TOPLA = TpGln
  10. Me.PALET_TOPLA = TpPlt
  11.  
  12. End Sub





  Alıntı
Bu mesajı beğenenler:
#3
sn halily,
çok teşekkürler,
tamda düşündüğüm gibi,
iyi çalışmalar dilerim.



  Alıntı
Bu mesajı beğenenler:
#4
rica ederim
iyi çalışmalar



  Alıntı
Bu mesajı beğenenler:
#5
sn halil hocam,
merhaba, kolay gelsin

liste kutusunda seçili olan verilerin toplamını alırken, eğer veri ondalıklıysa ondalıklı olarak almıyo,
--ondalıklı olarak alması için ne yapabilirim acaba? 30+30,65=60,65 gibiverse, şuan 66 yazıyor

--birde kaç tane kayıt seçtiysem seçtiğim kayıt sayısını aldırabilir miyiz acaba? liste kutusundan kaç kayıt seçtiysem seçtiğim kaydın sayısı



  Alıntı
Bu mesajı beğenenler:
#6
kodda kullanılan clng nedeniyle veriler tamsayıya dönüşüyor aşağıdaki şekilde düzenleyip dener misiniz?
Not: forma seçilen sayısını göstermek için txtSecilenSay adında metin kutusu ekledim, siz istediğiniz adla değiştrirsiniz
seçilen sayısını Liste0.ItemsSelected.Count koduyla alabilirsiniz
eğer sonuç yine hatalı çıkarsa
+ Me.Liste0.Column(2, Scl) yerine + CDbl(Me.Liste0.Column(2, Scl)) kodunu deneyebilirsiniz
Visual Basic
  1. Private Sub Liste0_Click()
  2.  
  3. TpPlt = 0
  4. TpGln = 0
  5. Dim Scl As Variant
  6. For Each Scl In Me.Liste0.ItemsSelected
  7. TpGln = TpGln + Me.Liste0.Column(2, Scl) 'CDbl(Me.Liste0.Column(2, Scl))
  8. TpPlt = TpPlt + Me.Liste0.Column(3, Scl) 'CDbl(Me.Liste0.Column(3, Scl))
  9. Next Scl
  10. Me.GELEN_TOPLA = TpGln
  11. Me.PALET_TOPLA = TpPlt
  12. Me.txtSecilenSay = Liste0.ItemsSelected.Count
  13. End Sub





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Yaklaşan Tarihte Uyarı Alma xosmaner 3 379 14-11-2025, 21:53
Son Mesaj: özgülapt
  Alt Rapordaki Sayfa Toplamını Alma tekinuy 6 503 08-10-2025, 22:26
Son Mesaj: tekinuy
  [SORGU] Soldan 3 Değere Göre Toplam Alma karacahil 2 377 14-05-2025, 17:03
Son Mesaj: karacahil
  [RAPOR] Raporda Hyperlink çıktı Alma ulsogr 4 403 09-01-2025, 10:08
Son Mesaj: ulsogr
access-sql-9 [TABLO] Tablodan Rapor Alma vefa1982 11 662 28-10-2024, 01:53
Son Mesaj: dsezgin
  Ana Forma Bağlı Alt Formdaki Verilerin Ana Formda Toplamını Almak ozan028 5 554 09-09-2024, 17:14
Son Mesaj: ozan028
  Sorguda Tarihler Arası Veri Alma metınaycıcek 8 693 18-07-2024, 14:28
Son Mesaj: metınaycıcek
  Sürekli Formda Alt Toplam Alma ates2014 2 378 10-07-2024, 09:33
Son Mesaj: ates2014

Foruma Git:


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