27-08-2015, 17:48
Sn atyaty,
1. Rapor Alt bolumune metin kutusu olusturup, kontrol kaynagina ="Sayfa" & [Page] & " \ " & [Pages] deyimini yazin.
2. Rapor VBA bolumune asagida ki kodu tasiyin
3. Metin27 kontrol kaynagina =[qryFatura]-[Toplam Tutar] deyimini yazin.
4. qryFatura kontrol kaynagina =DSum("[Toplam Tutar]";"qryFatura";"[SıraNo]<=" & [SıraNo]) deyimini yazin.
1. Rapor Alt bolumune metin kutusu olusturup, kontrol kaynagina ="Sayfa" & [Page] & " \ " & [Pages] deyimini yazin.
2. Rapor VBA bolumune asagida ki kodu tasiyin
Visual Basic
- Option Compare Database
- Private Sub SayfaAltbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
- Me.qryFatura.Visible = IIf(Page <> Pages, True, False)
- End Sub
- Private Sub SayfaÜstbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
- Me.Metin27.Visible = IIf(Page = 1, False, True)
- End Sub
3. Metin27 kontrol kaynagina =[qryFatura]-[Toplam Tutar] deyimini yazin.
4. qryFatura kontrol kaynagina =DSum("[Toplam Tutar]";"qryFatura";"[SıraNo]<=" & [SıraNo]) deyimini yazin.