ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Προσάρτηση δεδομένων απο δεύτερο ερώτημα

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 08-06-17, 18:27
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 744
Προεπιλογή Προσάρτηση δεδομένων απο δεύτερο ερώτημα

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

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

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

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

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

Ευχαριστώ πολύ
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com
Απάντηση με παράθεση
  #2  
Παλιά 11-06-17, 13:11
Όνομα: Γρηγόρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-03-2013
Μηνύματα: 123
Προεπιλογή

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

Θα μπορούσες να ανεβάσεις ένα δείγμα της βάσης;
Απάντηση με παράθεση
  #3  
Παλιά 11-06-17, 13:56
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 744
Προεπιλογή

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

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

Ευχαριστώ
Συνημμένα Αρχεία
Τύπος Αρχείου: zip MultiSelectListBoxQuery.zip (49,4 KB, 6 εμφανίσεις)
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com
Απάντηση με παράθεση
  #4  
Παλιά 11-06-17, 14:47
Όνομα: Γρηγόρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-03-2013
Μηνύματα: 123
Προεπιλογή

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

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

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

Γρηγόρης
Συνημμένα Αρχεία
Τύπος Αρχείου: zip MultiSelectListBoxQuery.zip (76,1 KB, 7 εμφανίσεις)
Απάντηση με παράθεση
  #5  
Παλιά 11-06-17, 14:47
Το avatar του χρήστη nasos23
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 427
Προεπιλογή

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

Κώδικας:
INSERT INTO tblAppended
SELECT qselEmployeeFromListbox.*
FROM qselEmployeeFromListbox;
και στο κουμπί της φόρμας:
Κώδικας:
Private Sub cmdAppend_Click()

DoCmd.SetWarnings False
DoCmd.OpenQuery "AppendQ", acViewNormal
DoCmd.SetWarnings True

End Sub
__________________
Φιλικά, Νάσος
Απάντηση με παράθεση
  #6  
Παλιά 11-06-17, 14:51
Όνομα: Γρηγόρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-03-2013
Μηνύματα: 123
Προεπιλογή

Καλησπέρα,

Σε συνέχεια του μηνύματος μου, φαντάζομαι ότι ο πίνακας"tblAppended" θέλεις κάθε φορά να "αδειάζει" και να γεμίζει με τα νέα δεδομένα. Σωστά; Με αυτή την λογική το έφτιαξα εγώ (άρα υπάρχει και ερώτημα διαγραφής στην διαδικασία)
Απάντηση με παράθεση
  #7  
Παλιά 11-06-17, 16:10
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 744
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από ggreg75 Εμφάνιση μηνυμάτων
Γιώργο καλησπέρα,

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

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

Γρηγόρης

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

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

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

gs.pocketpc@gmail.com
Απάντηση με παράθεση
  #8  
Παλιά 11-06-17, 16:16
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 744
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από nasos23 Εμφάνιση μηνυμάτων
Καλησπέρα Γιώργο.
Νομίζω σε εξυπηρετεί το παρακάτω ερώτημα προσάρτησης.
Ας ονομάσουμε "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;
Αυτό το κομμάτι κώδικα που πρέπει να το καταχωρήσω? (συγνώμη για την ηλίθια ερώτηση αλλά κάπου απο τις πολλές ώρες στον υπολογιστή κόλλησε το μυαλό μου)

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

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

gs.pocketpc@gmail.com
Απάντηση με παράθεση
  #9  
Παλιά 11-06-17, 16:54
Όνομα: Γρηγόρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-03-2013
Μηνύματα: 123
Προεπιλογή

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

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

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

Αυτό είναι κώδικας sql για να δημιουργήσεις το ερώτημα με την ονομασία "AppendQ". Σε νέο ερώτημα πηγαίνεις "Προβολή SQL" και κάνεις επικόλληση τον κώδικα που έστειλε ο Νάσος αποθηκεύοντας το με ονομασία "AppendQ". (το έχω κάνει ήδη για σένα)
Συνημμένα Αρχεία
Τύπος Αρχείου: zip MultiSelectListBoxQuery_2.zip (76,3 KB, 18 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη ggreg75 : 11-06-17 στις 17:05.
Απάντηση με παράθεση
  #10  
Παλιά 11-06-17, 19:06
Το avatar του χρήστη nasos23
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 427
Προεπιλογή

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

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Καθορισμός Χρονικης Περιόδου και προσάρτηση δεδομένων σε πίνακα γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 5 18-01-17 11:43
[ Πίνακες ] Προσάρτηση δεδομένων υπο όρους dimitrisp Access - Ερωτήσεις / Απαντήσεις 10 23-11-16 22:48
Άνοιγμα αρχείου word και προσάρτηση δεδομένων γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 8 23-09-16 21:23
[Μορφοποίηση] αλλαγη στο δευτερο δεκαδικο ψηφιο Quenya Excel - Ερωτήσεις / Απαντήσεις 13 06-09-15 14:50
Προσάρτηση δεδομένων απο access σε excel ευη79 Access - Ερωτήσεις / Απαντήσεις 3 30-11-14 11:57


Η ώρα είναι 11:58.