Υπόλοιπο πελατών

[giannisp]

Καλησπέρα παιδιά
Πως θα μπορούσα στο Υπόλοιπο να παίρνω την τιμή
sum(Xreosi)-sum(Elava) για τον κάθε πελάτη
σε κάθε εγγραφή με το που συμπληρώνω
το Xreosi η το Elava

[nasos23]

Καλημέρα σε όλους
Γιάννη σε προβολή σχεδίασης της φόρμας κάνε επικόλληση τον παρακάτω κώδικα:

Private Sub Elava_AfterUpdate()
Me.Ipolipo = Nz(DSum("Xreosi", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & "") - DSum("Elava", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & ""), 0)
Me.Refresh
End Sub

Private Sub Xreosi_AfterUpdate()
Me.Ipolipo = Nz(DSum("Xreosi", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & "") - DSum("Elava", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & ""), 0)
Me.Refresh
End Sub

[giannisp]

Καλησπέρα σε όλη τη παρέα
Νάσο ευχαριστώ που ασχολήθηκες
Δυστυχώς δεν υπολογίζει την τιμή της εγγραφής που καταχωρώ εκείνη τι στιγμή
αλλά την προηγούμενη (τελευταία) εγγραφή ανά πελάτη
Αν δημιουργούσε νέα εγγραφή για να υπολογίσει εκεί το υπόλοιπο θα δούλευε ???

Χρησιμοποίησα αυτό που έγραψες "Μετά από εισαγωγή" στη φόρμα και δούλεψε
Είναι σωστός αυτός ο τρόπος ???

Private Sub Form_AfterInsert()

If Me.Xreosi <> 0 Then
Me.Ipolipo = Nz(DSum("Xreosi", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & "") - DSum("Elava", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & ""), 0)
End If
If Me.Elava <> 0 Then
Me.Ipolipo = Nz(DSum("Xreosi", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & "") - DSum("Elava", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & ""), 0)
End If

End Sub

[nasos23]

Καλημέρα Γιάννη. Έχεις δίκιο δική μου απροσεξία.
Προσθέτουμε την εντολή ανανέωσης (Me.Refresh) του πεδίου, μετά την ενημέρωση.

Private Sub Elava_AfterUpdate()
Me.Refresh
Me.Ipolipo = Nz(DSum("Xreosi", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & "") - DSum("Elava", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & ""), 0)
 End Sub

Private Sub Xreosi_AfterUpdate()
Me.Refresh
Me.Ipolipo = Nz(DSum("Xreosi", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & "") - DSum("Elava", "pPelatesKinisi", "[a/aPelati]=" & Me.[a/aPelati] & ""), 0)
 End Sub

[giannisp]

Καλησπέρα σε όλους
Νάσο σε ευχαριστώ για τη λύση