Raporumuzu Tasarım görünümünde açıyoruz ve Detail(Ayrıntı) bölümüne bir Metin Kutusu Ekleyerek Özelliklerini Aşağıdakilere göre ayarlıyoruz..

MetinAdi: kayıtsay
Denetim Kaynağı: =1
Geçerli Toplam: Grup Üzerinde
Görünür: Hayır


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If [kayıtsay] Mod 50 = 0 Then
Me.Detail.ForceNewPage = 2
Else
Me.Detail.ForceNewPage = 0
End If

End Sub