Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   συνεχόμενες αριθμητικές εγγραφές (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4945-synexomenes-arithmitikes-eggrafes.html)

pakos 11-07-18 18:19
συνεχόμενες αριθμητικές εγγραφές
 
Καλησπέρα και πάλι
μια βοήθεια σχετικά με συνεχόμενες αριθμητικές εγγραφές σε πινάκα access με vba

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

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

pakos 12-07-18 13:01
ΣΧΕΤΙΚΑ ΜΕ ΑΡΙΘΜΙΣΗ
 
1 Συνημμένο(α)
Καλημέρα

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

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

pakos 13-07-18 11:49
ΣΧΕΤΙΚΑ ΜΕ ΑΡΙΘΜΙΣΗ
 
Καλησπέρα

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

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

pakos 14-07-18 22:11
Μα δεν έχει πίνακα, έχει ένα ερώτημα και δύο φόρμες

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

pakos 21-07-18 21:40
Συνέχεια με την διαδοχική αρίθμηση
 
1 Συνημμένο(α)
Καλησπέρα για κάποιους που μπορεί να χρειαστούν συνεχόμενες αριθμητικές τιμές σε κάποιο πεδίο υπάρχει αυτή η λύση.
Αν κάποιος μπορεί να την βελτιώσει με καλύτερο κώδικα είναι θεμιτό

nasos23 22-07-18 22:58
Καλησπέρα σε όλους
Για μεγαλύτερη ταχύτητα στην αρίθμηση μπορείς να δοκιμάσεις
αυτό:
Κώδικας:
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 23-07-18 14:14
Συνέχεια με την διαδοχική αρίθμηση
 
Νάσο ευχαριστώ κάτι τέτοιο έψαχνα και η διαφορά στην ταχύτητα είναι τεράστια.

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

Πασχάλης


Η ώρα είναι 06:26.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2