Σύγκριση σύνθετου πλαισίου και λίστας

[kon73]

Καλησπέρα,

Διαβάζοντας το μήνυμα σου θα επανέρθω πάλι σε λύσεις με SQL Strings.

Ερωτήματα μπορούν να γίνουν έτσι ώστε να φιλτράρεις τις εγγραφές σου να εμφανίζει συγκεκριμένους υπάλληλους ώστε επιλέγεις μετά τα Checkboxs και να τους καταχωρείς με Insert Into αλλά με κριτήριο αυτά που έχουν πχ Checked=True σε έναν πίνακα που πχ θα είναι το Master και θα εμπεριέχει τους υπαλλήλους με συγκεκριμένη Ημέρα. Το Master αυτό θα λειτουργεί ως ημερολόγιο.

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

[pm4698]

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

Ευχαριστώ για την υπομονή και την κατανόησή σας

Παντελής

[kon73]

Αγαπητέ φίλε μου Παντελή,

Θα χρειαστεί να σε ταλαιπωρήσω λίγο ακόμα καθότι θα πρέπει να μου ξαναστείλεις την βάση σε Format 2003 ή και μικρότερη.

Νομίζω καλά είναι γενικώς να αποστέλλουμε τις βάσεις μας σε Format 2000 ώστε να είναι αναγνώσιμες από όλες τις εκδόσεις Access καθότι έτσι θα είναι προσπελάσιμες από όλους τους χρήστες του Forum που έχουν ποικίλες εκδόσεις Access.

[pm4698]

Ορίστε το δοκιμαστικό σε έκδοση ms access 2000.
Καμία ταλαιπωρία!

[pm4698]

Κατόπιν βοήθειας από τον κο Κωνσταντίνο, ανέβασα το συνημμένο αρχείο το οποίο λειτουργεί ως εξής:
(Σημείωση - λειτουργεί μόνο το πρώτο σύνθετο πλαίσιο σε σχέση με την αριστερή λίστα).

Δημιουργήθηκε ένα νέο πεδίο στον πίνακα ΕΡΓΑΖΟΜΕΝΟΣ το οποίο ονομάστηκε listboxincluded και η default τιμή του είναι Αληθές.
Σε κάθε σύνθετο πλαίσιο, χρησιμοποιείται ως rowsource ένα query που επιλέγει τα Επώνυμα για τα οποία το listboxincluded είναι Αληθές.
Στο after update του σύνθετου πλαισίου, χρησιμοποιείται ο εξής κώδικας:

Private EmplID As String
'Απενεργοποίηση ειδοποιήσεων της access
Application.SetOption "Confirm Action Queries", False

If Not IsNull(EmplID) Then DoCmd.RunSQL ("UPDATE ΕΡΓΑΖΟΜΕΝΟΣ SET ListBoxIncluded=true WHERE Επώνυμο='" & EmplID & "'")
EmplID = Me.combobox_name.Column(0)
DoCmd.RunSQL ("UPDATE ΕΡΓΑΖΟΜΕΝΟΣ SET ListBoxIncluded=False WHERE Επώνυμο='" & EmplID & "'")

και στο on change event του σύνθετου πλαισίου κρατείται η προηγούμενη τιμή:
EmplID = Me.k1.OldValue

Με αυτό τον τρόπο, το όνομα που θα επιλεγεί από το σύνθετο πλαίσιο, αφαιρείται από την λίστα αλλά δεν εμφανίζεται ούτε στα επόμενα πλαίσια, διότι η τιμή του για το listboxincluded γίνεται False.
Επίσης, στην περίπτωση που κάποιος το μετανιώσει και επιλέξει άλλο όνομα στο σύνθετο πλαίσιο, χρησιμοποιείται η προηγούμενη τιμή του για να τεθεί το πεδίο της listboxincluded σε true κ.ο.κ.

Αυτό το σύστημα δούλεψε για ένα σύνθετο πλαίσιο.
Έπειτα, εφάρμοσα όλα αυτά σε όλα τα σύνθετα πλαίσια, αλλά όταν επιλέγω ένα όνομα από ένα σύνθετο πλαίσιο, δεν λειτουργεί κάτι.
Θα πρέπει για κάθε σύνθετο πλαίσιο, να χρησιμοποιώ άλλη μεταβλητή string?
Δηλαδή για το πρώτο σύνθετο πλαίσιο την μεταβλητή empID1 κοκ?

Ευχαριστώ

[pm4698]

Τελικά, δοκίμασα να βάλω δύο μεταβλητές, empID για το πρώτο σύνθετο πλαίσιο και empID1 για το δεύτερο και δούλεψε μια χαρά. Θα το δοκιμάσω για όλα και θα ενημερώσω για την εξέλιξή μου

[kon73]

Καλημέρα Παντελή,

Πιστεύω πως δεν χρειάζεται να δημιουργήσεις πολλές μεταβλητές απλά οι τιμές που θα παίρνουν οι μεταβλητές θα ορίζονται για το κάθε ComboBox στα Events τους Change και AfterUpdate οπότε λογικά θα έχεις μία μεταβλητή για όλα τα ComboBox.

[pm4698]

Έτσι το έκανα αρχικά και δεν δούλεψε. Δηλαδή, δεν μου διέγραφε τα ονόματα από τις λίστες.Γι' αυτό τώρα κάνω έναν κόπο να βάλω πολλές μεταβλητές

[pm4698]

Ok.
Δούλεψε με τις πολλές μεταβλητές, απλά μου φαγε πολύ χρόνο γιατί ξεχνούσα να αλλάξω πράγματα από το ένα σύνθετο πλαίσιο στο άλλο.

Ευχαριστώ πολύ για τον χρόνο σας στο πρόβλημά μου

[kon73]

Αγαπητέ Παντελή,

Δεν κατάλαβα γιατί δεν σου δούλευε και με μία μόνο μεταβλητή καθότι είπαμε ότι αυτή είχε εμβέλεια φόρμας δηλαδή δηλώθηκε ως Private.

Θα ήθελα αν γίνεται να την δω την βάση σου ώστε να ελέγξω την περίπτωση αυτή.