[pdhmos]

Γιωργο καλημερα πρωινο σε ειδα( 7 και κατι ψιλα). Δοκιμασα την την αλλαγη που μου ειπες και συνεχιζει να δειχνει την ταξινομιση κατα ημερομηνια αλλα τα αποτελεσματα κατα ΑΑΚΙΝΗΣΗΣ. Θα δοκιμασω και τον παρακατω . και ερχομαι
Public Function fncSubTotal(ID As Long) As Double
Dim sum As Double
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
If Me.Count > 0 Then
sum = 0
rs.MoveFirst
Do Until rs.EOF
sum = sum + Nz(rs!ExportAmount, 0)
If rs!ExportID = Me.ExportID Then Exit Do
rs.MoveNext
Loop
fncSubTotal = sum
End If
End Function

φιλικα δημος (λαρισας) καλη κυριακη σε ολους