[Αναστάσιος]

Αρχική Δημοσίευση από kapetang

Καλησπέρα

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.

Απάντηση στο 3) Θέμα: Αυτό το έφτιαξα με παρεμβολή στον κώδικα. Ειναι ΟΚ.

Σε ευχαριστώ.