Alış Tarihi butonuna

Private Sub Komut141_Click()

Me.RecordSource = "srgyeni"

Call AlisToplamlar

Requery

End Sub

Satış Tarihi butonuna

Private Sub Komut140_Click()

Me.RecordSource = "srgyeni1"

Call SatisToplamlar

Requery

End Sub

kodlarını ekle, aşağıdaki kodları vb sayfasına ekle

Function SatisToplamlar()

Me.Metin9 = Nz(DSum("[ToplaURUN1]", "srgyeni1"), 0)

Me.Metin11 = Nz(DSum("[ToplaURUN2]", "srgyeni1"), 0)

Me.Metin13 = Nz(DSum("[ToplaURUN3]", "srgyeni1"), 0)

Me.Metin15 = Nz(DSum("[ToplaURUN4]", "srgyeni1"), 0)

Me.Metin17 = Nz(DSum("[ToplaURUN5]", "srgyeni1"), 0)

Me.Metin19 = Nz(DSum("[ToplaURUN6]", "srgyeni1"), 0)

Me.Metin21 = Nz(DSum("[ToplaURUN7]", "srgyeni1"), 0)

Me.Metin23 = Nz(DSum("[ToplaURUN8]", "srgyeni1"), 0)

Me.Metin25 = Nz(DSum("[ToplaURUN9]", "srgyeni1"), 0)

Me.Metin27 = Nz(DSum("[ToplaURUN10]", "srgyeni1"), 0)

End Function

Function AlisToplamlar()

Me.Metin9 = Nz(DSum("[ToplaURUN1]", "srgyeni"), 0)

Me.Metin11 = Nz(DSum("[ToplaURUN2]", "srgyeni"), 0)

Me.Metin13 = Nz(DSum("[ToplaURUN3]", "srgyeni"), 0)

Me.Metin15 = Nz(DSum("[ToplaURUN4]", "srgyeni"), 0)

Me.Metin17 = Nz(DSum("[ToplaURUN5]", "srgyeni"), 0)

Me.Metin19 = Nz(DSum("[ToplaURUN6]", "srgyeni"), 0)

Me.Metin21 = Nz(DSum("[ToplaURUN7]", "srgyeni"), 0)

Me.Metin23 = Nz(DSum("[ToplaURUN8]", "srgyeni"), 0)

Me.Metin25 = Nz(DSum("[ToplaURUN9]", "srgyeni"), 0)

Me.Metin27 = Nz(DSum("[ToplaURUN10]", "srgyeni"), 0)

End Function