Αυτόματη αρίθμηση Αποδειξης

[smasak]

Στη ΒΔ που επισυνάπτω έχω προσαρμόσει κώδικα(του Kapetang από παλιότερη συζήτηση) στο πεδίο id_seiraPar της frmEispraxi ώστε κάθε φορά που αλλάζει η σειρά να αλλάζει ανάλογα και η αρίθμηση(αυτόματη).
Δεν δουλεύει όμως.

[nasos23]

Σάκη στη διαδικασία συμβάντος

Private Sub ΣΕΙΡΑ_ΠΑΡΟΧΗΣ_AfterUpdate()
Me.AA = Nz(DMax("AA", "tblEispraxi", "ΣΕΙΡΑ_ΠΑΡΟΧΗΣ='" & Me.ΣΕΙΡΑ_ΠΑΡΟΧΗΣ & "'"), 0) + 1


κανε αντικατάσταση με:

Me.AA = Nz(DMax("AA", "tblEispraxi", "[id_seiraPar]=" & Me.ΣΕΙΡΑ_ΠΑΡΟΧΗΣ & ""), 0) + 1

[smasak]

Νάσο δουλεύει τέλεια, σε ευχαριστώ.Θα μπορούσες να δεις και το θέμα με το κλείδωμα πεδίου;
http://http://www.ms-office.gr/forum...potheseis.html