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/2991-dimioyrgia-erotimatos.html)

ΜΑΝΟ	10-02-14 08:26

Δημιουργία ερωτήματος

2 Συνημμένο(α)

Καλημέρα

Εχω φτιαξει μια βαση δεδομενων και διαχειρίζομαι την παραγωγη της βιοτεχνιας μου.Δεν εχω γνωσεις προγραμματισμου και χρησιμοποιω τους οδηγούς δημιουργιας ερωτημάτων και φορμων.Εχω ένα πινακα (συνημμενη φωτο )στον οποιο καταχωρω τις παραγγελιες.Θελω να δημιουργησω ένα ερωτημα το οποιο θα μπορει να αναπαραγει από κάθε σειρα (δειγμα μιας σειρας εγγραφης του πινακα στο συνημμενο) μια ξεχωριστη εγγραφη για κάθε σχεδιο χρωμα και νουμερο.(βλεπε συνημμενο πινακας2).Από τους οδηγούς ερωτημάτων δεν μπορω να το κανω.Θα ηθελα να μου πειτε πως θα μπορουσε να γινει.

γιώργοςΚ

10-02-14 10:53

Μάνο καλημέρα,

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

Φιλικά

ΜΑΝΟ	10-02-14 17:36

1 Συνημμένο(α)

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

kapetang

10-02-14 18:14

Καλησπέρα

Μάνο, καλωσόρισες στην παρέα μας.

Σε προβολή SQL, δοκίμασε το παρακάτω ερώτημα ένωσης.

Κώδικας:

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 34 AS ΜΕΓΕΘΟΣ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [34]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 35 AS ΜΕΓΕΘΟΣ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [35]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 36 AS ΜΕΓΕΘΟΣ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [36]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 37 AS ΜΕΓΕΘΟΣ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [37]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 38 AS ΜΕΓΕΘΟΣ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [38]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 39 AS ΜΕΓΕΘΟΣ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [39]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 40 AS ΜΕΓΕΘΟΣ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [40]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 41 AS ΜΕΓΕΘΟΣ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [41]  is null

UNION 

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 42 AS ΜΕΓΕΘΟΣ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [42]  is null;

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

ΜΑΝΟ	10-02-14 21:01

Καλησπέρα Γιωργο

Ευχαριστω για την αμεση απαντηση.Δοκιμασα αυτό που μου εγραψες και μου εμφανιζει τις εγγραφες μονο μια φορα στο κάθε σχεδιο χρωμα και μέγεθος.Εγω θελω όταν γραφει στον πινακα π.χ ότι ένα σχεδιο στο χρωμα μαυρο εχει 2 στο 37 να μου εμφανιζει δυο ιδιες εγγραφες.Αν εχει 5 στο 38 να μου εμφανιζει 5 ιδιες εγγραφες.Τωρα μου εμφανιζει μια μονο εγγραφη.

kapetang

10-02-14 22:03

Καλησπέρα

Μάνο θα μπορούσε να προστεθεί στο ερώτημα που σου πρότεινα ένα πεδίο, πχ [ΠΟΣΟΤΗΤΑ], στο οποίο να αναγράφεται η ποσότητα.

Έτσι για κάθε σχέδιο, χρώμα, και μέγεθος θα είχες και την ποσότητα, δηλαδή όλα τα στοιχεία.

Η υλοποίηση γίνεται με το παρακάτω ερώτημα:

Κώδικας:

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 34 AS ΜΕΓΕΘΟΣ, [34] AS ΠΟΣΟΤΗΤΑ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [34]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 35 AS ΜΕΓΕΘΟΣ, [35] AS ΠΟΣΟΤΗΤΑ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [35]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 36 AS ΜΕΓΕΘΟΣ, [36] AS ΠΟΣΟΤΗΤΑ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [36]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 37 AS ΜΕΓΕΘΟΣ, [37] AS ΠΟΣΟΤΗΤΑ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [37]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 38 AS ΜΕΓΕΘΟΣ, [38] AS ΠΟΣΟΤΗΤΑ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [38]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 39 AS ΜΕΓΕΘΟΣ, [39] AS ΠΟΣΟΤΗΤΑ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [39]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 40 AS ΜΕΓΕΘΟΣ, [40] AS ΠΟΣΟΤΗΤΑ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [40]  is null

UNION

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 41 AS ΜΕΓΕΘΟΣ, [41] AS ΠΟΣΟΤΗΤΑ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [41]  is null

UNION 

SELECT ΠΑΡΑΓΓΕΛΙΕΣ.ΣΧΕΔΙΟ, ΠΑΡΑΓΓΕΛΙΕΣ.ΧΡΩΜΑ, 42 AS ΜΕΓΕΘΟΣ, [42] AS ΠΟΣΟΤΗΤΑ FROM ΠΑΡΑΓΓΕΛΙΕΣ WHERE not [42]  is null;

Με κώδικα VBA θα μπορούσε να γίνει ένας πίνακας με τα στοιχεία, όπως τα ζητάς, αλλά δε βλέπω σε τι παραπάνω θα βοηθούσε.

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

ΜΑΝΟ	10-02-14 23:02

Γιωργο το εκανα αλλα δεν είναι αυτό που ζηταω.Εχω παλι μια εγγραφη απλως μου γραφει στην ποσοτητα ποσα είναι.Εγω θελω να γινουν ξεχωριστες εγγραφες.Το χρειαζομαι για να τυπωσω ετικέτες.Οταν εχω π.χ. 5 τεμαχια από το σχεδιο 1 στο χρωμα καφε στο μέγεθος 37 θελω 5 ξεχωριστες ετικέτες.

Ευχαριστω /Μανος

kapetang

11-02-14 00:14

1 Συνημμένο(α)

Καλημέρα

Μάνο στη ΒΔ που επισυνάπτω έχω προσθέσει:

1) Τον πίνακα tblLabels

2) Το ερώτημα qryLabels

3) Τη φόρμα frmLabels.

Πατώντας το κουμπί της φόρμας εκτελείται ο κώδικας, που γεμίζει τον πίνακα tblLabels με τις εγγραφές που θέλεις.

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

ΜΑΝΟ	11-02-14 07:31

Καλημέρα Γιωργο

Αυτό είναι ακριβως που χρειαζομαι.Θα προσπαθήσω να το ενσωματωσω στη πληρη βαση δεδομενων.Ελπιζω να τα καταφερω.Ο πινακας tbllabels δημιουργείται αυτόματα με το πατημα του κουμπιού φορμας η υπαρχει και με το πατημα συμπηρωνονται οι εγγραφες;

Ευχαριστω πολύ για την πολυτιμη βοηθεια
Μανος

kapetang

11-02-14 08:13

1 Συνημμένο(α)

Καλημέρα Μάνο

Ο πίνακας tblLabels δε δημιουργείται αυτόματα.

Στη βάση σου θα πρέπει να εισαχθεί ο πίνακας tblLabels, το ερώτημα qryLabels και η φόρμα frmLabels.

Στην επισυναπτόμενη ΒΔ βελτίωσα τον κώδικα με στόχο την αύξηση της ταχύτητας και την αποτροπή του ξαναπατήματος του κουμπιού, ενώ είναι σε εξέλιξη το γέμισμα του πίνακα tblLabels.

Γιώργος

kapetang

11-02-14 13:43

1 Συνημμένο(α)

Καλησπέρα

Στην επισυναπτόμενη ΒΔ:

1) Τροποποιήθηκε το ερώτημα qryLabels (το UMION αντικαταστάθηκε με το UNION ALL), για να μη αποκλειστούν όμοιες εγγραφές.

2) Τροποποιήθηκε ελαφρά ο κώδικας για βελτίωση της ταχύτητας.

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

ΜΑΝΟ	11-02-14 17:54

Καλησπέρα
Ακομα δεν εχω βρει χρονο να προσαρμοσω τη φορμα και τον πινακα στη βαση μου.Ομως παρατηρησα ότι εάν διαγραψω τις εγγραφες στον πινακα tblLabels και πατησω το κουμπι στη φορμα μου βγαζει μηνυμα error 2164 και ο πινακας δεν ξαναγεμιζει εγγραφες.Στην mdb 2 γινεται κανονικα.Στην 3 και 4 όχι.

Ευχαριστω

kapetang

11-02-14 18:50

Καλησπέρα

Μάνο δοκίμασα τις ΒΔ 3 και 4.

Σε μένα δεν παρουσιάζουν το πρόβλημα.

Δεν ξέρω αν το πρόβλημα παρουσιάζεται και σε άλλα μέλη.

Από τις ΒΔ 3 και 4 θα πρέπει να χρησιμοποιήσεις την 4, που δημιουργεί όλες τις γραμμές.

Βλέποντας τον κώδικα εντόπισα ένα λάθος.

Θα πρέπει η γραμμή:

MsgBox "Η δημιουργία του πίνακα ετικετών ολοκληρώθηκε"

Να μετακινηθεί ακριβώς πριν από την: Sub_Exit:

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

kapetang

11-02-14 19:21

Μάλλον το λάθος το προκαλεί η γραμμή:

Me.cmdLabels.Enabled = False

Μπορείς να την κάνεις σχόλιο βάζοντας μπροστά μία απόστροφο

ΜΑΝΟ	11-02-14 20:47

Γιωργο συγχαρητηρια.Το περασα στη βαση και δουλευει ολόσωστα.

Ευχαριστω πολύ
Μανος

ΜΑΝΟ	21-01-17 22:49

1 Συνημμένο(α)

Καλησπέρα.Πριν 3 χρονια ο χρηστης Kapetang μου ειχε φτιαξει στην επισυναπτομενη βαση δεδομενων τον πινακα tbl labels με τα πεδια ΣΧΕΔΙΟ ΧΡΩΜΑ ΜΕΓΕΘΟΣ ο οποιος συμπληρωνοταν με το πατημα του κουμπιού στη φορμα frm labels.Θα ηθελα να προσθεσω στον πινακα δυο ακομα πεδια (ΥΨΟΣ ΚΑΙ ΝΤΥΣΙΜΑΤΑ) .Παρακαλω αν μπορειτε να με βοηθήσετε.

kapetang

22-01-17 10:57

1 Συνημμένο(α)

Καλημέρα

Μάνο, δες το συνημμένο.

ΜΑΝΟ	22-01-17 17:51

Εχω πρόβλημα όταν το μεταφερω στην πληρη βαση.Μου βγαζει μηνυμα λαθους.
Error #3061 Πολύ λιγες παραμετροι.Αναμενοταν 1.

kapetang

22-01-17 18:49

Δεν μπορώ να ξέρω τι λάθος γίνεται κατά την προσαρμογή.

Θα πρότεινα να ελέγξεις:

1) Αν έχεις προσθέσει τα επιπλέον πεδία στον πίνακα tblLabels.

2) Αν χρησιμοποιείς το νέο ερώτημα qryLabels

3) Αν τα πεδία στους πίνακες [ΠΑΡΑΓΓΕΛΙΕΣ] και tblLabels, στο ερώτημα qryLabels και στον κώδικα έχουν ταυτόσημα ονόματα.

4) Αν ο τύπος των πεδίων ταυτίζεται με τον τύπο των αντίστοιχων πεδίων του παραδείγματος.

ΜΑΝΟ	22-01-17 20:38

Το μονο που εχω αλλαξει είναι ο τυπος δεδομενων στο πεδιο σχεδιο από αριθμο σε συντομο κειμενο.Αλλαζει κατι στον κωδικα?

nasos23

22-01-17 21:53

Παράθεση:

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

Καλησπέρα στην παρέα.
Μάνο πρέπει να κάνεις διόρθωση στη γραμμή του κώδικα με κόκκινα γράμματα

Κώδικας:

  strSQL = strS & "'" & ![ΣΧΕΔΙΟ] & "', '" & ![ΧΡΩΜΑ] & "', " & ![ΜΕΓΕΘΟΣ] & _

                         ", '" & ![ΥΨΟΣ] & "','" & ![ΝΤΥΣΙΜΑΤΑ] & "')"

Επίσης άλλαξε αντίστοιχα και τη μορφή στον πίνακα tblLabels.

kapetang

22-01-17 22:11

1 Συνημμένο(α)

Αλλάζει.

Στον κώδικα οι τιμές για τα πεδία κειμένου πρέπει να περικλείονται σε μονά εισαγωγικά.

Δες το συνημμένο.

ΥΓ Νάσο δεν είχα δει το μήνυμά σου

ΜΑΝΟ	22-01-17 22:29

Δουλεψε.Σας ευχαριστω .

Η ώρα είναι 18:26.

Search Engine Optimization by vBSEO 3.3.2