Εμφάνιση ενός μόνο μηνύματος
  #4  
Παλιά 11-10-18, 10:42
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Αγαπητέ Πάρη,
σχεδιαστικά και μόνο δεν πρέπει να φτάνουμε στο σημείο να χρειαζόμαστε συμπεριφορές στοιχείων ελέγχου που δεν υποστηρίζονται από την Access / VBA.

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

Στο παράδειγμα έχω τρεις φόρμες frmMain1, frmMain2 και frmMain3)

Η πρώτη (frmMain1) περιέχει μια λίστα με 4 ορατές στήλες βάσει των οποίων ταξινομούνται τα δεδομένα πατώντας τα αντίστοιχα κουμπιά πάνω από το πλαίσιο.

Μπορεί κανείς να προσθέσει ή να αφαιρέσει κουμπιά αρκεί:
  1. Το όνομα του κουμπιού να αρχίζει από ‘cmdSort’ πχ. cmdSort1, cmdSort2 κοκ.
  2. Στην ιδιότητα «ετικέτα» να υπάρχει η πληροφορία: ListCustomers;tblCustomers.Surname όπου
  • ListCustomers = ‘Όνομα λίστας.
  • Ερωτηματικό (;) = διαχωριστικό θα χρειαστεί κατά την εκτέλεση του κώδικα.
  • tblCustomers.Surname = ‘Όνομα πίνακα και όνομα πεδίου προς ταξινόμηση.

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

Η δεύτερη φόρμα (frmMain2) περιέχει μια υποφόρμα για να γίνεται η επιθυμητή ταξινόμηση χωρίς κώδικες κλπ.

Η τρίτη φόρμα (frmMain3) είναι απλά μια διαιρεμένη φόρμα που επίσης κάνει ταξινόμιση και φιλτράρισμα δεδομένων.

Καλή συνέχεια.

Τάσος
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb SortListbox.accdb (2,38 MB, 27 εμφανίσεις)
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση