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