συνεχόμενες αριθμητικές εγγραφές

[pakos]

Καλησπέρα και πάλι
μια βοήθεια σχετικά με συνεχόμενες αριθμητικές εγγραφές σε πινάκα access με vba

αυτό που έχω κάνει με φόρμα σταματάει στις 29 εγγραφές εγώ θέλω από ένα πεδίο της φόρμας που θα έχει τον τελικό αριθμό

[Ascinis]

Καλησπέρα,
Θέλεις δηλαδή να εμφανίζεται ο αύξον αριθμός στο τέλος ή απλά να εμφανίζεται η τελευταία εγγραφή;
Δεν μπορώ να καταλάβω.

[pakos]

Καλημέρα

Δες σε παρακαλώ το αρχείο.
Για λίγες εγγραφές το κάνει, αλλά για περισσότερες από 29 κολλάει.

[Ascinis]

Καταρχάς που αποθηκεύονται τα δεδομένα;
Α, θέλεις να παίρνει αριθμό πρωτοκόλλου και να αποθηκεύεται;
Τότε φτιάξε μια βάση δεδομένων με έναν πίνακα και τα αντίστοιχα πεδία που θες.
Μετά βάλε δύο τρεις δοκιμαστικές εγγραφές και θα σου δείξω πως να παίρνει το nextID πρωτοκόλλου.

[pakos]

Καλησπέρα

φίλε μου υπάρχουν 2 πίνακες
α) ΑΡΙΘΜΙΣΗ ΕΝΩΤΙΩΝ
β) ΕΝΩΤΙΑ ΕΚΜΕΤΑΛΕΥΣΗΣ

και η φόρμα που ανοίγει αυτόματα κατά την έναρξη
όταν συμπληρώσουμε τον ΑΡΙΘ ΠΡΩΤΟΚΟΛΛΟΥ (παίρνει τιμές από τον πίνακα ΕΝΩΤΙΑ ΕΚΜΕΤΑΛΕΥΣΗΣ) στην φόρμα εμφανίζονται 2 πεδία
ΑΠΟ Νο και ΕΩΣ Νο βάζοντας τους αριθμούς που θέλουμε πχ, ΕΩΣ Νο 138 εμφανίζεται το κουμπί ΑΡΙΘΜΗΣΕ (Το πεδίο ΑΠΟ Νο αυτόματα παίρνει την τιμή της τελευταίας εγγραφής +1 από τον πίνακα ΑΡΙΘΜΙΣΗ ΕΝΩΤΙΩΝ)
Τώρα θέλουμε η αρίθμηση στον πίνακα ΑΡΙΘΜΙΣΗ ΕΝΩΤΙΩΝ να τελειώσει στον αριθμό πχ. 138

[pakos]

Μα δεν έχει πίνακα, έχει ένα ερώτημα και δύο φόρμες

Καλά με δουλευεις ρε Γιάννη
Γνωρίζεις απο ACCESS?
Έχεις τρέξει την φόρμα?
αν δεν φαίνονται οι πίνακες μπήκες στον κόπο να δείς στις επιλογές αν είναι ορατοί οι πίνακες?

[pakos]

Καλησπέρα για κάποιους που μπορεί να χρειαστούν συνεχόμενες αριθμητικές τιμές σε κάποιο πεδίο υπάρχει αυτή η λύση.
Αν κάποιος μπορεί να την βελτιώσει με καλύτερο κώδικα είναι θεμιτό

[nasos23]

Καλησπέρα σε όλους
Για μεγαλύτερη ταχύτητα στην αρίθμηση μπορείς να δοκιμάσεις
αυτό:

Private Sub ΕΠΙΣΤΡΟΦΗ_Click()
Dim rs As DAO.Recordset, i As Long
    Set rs = CurrentDb.OpenRecordset("Select * From [ΑΡΙΘΜΙΣΗ ΕΝΩΤΙΩΝ]")
    For i = Me.[ΑΠΟ Νο] To Me.[ΕΩΣ Νο]
        rs.AddNew
        rs![ΑΡΙΘΜΙΣΗ ΕΝΩΤΙΩΝ] = i
        rs.Update
    Next
    MsgBox "Η αρίθμηση ολοκληρώθηκε"

End Sub

[pakos]

Νάσο ευχαριστώ κάτι τέτοιο έψαχνα και η διαφορά στην ταχύτητα είναι τεράστια.

Βέβαια η accesss έχει πάρα πολλούς τρόπους για να πετύχεις το αποτέλεσμα που θέλεις
σκοπός να βρίσκεις τον ευκολότερο, γρηγορότερο και λιγότερα ΜΒ.

Πασχάλης