İnternette biraz araştırınca bu konuda basit çözümler olduğu görülüyor.
Mesela, Access MVP'lerinden birisinin sitesinde bulunan ipuçları sayfasında bulduğum bir çözümle bir kaç satır kod yazılarak bu sorun rahatlıkla çözülebiliyor.
http://allenbrowne.com/ser-11.html
Kod:
Option Compare Database
Option Explicit 'Optional, but recommended for every module.
Dim curTotal As Currency 'Variable to sum [Amount] over a Page.
Private Sub SayfaÜstbilgisi_Format(Cancel As Integer, FormatCount As Integer)
curTotal = 0 'Reset the sum to zero each new Page.
End Sub
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount = 1 Then curTotal = curTotal + Me.PULBEDELİ
End Sub
Private Sub SayfaAltbilgisi_Format(Cancel As Integer, FormatCount As Integer)
Me.PageTotal = curTotal
End Sub
Sayfa sonlarındaki yürüyen genel toplam için ise; Ayrıntı kısmında, toplam alınmak istenen alana bağlı bir metin kutusu ekleniyor, bu metin kutusunun görünür (visible=no) özelliği kapatılıyor ve yürüyen toplam özelliği (running sum=Over All) aktif ediliyor.
Sayfasonu kısmında Genel Toplam için konulan metin kutusuna, yürüyen toplam özelliği verilen metin kutusu atanıyor.
Microsoft'un aşağıdaki sitesinde, anlattığım bu özelliklerin resimli açıklamalarını bulabilirsiniz.
http://office.microsoft.com/en-us/access...22444.aspx
Allen Browne'ın diğer ipuçları için:
http://allenbrowne.com/tips.html