Ανανέωση ιστοσελίδας

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 12-01-13, 21:49
Όνομα: ΣΤΑΥΡΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 27-10-2012
Μηνύματα: 102
Προεπιλογή Ταξινόμηση σε έκθεση

καλησπέρα στο φόρουμ.
Παιδιά δεν ξέρω αν υπάρχει τρόπος.
Θέλω σε μία έκθεση να ταξινομήσω οχήματα αλλά όπως θέλω εγώ
Δηλαδή όχι αλφαβητικά
ΠΡΕΣ
ΦΟΡΤΗΓΟ 4
ΑΡΠΑ
ΚΟΝΤΕΙΝΕΡ 8
Και λοιπά
Ευχαριστώ εκ των προτέρων
Απάντηση με παράθεση
  #2  
Παλιά 12-01-13, 23:33
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.011
Προεπιλογή

Καλησπέρα!

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

Κατόπιν στην έκθεση κάνε ταξινόμηση αυτού του πεδίου .

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #3  
Παλιά 12-01-13, 23:38
Όνομα: ΣΤΑΥΡΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 27-10-2012
Μηνύματα: 102
Προεπιλογή

Το σκέφτηκα και εγώ Τάσο αλλά για να μην παραφορτώνω τον πίνακα επειδή έχω πολλά πεδία έλεγα μήπως υπήρχε κάτι άλλο.
Πάντως ευχαριστώ
Φιλικά Σταύρος
Απάντηση με παράθεση
  #4  
Παλιά 13-01-13, 10:45
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλημέρα

Σταύρο, αν δε θέλεις να χρησιμοποιήσεις την απλή λύση που πρότεινε ο Τάσος, θα μπορούσες:

1) Να δημιουργήσεις μία συνάρτηση όπως η παρακάτω
Κώδικας:
Public Function CustomOrder(X As String) As Long
    Select Case X
        Case "ΠΡΕΣ": CustomOrder = 1
        Case "ΦΟΡΤΗΓΟ 4": CustomOrder = 2
        Case "ΑΡΠΑ": CustomOrder = 3
        Case "ΚΟΝΤΕΙΝΕΡ 8": CustomOrder = 4
    End Select
End Function
2) Να χρησιμοποιήσεις τη συνάρτηση αυτή για την ταξινόμηση.

Αυτό μπορεί να γίνει είτε με τη βοήθεια ερωτήματος (SortCars) είτε και απευθείας στην έκθεση (rprCars).

Δες τη ΒΔ που επισυνάπτω

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb CustomSort.mdb (288,0 KB, 37 εμφανίσεις)
Απάντηση με παράθεση
  #5  
Παλιά 13-01-13, 12:16
Όνομα: ΣΤΑΥΡΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 27-10-2012
Μηνύματα: 102
Προεπιλογή

Γιώργο ευχαριστώ για την ζωγραφιά.
Αυτό ακριβώς ήθελα με την συνάρτηση
Φιλικά Σταύρος
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Μορφοποίηση] Ταξινόμηση xristos Excel - Ερωτήσεις / Απαντήσεις 2 15-10-14 19:02
[Γενικά] Ταξινόμηση comsup Excel - Ερωτήσεις / Απαντήσεις 8 13-04-13 18:25
Ταξινόμηση σε Έκθεση xristos Access - Ερωτήσεις / Απαντήσεις 10 28-07-12 23:03
Ταξινόμηση jimrenoir Access - Ερωτήσεις / Απαντήσεις 8 22-02-11 12:19
[ Φόρμες ] Ταξινόμηση alatis Access - Ερωτήσεις / Απαντήσεις 2 03-10-10 20:26


Η ώρα είναι 19:37.