05-01-15, 22:05
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Καλησπέρα
Αντώνη, δοκίμασε τον παρακάτω κώδικα: Κώδικας: Private Sub ΠΑΡΑΣΤΑΤΙΚΟ_AfterUpdate()
If Nz(Me.ΠΑΡΑΣΤΑΤΙΚΟ, "") <> "" Then
Me.Νο = Nz(DMax("Νο", "ΤΙΜΟΛΟΓΗΣΗ", "ΠΑΡΑΣΤΑΤΙΚΟ='" & Me.ΠΑΡΑΣΤΑΤΙΚΟ & "'"), 0) + 1
End If
End Sub
Φιλικά/Γιώργος
|