24-11-20, 07:56
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 455
| |
Καλημέρα Γιάννη. Έχεις δίκιο δική μου απροσεξία.
Προσθέτουμε την εντολή ανανέωσης (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
|