Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Φάσμα Τηλεφωνικού Παρόχου

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 17-03-17, 22:22
Όνομα: Γρηγόρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-03-2013
Μηνύματα: 133
Προεπιλογή Φάσμα Τηλεφωνικού Παρόχου

Καλησπέρα,
Θα ήθελα την εξής βοήθεια.
Έχω το τηλεφωνικό φάσμα από πάροχο σταθερής τηλεφωνίας με τις εξής ενδεικτικές εγγραφές :

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

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

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

Γρηγόρης
Απάντηση με παράθεση
  #2  
Παλιά 19-03-17, 10:01
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 455
Προεπιλογή

Καλημέρα σε όλους.
Γρηγόρη στην επισυναπτόμενη βάση:

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

ΥΓ. 1.Μπορείς να διαλέξεις όλους τους αριθμού ή και τμηματικά.
2.Σίγουρα υπάρχουν και καλύτερες προτάσεις απο εμπειρότερα μέλη.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Τηλεφωνικοί αριθμοί.zip (29,1 KB, 23 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 19-03-17, 11:01
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλημέρα

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

Κώδικας:
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
Απάντηση με παράθεση
  #4  
Παλιά 19-03-17, 12:09
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 455
Προεπιλογή

Καταπληκτικό!!!
Γιώργο σ' ευχαριστώ πάρα πολύ.
Απάντηση με παράθεση
  #5  
Παλιά 19-03-17, 14:09
Όνομα: Γρηγόρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-03-2013
Μηνύματα: 133
Προεπιλογή

Σας ευχαριστώ πολύ όλους σας!
Απάντηση με παράθεση
  #6  
Παλιά 19-03-17, 14:19
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.321
Προεπιλογή

Καλησπέρα
Κάποτε είχα ασχοληθεί με το θέμα και θα ήθελα να σας επισημάνω την... φορητότητα.

Θα πρέπει να υπάρχει και ένας πίνακας «εξαιρέσεων»,
ώστε κατά την δημιουργία σειράς (φάσματος) πχ:2102000000 - 210200999
ο κώδικας να μην λαμβάνει υπ' όψιν τον αριθμό πχ 2102000800
ο οποίος δεν ανήκει στον ίδιο πάροχο, άλλα έχει μεταφερθεί σε άλλον...
Απάντηση με παράθεση
  #7  
Παλιά 19-03-17, 15:18
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Έχω τη γνώμη ότι αυτό καλύπτεται από τον πίνακα [πίνακας1] της εφαρμογής του Νάσου.

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

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

1) 2102000000 – 2102000799

2) 2102000801 - 210200999

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


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας



Η ώρα είναι 20:09.