[kapetang]

Καλησπέρα

Γιώργο, το μήνυμα λάθους, όταν πατάς το κουμπί στη φόρμα, μάλλον οφείλεται στο ότι το Word είναι φορτωμένο μαζί με κάποιο έγγραφο (πιθανόν κενό).

Για την αντιμετώπιση του προβλήματος στον κώδικα, άλλαξε τη γραμμή:

Set Doc=Doc.Documents(……

με την Set Doc=Doc.ActiveDocument

Γράφεις «Ζητώ την κατανόηση σου διότι δεν μπορώ να "ανεβάσω" την πραγματική βάση έτσι ώστε να μπορέσουμε να δούμε που κάνω λάθος (για ευνόητους λόγους)».

Εκείνο που μπορεί να είναι απόρρητο σε μια ΒΔ είναι τα δεδομένα και όχι η σχεδίασή της (πίνακες, πεδία σχέσεις, κλπ).

Κάλλιστα θα μπορούσες να ανεβάσεις το αναγκαίο τμήμα της ΒΔ με εικονικά δεδομένα.

Αλλά και το δείγμα που ανέβασες είναι τελείως πρόχειρο.

Στον πίνακα Table1 υπάρχουν τα πεδία Field1, Day, Kathiconta τύπου Text μολονότι συνδέονται με τα ID, ID και ID των πινάκων Table2, cboDay και cboKathikonta που είναι αριθμητικά.

Στη φόρμα γράφεις «Δηλαδή: Εάν είναι επιλεγμένο απο το cboKathikonta το Α1 και cboDay = Δευτέρα να ενημερώνεται ο πίνακας στην Word για το Α1 & Δευτέρα με την τιμή του "txtAll" (Concatenate πεδίο)».

Επειδή το txtAll έχει όλα τα ονόματα των αξιωματικών του πρόγραμματος υπηρεσίας, θέλεις σε κάθε κελί του πίνακα του Word να περνάνε όλα τα ονόματα!!!.

Στη επισυναπτόμενη ΒΔ έκανα κάποιες αλλαγές (τα βοηθητικά σύνθετα πλαίσια δε χρειάζονται), πιθανόν να σε εξυπηρετεί.

Φιλικά/Γιώργος