[ Πίνακες ] Πολλαπλές εγγραφές στον ίδιο πίνακα βάσει Κριτηρίων

[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 φύλλα, ενώ, όπως κατάλαβα, θέλεις να μεταφέρονται περισσότερα.

2) Μολονότι λες ότι το αρχείο Excel θα έχει πάνω από 2 φύλλα με ίδια δομή, αυτό που ανεβάζεις έχει μόνο δύο, αλλά το κυριότερο δεν ενημερώνεις αν θα υπάρξουν φύλλα με την ίδια τιμή στη στήλη Category.

3) Γράφεις ότι η βάση θα έχει και άλλους πίνακες που θα ήθελες να προστεθούν στον DiscountPlus.

Θα μπορούσες στον κώδικα, μετά τη δημιουργία του Discount (από το Excel), να παρεμβάλλεις κώδικα που θα τους προσαρτά στον Discount (πχ εκτελώντας ερωτήματα προσάρτησης).

Έτσι ο εν συνεχεία κώδικας θα τους συμπεριλάβει στον DiscountPlus.