Καλησπέρα
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 φύλλα, ενώ, όπως κατάλαβα, θέλεις να μεταφέρονται περισσότερα.
2) Μολονότι λες ότι το αρχείο Excel θα έχει πάνω από 2 φύλλα με ίδια δομή, αυτό που ανεβάζεις έχει μόνο δύο, αλλά το κυριότερο δεν ενημερώνεις αν θα υπάρξουν φύλλα με την ίδια τιμή στη στήλη Category.
3) Γράφεις ότι η βάση θα έχει και άλλους πίνακες που θα ήθελες να προστεθούν στον DiscountPlus.
Θα μπορούσες στον κώδικα, μετά τη δημιουργία του Discount (από το Excel), να παρεμβάλλεις κώδικα που θα τους προσαρτά στον Discount (πχ εκτελώντας ερωτήματα προσάρτησης).
Έτσι ο εν συνεχεία κώδικας θα τους συμπεριλάβει στον DiscountPlus.