[RAPOR] rapor sayfasında alt toplam

beyşehir2004 · 28-10-2014, 17:17

slm,

sadece ilgili yerdeki toplamların tüm toplam değilde o sayfaya ait toplamları vermesi konusunda yardım.
tşk.

dsezgin · 29-10-2014, 02:55

Sn. beyşehir2004;
Sayfa sonu bolumunde toplam aldirdiginiz alanlarin kayit kaynagini bosaltip, formullerini VBA'nin sayfa sonu bicimlendirme olay yordamina tasima ile yapabilirsiniz.

Visual Basic
Private Sub SayfaAltbilgisiBölümü_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
Me.OlSay = DSum("[olusay]", "kazakayıt1", "[Sıra No]<=" & Me.Sıra_No)
Me.YarSay = DSum("[yaralısay]", "kazakayıt1", "[Sıra No]<=" & Me.[Sıra No])
Me.MadSay = DCount("*", "kazakayıt1", "[Sıra No]<=" & Me.[Sıra No] & " And [kazanevi]='MADDI HASARLI'")
End Sub

beyşehir2004 · 29-10-2014, 11:16

Sn dsezgin83260;

Öncelikle ilginize tşk. Formüllere göre düzenledim. Ancak, ilk sayfa toplamını alt alta yapıyor. İkinci sayfada tüm defterin toplamını alıyor. Benim istediğim sayfa sayfa toplaması.

dsezgin · 29-10-2014, 12:08

Sn.beyşehir2004;
Metin116 kontrol kaynagini =Nz([Olmkaza];0)+Nz([Yarkaza];0)+Nz([MadSay];0) ile degistirin.
Rapor altinda ki VBA kodlarini asagida ki ile degistirebilirsiniz.

Visual Basic
Option Compare Database
Dim ilkSia As Long
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
Private Sub SayfaAltbilgisiBölümü_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
Me.Olsay = DSum("[olusay]", "kazakayýt1", "[Sýra No] Between " & ilkSia & " And " & Me.[Sýra No])
Me.YarSay = DSum("[yaralýsay]", "kazakayýt1", "[Sýra No] Between " & ilkSia & " And " & Me.[Sýra No])
Me.MadSay = DCount("*", "kazakayýt1", "[Sýra No] Between " & ilkSia & " And " & Me.[Sýra No] & " And [kazanevi]='MADDÝ HASARLI'")
Me.Olmkaza = DCount("*", "kazakayýt1", "[Sýra No] Between " & ilkSia & " And " & Me.[Sýra No] & " And [kazanevi]='ÖLÜMLÜ'")
Me.Yarkaza = DCount("*", "kazakayýt1", "[Sýra No] Between " & ilkSia & " And " & Me.[Sýra No] & " And [kazanevi]='YARALAMALI'")
End Sub
Private Sub SayfaÜstbilgisiBölümü_Format(Cancel As Integer, FormatCount As Integer)
ilkSia = Me.[Sýra No]
End Sub

beyşehir2004 · 29-10-2014, 14:04

Sn dsezgin83260;

Hocam ellerinize sağlık. İstediğim gibi olmuş. Yardımlarınız için teşekkürler.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Raporda Sayfa Altbilgisine Toplam Aldırma	hegu	6	433	08-12-2025, 10:27 Son Mesaj: hegu
	[SORGU] Access Sorguda Toplam Saat Formatı	MERAK	3	276	07-12-2025, 16:15 Son Mesaj: dsezgin
	[SORGU] Soldan 3 Değere Göre Toplam Alma	karacahil	2	347	14-05-2025, 17:03 Son Mesaj: karacahil
	[FORM] Tarihler Arası Toplam Veri Getirme	omergenc7	5	487	18-02-2025, 15:11 Son Mesaj: halily
	Sürekli Formda Alt Toplam Alma	ates2014	2	360	10-07-2024, 09:33 Son Mesaj: ates2014
	Dsum Ile Toplam Alırken Tarih Aralığınıda Süzme Yaptırma Sorunu	kesoka	2	541	07-04-2024, 16:13 Son Mesaj: kesoka
	[FORM] Veri Girişine Bağlı Olarak Veri çeşidi Toplam Sayısının Artması	M_Kemal_Askeri	2	395	07-03-2024, 20:03 Son Mesaj: M_Kemal_Askeri
	Toplam Gelmiyor.	ankaram	9	622	24-11-2023, 15:09 Son Mesaj: ankaram

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL