Καλησπέρα
1) Αναστάσιε, ο κώδικας στο δοκιμαστικό που ανέβασες είναι ίδιος μ’ αυτόν που σου πρότεινα, με κάποιες διαφορές στα μηνύματα που εμφανίζει στο χρήστη.
Επίσης πρόσθεσες «χύμα» (έξω από κάποια Function ή Sub) το παρακάτω κομμάτι άσχετου κώδικα:
Κώδικας:
'Καταχώρηση δεδομένων
Set rs = CurrentDb.OpenRecordset("tblExoda")
dt = CDate(Me.DAYEX)
For i = 0 To Me.SYNDOSEON - 1
rs.AddNew
rs!DAYEX = DateAdd("m", i, dt)
rs!POSOEX = Me.POSOEX
rs!KATIGORIAEX = Me.KATIGORIAEX
rs!KATASTASIEX = Me.KATASTASIEX
rs!ARXEXODA = Me.ARXEXODA
rs!SYNDOSEON = Me.SYNDOSEON
rs!PERIODOS = Me.PERIODOS
rs!TREXDOSI = Me.TREXDOSI + i
rs!Prokatavoli = Me.Prokatavoli
rs!PERIGRAFIEX = Me.PERIGRAFIEX
rs.Update
Next
Συμπέρασμα ο κώδικας αυτός κάνει ότι ακριβώς έκανε και ο προηγούμενος.
Μεταφέρει από το Excel μόνο 2 φύλλα, ενώ, όπως κατάλαβα, θέλεις να μεταφέρονται περισσότερα.
Απάντηση στο 1) Θέμα: Είναι όντως άσχετος κώδικας που ξέχασα να σβήσω πριν το ανεβάσω το αρχείο. Το αγνοείς. Τα έσβησα, είμαστε ΟΚ εδώ.
2) Μολονότι λες ότι το αρχείο Excel θα έχει πάνω από 2 φύλλα με ίδια δομή, αυτό που ανεβάζεις έχει μόνο δύο, αλλά το κυριότερο δεν ενημερώνεις αν θα υπάρξουν φύλλα με την ίδια τιμή στη στήλη Category.
Απάντηση στο 2) Θέμα:Δεν ξέρω πόσα φύλλα θα έχει, για αυτό δεν έβαλα, μπορεί 3 στο σύνολο, 5 10, 15. Το μόνο που ξέρω είναι ότι δεν θα περνάει τα 20, αφού δεν υπάρχουν παραπάνω κατηγορίες πελατών. Ωστόσο η τιμή στην στήλη Category θα είναι μοναδική σε κάθε φύλλο.
3) Γράφεις ότι η βάση θα έχει και άλλους πίνακες που θα ήθελες να προστεθούν στον DiscountPlus.
Θα μπορούσες στον κώδικα, μετά τη δημιουργία του Discount (από το Excel), να παρεμβάλλεις κώδικα που θα τους προσαρτά στον Discount (πχ εκτελώντας ερωτήματα προσάρτησης).
Έτσι ο εν συνεχεία κώδικας θα τους συμπεριλάβει στον DiscountPlus.
