Toplam aldırmak

[prodigy]

Ekteki örnekte altformda onay kutusunu işaretlediğim hakediştutarlarını toplayarak bu toplamı formdaki metin kutusuna yazdırmak istiyorum

 

[modalı]

Sayın prodigy,

Bu konuyla ilgili o kadar çok örnek var ki. Biraz araştırma yapsanız.



İyi çalışmalar

 

[beab05]

Merhaba;
Alternatif olarak ADO ile yapabilirsiniz. Çok hızlı sonuç verdiğini göreceksiniz..

Alt formdaki "son" isimli alanın güncelleştirme sonrasına alttaki kodu yazınız. Toplam aldığınız metin kutusunun denetim kaynağı boş olmalı yani ilişkisiz..

Private Sub son_AfterUpdate()

    Dim rs As New ADODB.Recordset
    Dim bb As String
    Me.Requery
    bb = "SELECT sum(hakedistutarı) as beab FROM tablo2 where son=-1;"
    rs.Open bb, CurrentProject.Connection
    Forms![Tablo1]![Metin7] = rs("beab")
    rs.Close
    Set rs = Nothing
End Sub

 

[prodigy]

Sayın Modalı, sayın beab05 Çok teşekkür ederim.Sağolun