(25/02/2017, 19:12)haziran4 yazdı: Üstad Aynen Böyle olmuş eline Sağlık. Ama Kombiden sonra Bir şey eklersem Kombinin üzerine toplamıyor onu nasıl yapabilirim

Merhaba. Liste239'un satır kaynağındaki sorguda değişiklik olduğu için ilgili kodların aşağıdaki gibi değiştirilmesi gerekli.

Sub liste239topla()

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.



'KOMBİ İŞLEMLERİ İÇİN 1...



Dim toplamyaz As Long, sirayaz As Integer

With Me.Liste239

  .Requery

  For sirayaz = 0 To .ListCount - 1

    toplamyaz = toplamyaz + Nz(.Column(3, sirayaz), 0)

    Me.Liste239.Requery

  Next

End With

Me.Metin325.Value = Nz(toplamyaz, 0)

Me.Metin325.Value = Nz(Me.Metin325.Value - (Me.Metin333 + Me.Metin335), 0)

Me.Liste239.Requery



End Sub



Sub liste239topla2()

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.



'KOMBİ İŞLEMLERİ İÇİN 2...



Dim toplamyaz2 As Long, sirayaz2 As Integer

With Me.Liste239

  .Requery

  For sirayaz2 = 0 To .ListCount - 1

    toplamyaz2 = toplamyaz2 + Nz(.Column(4, sirayaz2), 0)

  Next

End With

Me.Metin326.Value = Nz(toplamyaz2, 0)

Me.Metin326.Value = Nz(Me.Metin326.Value - (Me.Metin334 + Me.Metin336), 0)

End Sub

Bahsettiğiniz toplamıyor mevzusu formdaki Metin325 ve Metin326'ya eklenen toplam mı? Bunun için ekleme için tıkladığınız butonlara 

liste239topla

liste239topla2

kodunu eklemeniz gerekli.



Ayrıca, istediğiniz işlem yapıldı fakat bu işler ve ilaveleri neden KOMBİLER başlığı altındaki liste kutusuna ekletmek istiyorsunuz, bu toplamlar sağ tarafındaki metin kutularında zaten toplanıyor.