|
Αυτόματη αρίθμηση Αποδειξης 1 Συνημμένο(α) Στη ΒΔ που επισυνάπτω έχω προσαρμόσει κώδικα(του Kapetang από παλιότερη συζήτηση) στο πεδίο id_seiraPar της frmEispraxi ώστε κάθε φορά που αλλάζει η σειρά να αλλάζει ανάλογα και η αρίθμηση(αυτόματη). Δεν δουλεύει όμως. |
Σάκη στη διαδικασία συμβάντος Private Sub ΣΕΙΡΑ_ΠΑΡΟΧΗΣ_AfterUpdate() Me.AA = Nz(DMax("AA", "tblEispraxi", "ΣΕΙΡΑ_ΠΑΡΟΧΗΣ='" & Me.ΣΕΙΡΑ_ΠΑΡΟΧΗΣ & "'"), 0) + 1 κανε αντικατάσταση με: Me.AA = Nz(DMax("AA", "tblEispraxi", "[id_seiraPar]=" & Me.ΣΕΙΡΑ_ΠΑΡΟΧΗΣ & ""), 0) + 1 |
Νάσο δουλεύει τέλεια, σε ευχαριστώ.Θα μπορούσες να δεις και το θέμα με το κλείδωμα πεδίου; http://http://www.ms-office.gr/forum...potheseis.html |
| Η ώρα είναι 04:31. |
Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.