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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Υπόλοιπο πελατών (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/5706-ypoloipo-pelaton.html)

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

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

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

Κώδικας:

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

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

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

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

Καλημέρα Γιάννη. Έχεις δίκιο δική μου απροσεξία.
Προσθέτουμε την εντολή ανανέωσης (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

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