Skip to main content

AccessTr.neT


Raporda Toplam Sorunu

Raporda Toplam Sorunu

Çözüldü #1
Merhaba sayın hocalarım.
Sizlerden daha önce aldığım destekerle işlerimi halletmeye çalışıyorum. Ekteki dosyada kurumumuzun personel istatistiği ile ilgili bir çalışma yaptım. Ancak bir noktada tıkandım. Form 1 raporunda (veriyi srg_branslar_norm sorgusundan alıyor)Mevcut kısmını ayarladım . İhtiyaç ve fazla sütunlarını da ayarladım ancak bu ihtiyaç ve fazla sütunlarının en altta toplamlarını yapamadım. Mevcut sütununu sorgudan hesaplattırmayı dahi denedim ancak başaramadım. Buraya da dosya ekleyemedim. O nedenle başka bir yere yükledim. Linki tıklayıp dosyayı indirebilirsiniz.
Yardımlarınız için şimdiden teşekkür ederim.

Ofis 2003 formatında

Ofis 2007 formatında
Gün gelecek herkes beni ve Access'i anlayacak!!!
Cevapla
Çözüldü #2
k ve j alanlarındaki toplama formüllerini silin.
aşağıdaki kodu raporunuzun kod sayfasına yapıştırın. Mevcut olanla bunu değiştirin.
Yazıcıdan çıktı alırken toplayacaktır.
Kolay Gelsin.

Option Compare Database
Public ii, ff As Integer
private Sub Ayrıntı_Paint()

End Sub

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
ii = ii + Val(Me.f)
ff = ff + Val(Me.g)
Me.k = ff
Me.j = ii
End Sub

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
Kur@l Hocam teşekkür ederim. Dediğinizi yaptım. Baskı ön izlemede toplamları ihtiyaç için 141 fazla için 13 buldu ki bunlar doğru toplamlardı. Ancak çıktı alırken bu sayıların iki katını yazdı. yani 282 ve 26. ben de formülü aşağıda ii ve ff değerlerinin sonuna '/2' ekleyerek değiştirdim ve oldu. Yaptığım değişiklik her durumda geçerli olur mu acaba onu merak ettim.
Option Compare Database 
Public ii, ff
As Integer private Sub Ayrıntı_Paint()
End Sub
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
ii = ii + Val(Me.f)
ff = ff + Val(Me.g)
Me.k = ff / 2
Me.j = ii / 2
End Sub
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
Gün gelecek herkes beni ve Access'i anlayacak!!!
Son Düzenleme: 10/06/2012, 06:42, Düzenleyen: kursad05.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task