Ταξινόμηση εγγραφών με διάκριση πεζών κεφαλαίων

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

Microsoft Office Access 2007 ταξινομεί τις εγγραφές σε αύξουσα ή φθίνουσα σειρά χωρίς διάκριση πεζών-κεφαλαίων. Ωστόσο, με τη σύνταξη μερικές γραμμές της Visual Basic for Applications (VBA) κώδικα, μπορείτε να ταξινομήσετε κείμενο από τις τιμές χαρακτήρων ASCII. Ταξινόμηση με βάση τις τιμές ASCII διαφοροποιεί τα κεφαλαία γράμματα από τα πεζά γράμματα και αποτελέσματα με διάκριση πεζών-κεφαλαίων σειρά.

Ο παρακάτω πίνακας παρουσιάζει τον τρόπο σε αύξουσα σειρά στην Access διαφέρει από μια σειρά ταξινόμησης με διάκριση πεζών-κεφαλαίων:

Προ-σειρά ταξινόμησης

Αύξουσα σειρά

Διάκριση πεζών-κεφαλαίων δελτίο παραγγελίας r

c

a

A

D

A

B

a

B

C

η

b

D

B

c

a

C

C

b

A

D

c

b

η

η

Παρόλο που τα αποτελέσματα στη στήλη με αύξουσα σειρά μπορεί να την πρώτη να εμφανίζονται κάπως απρόσμενα, δεν βρίσκονται. Στη στήλη με αύξουσα σειρά, "ένα" εμφανίζεται μέχρι να εμφανιστεί "Α" και "B" πριν "b". Αυτό συμβαίνει επειδή, κατά την αξιολόγηση ως τιμές κειμένου, "Α" = "ένα" και "B" = "b", εάν πεζών ή κεφαλαίων. Η Access λαμβάνει υπόψη στην αρχική σειρά των τιμών. Στη στήλη προ ταξινόμησης, "ένα" προηγείται "Α" και "B" προηγείται "b".

Όταν εκτελείται η λειτουργία ταξινόμηση με διάκριση πεζών-κεφαλαίων, οι τιμές κειμένου αντικαθίστανται με τις αντίστοιχες τιμές ASCII. Για παράδειγμα, A = 65, μια = 97, B = 66, β = 98, και ούτω καθεξής.

Εγγραφή του κώδικα VBA

  1. Δημιουργήστε μια λειτουργική μονάδα VBA και πληκτρολογήστε την ακόλουθη γραμμή στην ενότητα δηλώσεων, εάν δεν υπάρχει ήδη:

Option Explicit

  1. Πληκτρολογήστε την ακόλουθη διαδικασία σε μια λειτουργική μονάδα στο πρόγραμμα επεξεργασίας Visual Basic:

    Function StrToHex (S As Variant) As Variant
    '
    ' Converts a string to a series of hexadecimal digits.
    ' For example, StrToHex(Chr(9) & "A~") returns 09417E.
    '
    Dim Temp As String, I As Integer
    If VarType(S) <> 8 Then
    StrToHex = S
    Else
    Temp = ""
    For I = 1 To Len(S)
    Temp = Temp & Format(Hex(Asc(Mid(S, I, 1))), "00")
    Next I
    StrToHex = Temp
    End If
    End Function

    Προηγούμενη που ορίζονται από το χρήστη, StrToHex, μπορεί να είναι η κλήση της συνάρτησης από ένα ερώτημα. Όταν δίνετε το όνομα του πεδίου ταξινόμησης σε αυτήν τη συνάρτηση, αυτό θα ταξινομήσετε τις τιμές πεδίων με διάκριση πεζών-κεφαλαίων σειρά.

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

    Στην καρτέλα Δημιουργία, στην ομάδα Άλλο, κάντε κλικ στην επιλογή Σχεδίαση ερωτήματος.

  3. Στο παράθυρο διαλόγου Εμφάνιση πίνακα , κάντε κλικ στον πίνακα που θέλετε να ταξινομήσετε και, στη συνέχεια, κάντε κλικ στην επιλογή Προσθήκη.

  4. Σύρετε τα πεδία που θέλετε στο πλέγμα.

  5. Στην πρώτη κενή στήλη, στη γραμμή πεδίο , πληκτρολογήστε Expr1: StrToHex()[SortField]).

    StrToHex είναι η συνάρτηση καθορισμένη από το χρήστη που δημιουργήσατε νωρίτερα. SortField είναι το όνομα του πεδίου που περιέχει τις τιμές διάκριση πεζών-κεφαλαίων.

  6. Στο κελί Ταξινόμηση , κάντε κλικ στην επιλογή Αύξουσα ή Φθίνουσα.

    Εάν επιλέξετε αύξουσα σειρά, η τιμή που ξεκινά με κεφαλαία γράμματα θα εμφανίζονται πριν από αυτά που ξεκινούν με πεζά γράμματα. Εφαρμογή φθίνουσα σειρά πραγματοποιεί το αντίστροφο.

  7. Μετάβαση σε προβολή φύλλου δεδομένων.

    Η Access εμφανίζει τις εγγραφές, ταξινομημένες με διάκριση πεζών κεφαλαίων.

Αρχή της σελίδας

Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×