Private Sub RaporAltbilgisi_Format(Cancel As Integer, FormatCount As Integer)
Me.Metin104 = Dsum ("Miktar", "Mahalleler", "GenelTasnif='İNSAN TİCARETİ'")
Me.Metin108 = Dsum ("Miktar", "Mahalleler", "GenelTasnif='KASTEN ÖLDÜRME'")
End Sub
Diğerlerini de siz oluşturursunuz. Kolay gelsin.