(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.