|
Αυτόματη αρίθμηση 1 Συνημμένο(α) Για σε όλους και συγχαρητήρια για το forum είναι πραγματικά υπέροχο !! Θα ήθελα παρακαλώ να μου πείτε ένα πρόβλημα που έχω σχετικά με την αυτόματη αρίθμηση που έχω κάνει στον πινάκα !!! Πως θα ήταν δυνατόν όταν διαγράψω μια εγγραφή από τον πινάκα στην επομένη μελλοντική εγγραφή να μου δίνη την διαγραμμένη χωρίς να χάνεται ? Δηλαδή έχουμε διαγράψει την TIΠ000000000003 όταν εγώ κάνω νέα εγγραφή να μου δίνη ως αύξοντα την χαμένη σειρά. Φυσικά δεν ξέρω αν γίνετε αυτό αλλά είναι το βασικότερο για μια βάση δεδομένων πιστεύω όταν φτιάχνεις κάτι που έχει να κάνει με τιμολόγια !!! :c015: |
Αντωνη με αυτοματη αριθμιση δεν γινεται απο οτι γνωριζω. Θα προσθεσεις ενα νεο πεδιο και οταν ξεκινας ενα νεο τιμολογιο / εγγραφη θα πας στο τελος του πινακα θα περνεις την τελευταια τιμη θα την κανεις + 1 και θα την αποθηκευεις . Σου στελνω ενα παραδειγμα απο την δικια μου εφαρμογη. Dim RS As Recordset ' Ετσι περνω την νεα τιμη για να τυπωσω το παραστατικο Set RS = New ADODB.Recordset RS.CursorType = adOpenKeyset RS.LockType = adLockOptimistic RS.Open "ΠΑΡΑΣΤΑΤΙΚΑ", CurrentProject.Connection ' ΠΑΡΑΣΤΑΤΙΚΑ = ΠΙΝΑΚΑΣ ΠΑΡΑΣΤΑΤΙΚΩΝ Me.ΜΔΕΛΤΙΟΕΠΙΣΚΕΥΗΣ = (RS.Fields(9).Value) + 1 ' Κανει το δελτιο (που ειναι ενατο στην σειρα πιω πριν RS.Close ' εχω αποδειξεις πωλησης παροχης κλπ) +1 παραπανω Set RS = Nothing Dim RS4 As Recordset ' Εδω μολις τυπωθει το παραστατικο βαζω την νεα τιμη Set RS4 = New ADODB.Recordset RS4.CursorType = adOpenKeyset RS4.LockType = adLockOptimistic RS4.Open "ΠΑΡΑΣΤΑΤΙΚΑ", CurrentProject.Connection RS4.Fields(9).Value = Me.ΜΔΕΛΤΙΟΕΠΙΣΚΕΥΗΣ '(RS.Fields(9).Value) + 1 ΚΑΝΕΙ ΤΟ ΔΕΛΤΙΟ 1 ΠΑΡΑΠΑΝΩ RS4.Update RS4.Close Αν και δεν ειναι η καλυτερη λυση εχεις την δυνατοπητα να αλλαξεις την τιμη ενος τιμολογιου πχ εαν δεν εκδοθει σωστα. Περιμενω νεα σου |
ΑΥΤΟΜΑΤΗ ΑΡΙΘΜΗΣΗ Αγαπητέ δήμο δεν το κατάλαβα όλο αυτό που έστειλες διότι δεν είμαι στο επίπεδο σου, αν μπορείς να το στείλεις με παράδειγμα στην ίδια μου τι βάση γίνεται αυτό; Σε ευχαριστώ που ασχολήθηκες !!! :002: |
Αντωνη εγω εχω κανει μια φορμα που ενημερωνει τον πινακα, με vba και εκει μπαινει ο κωδικας που σου εστειλα . |
ΒΟΗΘΕΙΑ !!!! Χρειάζομαι βοήθεια μπορώ να την έχω με παράδειγμα πάνω στην δική μου βάση δεδομένων;:worthy::worthy::worthy: |
Αντωνη πρεπει να φτιαξεις τους πινακες πρωτα και μετα (εκτος και εαν τους εχεις και δεν τους εστειλες) Γιατι με εναν πινακα και 2 πεδια δεν γινεται τιποτα. |
1 Συνημμένο(α) Καλησπέρα σ 'ολο το Forum Για δες μια λύση και πες μας αν είναι αυτό που θέλεις |
1 Συνημμένο(α) Αντωνη δες του πινακες που εχω αλλα θελεις αρκετη δουλεια |
Παράθεση:
ΔΗΛΑΔΗ ΕΧΩ ΤΟ TIM000001 TIM000002 TIM000003 ΕΧΩ ΣΒΗΣΕΙ ΤΟ TIM000004 <---- TIM000005 ΤΟ ΕΠΟΜΕΝΟ ΠΡΕΠΕΙ ΕΠΟΜΕΝΟΣ ΕΙΝΑΙ ΤΟ TIM000004 ΚΑΝΟΝΤΑΣ ΝΕΑ ΕΓΓΡΑΦΗ :biggrin::biggrin::biggrin::biggrin::biggrin: |
Καλησπέρα! Αγαπητέ Αντώνη, σε παρακαλώ μη γράφεις με κεφαλαία! Αν πρόσεξες, το Team μας ήδη διόρθωσε τα προηγούμενα σου μηνύματα. Τα κεφαλαία δεν είναι ευανάγνωστα και χρησιμοποιούνται (θεσμικά τουλάχιστον) από όσους θέλουν να φωνάξουν μέσα από το Internet. Φιλικά Τάσος |
Παράθεση:
Δηλαδή αν έχεις 5000 τιμολόγια και σβήσεις το Νο3 η επόμενη εγγραφή πρέπει να είναι το Νο3? Δώσε μας λίγες περισσότερες πληροφορίες |
Καλησπέρα σε όλους !!! Ζητω συγγνώμη για τα κεφαλαια γράμματα και ιδιαιτερα για τα ορθογραφικά μου λάθη!!! Σχετικά με την αυτόματη αρίθμηση δεν έχω καλυφθεί με το παράδειγμα βεβαια είναι αυτό που θέλω αλλα το θέμα είναι να παίρνει αυτομάτως τον κωδικό που έχει χάσει!!! Σχετικά με την περιγραφή που έδωσα δεν έχει να κάνει με τιμολόγια απλά ζητω ένα αύξοντα αριθμό με κάποια μάσκα. Εγώ έδωσα ως παράδειγμα μια μάσκα TIM000000 αυτό δεν σημαίνει πως αυτό θέλω να κάνω!!! Αγαπητέ Δημήτρη υπάρχει τελικά τρόπος χωρίς να κάνω ανανέωση το ερώτημα? υπάρχει άλλος τρόπος? |
Επαναρίθμηση εγγραφών 1 Συνημμένο(α) Καλημέρα σε όλους!! Αντώνη μήπως αυτό που ζητάς είναι αυτόματη (επαν-αρίθμηση) των εγγραφών; πχ σε ένα πίνακα εγγραφών απο Α/Α 1.....100 αν διαγράψουμε την 3 οι εγγραφές θα αριθμηθούν ξανά αυτόματα απο 1 έως 99. Δες συνημμένο |
1 Συνημμένο(α) Αυτό πρέπει να σου κάνει |
| Η ώρα είναι 18:58. |
Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.