[ Εκθέσεις ] Σύνολα στο Υποσέλιδο Σελίδας

[Dimitris Ch]

Option Compare Database
Option Explicit
Dim lastcount As Integer
Dim PageTotal As Currency ' Double?

Private Sub FormDetail_Print(Cancel As Integer, PrintCount As Integer)
If lastcount = 0 Then lastcount = PrintCount
If PrintCount = lastcount Then
PageTotal = PageTotal + Nz(Me.[Poso])
Else
lastcount = PrintCount
PageTotal = Nz(Me.[Poso])
End If
End Sub

Private Sub FormDetail_Retreat()
PageTotal = PageTotal + Nz(Me.[Poso]) * (-1)
End Sub

Private Sub FormPageFooter_Print(Cancel As Integer, PrintCount As Integer)
Me.PageTotals = PageTotal
PageTotal = 0
End Sub

Για δοκίμασε το ετσι να δουμε αποτελεσμα

Φιλικα Δημητρης

[ΠΑΝΟΣ]

Δεν το έχω δοκιμάσει ακόμα Δημήτρη λόγω πολλών υποχρεώσεων και πολλή δουλειά , θα το δοκιμάσω αύριο Σάββατο και θα σου πω , ευχαριστώ

[ΠΑΝΟΣ]

Επιτέλους δουλεύει , Ευχαριστώ πολύ όλους για την βοήθεια