Merhabalar; bir uygulama yapıyorum ve bu uygulamada bir sıkıntı yaşamaktayım. Sıkıntım örneğin raporlanacak 100 satırlık bir kaydım ve ben bu kaydın 1 den 100 e kadar saydırmasını değilde her sayfa için 50 şerlik yani 1-50 bir sayfaya diğer 1-50 diğer sayfaya yazdırmasını istiyorum nasıl yapabilirim yardımcı olursanız sevinirim
Raporlama Yaparken Sıra Numarası
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
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
If [kayıtsay] Mod 50 = 0 Then
kayıtsay=1
Me.Detail.ForceNewPage = 2
Else
Me.Detail.ForceNewPage = 0
End If
End Sub
kayıtsay=1
Me.Detail.ForceNewPage = 2
Else
Me.Detail.ForceNewPage = 0
End If
End Sub
Sn adnanyurdakul
cevap için ben teşekkür ederim. Benim çok işime yarayacak...
cevap için ben teşekkür ederim. Benim çok işime yarayacak...
Konuyu Okuyanlar: 1 Ziyaretçi