AccessTr.neT
Veri Tablosundan kayıt toplama?? - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Tablosundan kayıt toplama?? (/konu-veri-tablosundan-kayit-toplama.html)

Sayfalar: 1 2


Veri Tablosundan kayıt toplama?? - karacali - 24/05/2010

Selam arkadaşlar siteniz muhteşemmiş şimdiden yardımlarınız için teşekkürler.
Benim sorunum vb6 da yapmış olduğum bi programda Access database kullanıyorum araclar tablosunda alınan ücret kısmında ki bütün kayıtların toplamını bi label yada textboxta nasıl toplam olarak gösterebilirim yani bi nevi kasa toplamı gibi müşterilerden alınan paraların toplamını almak istiyorum?


Cvp: Veri Tablosundan kayıt toplama?? - ekselanss - 24/05/2010

Birinci textbox a bir sayı girilecek ,
ikinci textbox a başka bir sayı girilecek,
Butona basılınca üçüncü texbox ta sonuç yazılacak
Burdaki textbox ları keni programınıza uyarlaya bilir sinz.

Kod:
Private Sub Command1_Click()
Dim s1, s2 As Integer
s1 = Text1.Text
s2 = Text2.Text
Text3.Text = s1 + s2
End Sub




Cvp: Veri Tablosundan kayıt toplama?? - Ragıp61 - 24/05/2010

Arkadaşım ellerine sağlık, kodları kullanma mantığınıda bir nebze öğrendik.


Cvp: Veri Tablosundan kayıt toplama?? - karacali - 24/05/2010

hocam benimki texbox değil Access veri tabaninda hareketler tablosunda ücret bölümü var her hareket için tabloya ücret giriliyo benim amacım bunları toplamak yani bu alana girilen değerlerin tamamının toplamını almak istiyorum kasa programı gibi


Cvp: Veri Tablosundan kayıt toplama?? - Puletin - 24/05/2010

Toplama yapmak istediğiniz Metin kutusunun veri kaynağına

Kod:
=DSum("[ücret]";"hareketler")
yazınız hareketler tablosunda yer alan ücret adlı alandaki bütün verileri toplayacaktır.


Cvp: Veri Tablosundan kayıt toplama?? - karacali - 25/05/2010

visual basic 6 kullanıyorum bu şekilde iş görürmü hocam
PHP Kod:
Private Sub Text1_Change()
=
DSum("[UCRET]";"hareketler")
End Sub