Toplam alanının çalışması için sledgeab hocanın eklediği örnekteki raporun kodlarını aşağıdaki ile değiştirin.

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)

   

   Me.GELİR_TÜRÜ = Me.Liste.Column(0, 0)

   Açılan_Kutu48 = Me.Liste.Column(0, 1)

   Açılan_Kutu50 = Me.Liste.Column(0, 2)

   Açılan_Kutu52 = Me.Liste.Column(0, 3)

   Açılan_Kutu54 = Me.Liste.Column(0, 4)

   GELİR_MİKTARI = Val(Me.Liste.Column(1, 0))

   Metin49 = Val(Me.Liste.Column(1, 1))

   Metin51 = Val(Me.Liste.Column(1, 2))

   Metin53 = Val(Me.Liste.Column(1, 3))

   Metin55 = Val(Me.Liste.Column(1, 4))

   

End Sub



Private Sub RaporAltbilgisi_Format(Cancel As Integer, FormatCount As Integer)

Me.GenelToplam = Me.GELİR_MİKTARI + Me.Metin49 + Me.Metin51 + Me.Metin53 + Me.Metin55

End Sub