25-04-15, 00:01
|
 | Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 430
| |
Σάκη στη διαδικασία συμβάντος
Private Sub ΣΕΙΡΑ_ΠΑΡΟΧΗΣ_AfterUpdate()
Me.AA = Nz(DMax("AA", "tblEispraxi", "ΣΕΙΡΑ_ΠΑΡΟΧΗΣ='" & Me.ΣΕΙΡΑ_ΠΑΡΟΧΗΣ & "'"), 0) + 1
κανε αντικατάσταση με:
Me.AA = Nz(DMax("AA", "tblEispraxi", "[id_seiraPar]=" & Me.ΣΕΙΡΑ_ΠΑΡΟΧΗΣ & ""), 0) + 1
__________________
Φιλικά, Νάσος
|