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/4506-fasma-tilefonikoi-paroxoy.html)

ggreg75 17-03-17 22:22
Φάσμα Τηλεφωνικού Παρόχου
 
Καλησπέρα,
Θα ήθελα την εξής βοήθεια.
Έχω το τηλεφωνικό φάσμα από πάροχο σταθερής τηλεφωνίας με τις εξής ενδεικτικές εγγραφές :

Από έως
2102000000 2102003999
2102004000 2102004999
2102005000 2102009999
2102010000 2102019999
2102020000 2102029999
2102030000 2102034999

Υπάρχει κάποιος γρήγορος τρόπος να φτιάξουμε ένα πίνακα σε access που να περιέχει όλους τους τηλεφωνικούς αριθμούς εντός του φάσματος;
π.χ
2102000000
2102000001
2102000002
2102000003
κοκ

Ευχαριστώ εν των προτέρων

Γρηγόρης

nasos23 19-03-17 10:01
1 Συνημμένο(α)
Καλημέρα σε όλους.
Γρηγόρη στην επισυναπτόμενη βάση:

Η φόρμα Πίνακας1 παίρνει δεδομένα απο τον Πίνακα1.Στα πεδία από και έως επιλέγουμε τους αριθμούς που θέλουμε να εισάγουμε στον πίνακά μας.
Πατώντας το κουμπί προσθήκη εγγραφών ενημερώνεται ο πίνακας2

ΥΓ. 1.Μπορείς να διαλέξεις όλους τους αριθμού ή και τμηματικά.
2.Σίγουρα υπάρχουν και καλύτερες προτάσεις απο εμπειρότερα μέλη.

kapetang 19-03-17 11:01
Καλημέρα

Φίλε Νάσο, για τη βελτίωση της ταχύτητας, θα πρότεινα να δοκιμάσεις τον παρακάτω κώδικα:

Κώδικας:
Private Sub cmdAdd_Click()
    Dim rs As DAO.Recordset, j As Long
    Set rs = CurrentDb.OpenRecordset("Select * From Πίνακας2")
    For j = Me.stnum To Me.endnum
        rs.AddNew
        rs!telnum = j
        rs.Update
    Next
    MsgBox "Η προσθήκη ολοκληρώθηκε"
End Sub

nasos23 19-03-17 12:09
Καταπληκτικό!!!
Γιώργο σ' ευχαριστώ πάρα πολύ.

ggreg75 19-03-17 14:09
Σας ευχαριστώ πολύ όλους σας!

Spirosgr 19-03-17 14:19
Καλησπέρα
Κάποτε είχα ασχοληθεί με το θέμα και θα ήθελα να σας επισημάνω την... φορητότητα.

Θα πρέπει να υπάρχει και ένας πίνακας «εξαιρέσεων»,
ώστε κατά την δημιουργία σειράς (φάσματος) πχ:2102000000 - 210200999
ο κώδικας να μην λαμβάνει υπ' όψιν τον αριθμό πχ 2102000800
ο οποίος δεν ανήκει στον ίδιο πάροχο, άλλα έχει μεταφερθεί σε άλλον...

kapetang 19-03-17 15:18
Έχω τη γνώμη ότι αυτό καλύπτεται από τον πίνακα [πίνακας1] της εφαρμογής του Νάσου.

Για να εξαιρέσουμε πχ τον αριθμό: 2102000800

Ο πίνακας [πίνακας1] θα έχει δύο εγγραφές:

1) 2102000000 – 2102000799

2) 2102000801 - 210200999

Έτσι ο αριθμός 2102000800 δε θα προστεθεί στον πίνακα [Πίνακας2]


Η ώρα είναι 00:58.

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


Search Engine Optimization by vBSEO 3.3.2