Forum - Προσάρτηση δεδομένων απο δεύτερο ερώτημα

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Προσάρτηση δεδομένων απο δεύτερο ερώτημα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4600-prosartisi-dedomenon-apo-deitero-erotima.html)

Προσάρτηση δεδομένων απο δεύτερο ερώτημα

Φιλοι μου γειά σας,

Ίσως ο τίτλος του θέματος να μήν είναι και τόσο κατανοητός για αυτό εξηγώ:

Σε μία φόρμα έχω ένα ένα ListBox μέσω του οποίου επιλέγω κάποια δεδομένα και έχει την δυνατότητα πολλαπλής επιλογής (Multi Select) για να "κόβει δρόμο" ο χρήστης. Αυτά τα δεδομένα (που επιλέγονται) στην συνέχεια "μαζεύονται" και εμφανίζονται σε μια φόρμα που έχει μορφή Datasheet View.

Προσπαθω να βρώ τρόπο με το πάτημα μιας εντολής απο την φόρμα αυτή να μπορεί να τρέχει ένα ερώτημα προσάρτησης δεδομένων με βάση τα δεδομένα που υπάρχουν σε αυτή την φόρμα που στην τελική οπως είπα είναι Datasheet View και όπως καταλαμβαίνετε εφόσον τρέξει το ερώτημα δεν προσαρτήζονται όλα τα δεδομένα παρά μόνο η πρώτη εγραφή (Record)

Μπορεί αυτό που χρειάζομαι να είναι εφικτό? Και άν ναι, θα με βοηθούσε έστω ένα μικρό παράδειγμα έτσι ώστε να μπορέσω να κατανοήσω τον κώδικα.

Ευχαριστώ πολύ

Γιώργο καλησπέρα,

Θα μπορούσες να ανεβάσεις ένα δείγμα της βάσης;

Γειά σου φίλε Γρηγόρη,,

Αναρτώ ένα παράδειγμα έτσι ώστε να μπορέσει κάποιος να βοηθήσει

Ευχαριστώ

Γιώργο καλησπέρα,

Έχω κάνει τις αλλαγές και λειτουργεί. Υπόψιν δεν λαμβάνει υπόψιν του τις εγγραφές που εμφανίζει η φόρμα sfrmJobTitle αλλά μόνο την sfrmEmployeeID (αυτό έχω καταλάβει)

Στην διάθεσή σου για οτιδήποτε άλλο χρειαστείς

Γρηγόρης

Καλησπέρα Γιώργο.
Νομίζω σε εξυπηρετεί το παρακάτω ερώτημα προσάρτησης.
Ας ονομάσουμε "AppendQ"

Κώδικας:

INSERT INTO tblAppended

SELECT qselEmployeeFromListbox.*

FROM qselEmployeeFromListbox;

και στο κουμπί της φόρμας:

Κώδικας:

Private Sub cmdAppend_Click()
 

DoCmd.SetWarnings False

DoCmd.OpenQuery "AppendQ", acViewNormal

DoCmd.SetWarnings True
 

End Sub

Καλησπέρα,

Σε συνέχεια του μηνύματος μου, φαντάζομαι ότι ο πίνακας"tblAppended" θέλεις κάθε φορά να "αδειάζει" και να γεμίζει με τα νέα δεδομένα. Σωστά; Με αυτή την λογική το έφτιαξα εγώ (άρα υπάρχει και ερώτημα διαγραφής στην διαδικασία)

Παράθεση:

Αρχική Δημοσίευση από ggreg75 (Μήνυμα 26146)

Καλησπέρα Γρηγόρη και σε ευχαριστώ πολύ για την βοήθεια.

Ο πίνακας TblAppended δεν θα αδειάζει φίλε μου, θα γεμίζει με εγραφές στην πραγματική του λειτουργία. Επίσης, πρόσεξα ότι έχεις χρησιμοποιήσει Macro, θα με βοηθούσες αφάνταστα εάν αυτό το παράδειγμα όπως το ετοίμασες το παράθετες με Vba διότι όπως είπα αυτό αποτελεί ένα πολύ μικρό κομμάτι της πραγματικής εφαρμογής και κάπου στην εδιάμεση διαδικασία υπάρχει επίσης και αρκετός άλλος κώδικα οπότε θα με βοηθούσε εάν μου έδινες ένα δείγμα με κώδικα.

Σε κάθε περιπτωση ευχαριστώ πάρα πολύ για την πολύτιμη βοήθεια και την διάθεση σου για να βοηθήσεις.

Παράθεση:

Αρχική Δημοσίευση από nasos23 (Μήνυμα 26147)

Καλησπέρα Γιώργο.
Νομίζω σε εξυπηρετεί το παρακάτω ερώτημα προσάρτησης.
Ας ονομάσουμε "AppendQ"

Κώδικας:

INSERT INTO tblAppended

SELECT qselEmployeeFromListbox.*

FROM qselEmployeeFromListbox;

και στο κουμπί της φόρμας:

Κώδικας:

Private Sub cmdAppend_Click()
 

DoCmd.SetWarnings False

DoCmd.OpenQuery "AppendQ", acViewNormal

DoCmd.SetWarnings True
 

End Sub

Καλησπέρα και σε εσενα φίλε Νάσο και σε ευχαριστώ πολύ για την βοήθεια,

Όπως έχω αναφέρει και τον Γρηγόρη αν και το παράδειγμα του είναι με χρήση μακροεντολής εντούτις το δικό σου παράδειγμα προσεγγίζει πιο πολύ το ζητούμενο διότι όπως είπα κάπου στην μέση της διαδικασίας στην πραγματική βάση υπάρχει αρκετός κώδικας και θα ήθελα να λύσω το πρόβλημα επίσης με κώδικα για πιο εύκολη διαχείρηση του ζητούμενου. Οπότε όπως είπα το παράδειγμα σου προσεγγίζει πιο πολύ το δικό μου "θέλω". Παρόλα αυτά, βοήθησε με ακόμη λίγο αν μπορείς στο εξής που δεν έχω καταλάβει:

Γράφεις:

Κώδικας:

INSERT INTO tblAppended

SELECT qselEmployeeFromListbox.*

FROM qselEmployeeFromListbox;

Αυτό το κομμάτι κώδικα που πρέπει να το καταχωρήσω? (συγνώμη για την ηλίθια ερώτηση αλλά κάπου απο τις πολλές ώρες στον υπολογιστή κόλλησε το μυαλό μου)

Θα μπορούσες αν δεν σου κάνει κόπο να τροποποιούσες το παράδειγμα που έχω ήδη αναρτήσει προς αυτό το ζητούμενο?

Και πάλιν σε ευχαριστώ πολύ για την βοηθεια.

Γιώργο καλησπέρα,
Λαμβάνοντας υπόψιν μου αυτά που ανέφερε ο Νάσος, ενσωμάτωσα την διαδικασία και σου ανεβάζω εκ νέου το αρχείο (με αυτά που πρότεινε ο Νάσος).

Νομίζω πως τώρα είναι εντάξει.

---------------------------
Σχετικά με αυτό που ρωτάς :
INSERT INTO tblAppended
SELECT qselEmployeeFromListbox.*
FROM qselEmployeeFromListbox;

Αυτό είναι κώδικας sql για να δημιουργήσεις το ερώτημα με την ονομασία "AppendQ". Σε νέο ερώτημα πηγαίνεις "Προβολή SQL" και κάνεις επικόλληση τον κώδικα που έστειλε ο Νάσος αποθηκεύοντας το με ονομασία "AppendQ". (το έχω κάνει ήδη για σένα)

Σε ευχαριστώ Γρηγόρη.
Κατάφερα να μπερδέψω το Γιώργο βάζοντας
το ερώτημα σε σχεδίαση sql σε παράθεση κώδικα.